判断PK值

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

begin

Npc.MessageBox(Player, Format('你的PK等级为%d，PK点数为%d', [Player.PkLevel, Player.PkPoint]));//Format函数为格式化显示

end;

判断队伍信息

var

I: Integer;

P: TPlayObject;

S: String;

if Player.GroupOwner <> nil then //如果存在队长

S := '';< /FONT>

for I := 0 to Player.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色)

P := Player.Group[I]; //取出一个角色

if P <> nil then //如果角色不为空值

if S <> '' then

S := S + ';';

S := S + Format('职业:%d，等级:%d，名称：%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串

Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示