千年新章脚玩家上下线系统提示

在  tgs1000ScriptGameSys.pas 中 （上下线，寄售的触发脚本）

{******************************************************************************
创建人:k2y1982
创建时间:2010.8.27
修改时间:
实现功能:
  上下线的系统提示，左上角和对聊天框里。
******************************************************************************}
//角色上线

procedure OnCharOnline(uSource: integer);
var
  curQuest: integer;
  curSubQuest: integer;
  str: string;
begin

  curQuest := getQuestCurrentNo(uSource);
//当前主线任务ID
  if (curQuest < 4950) and (curQuest > 0) then
  begin
    setQuestCurrentNo(uSource, 0);
    setQuestNo(uSource, 0);
    setQueststep(uSource, 0);
  end;

  //当前支线任务ID
  curSubQuest := getSubQuestCurrentNo(uSource);
  if (curSubQuest < 8001) and (curSubQuest > 0) then
  begin
    setSubQuestCurrentNo(uSource, 0);
    setSubQueststep(uSource, 0);
  end;

//上线提示
  begin
  str := getname(uSource);
  topmsg(str + ' 大喊：哈哈，大侠我又来了！', $00FF80FF);
  end;
end;

//角色下线时提示

procedure OnCharExitGame(uSource: integer);
var
  str: string;
begin
  str := getname(uSource);
  topmsg(str + ' 大喊：青山常在，绿水长流，各位后会有期！', $00FF80FF);
end;

//发布寄售通知

procedure OnAuctionSell(uSource: integer; aItemName: string);
begin
  topmsg('寄售员大声喊到：有人寄售了『' + aItemName + '』在我这，如有需要，赶快前来购买。', $00FF80FF);
end;

$00FF80FF 是颜色，可自行修改

' 大喊：哈哈，大侠我又来了！'
' 大喊：青山常在，绿水长流，各位后会有期！'

提示类容可以自行修改