判断PK值 
 
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); 
begin 
    Npc.MessageBox(Player, Format('你的PK等级为%d,PK点数为%d', [Player.PkLevel, Player.PkPoint]));  //Format函数为格式化显示 
end; 
 
 
判断队伍信息 
 
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); 
var 
    I: Integer; 
    P: TPlayObject; 
    S: String; 
begin 
    if Player.GroupOwner <> nil then //如果存在队长 
    begin 
        S := '';< /FONT> 
        for I := 0 to Player.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色) 
        begin 
            P := Player.Group[I]; //取出一个角色 
            if P <> nil then //如果角色不为空值 
            begin 
                if S <> '' then 
                    S := S + ';'; 
                S := S + Format('职业:%d,等级:%d,名称:%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串 
            end; 
        end; 
        if S <> '' then 
            Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示 
    end; 
end; 
 
 |