91M2引擎判断PK值和判断队伍信息脚本说明

2 e& i( N9 G$ K" l1 c8 c



判断PK值
. V5 w! Q! E0 G* M

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
9 q5 A$ V, p( f* Jbegin
    Npc.MessageBox(Player, Format('你的PK等级为%d，PK点数为%d', [Player.PkLevel, Player.PkPoint]));  //Format函数为格式化显示
6 M/ P2 F8 H# _% ~7 J5 k& yend;


+ P2 d# q9 |/ ?4 h' w- V4 `
. W7 R& T9 ?+ J0 |4 Z  ~
判断队伍信息
2 b( E  ?9 A( N; [& k: O
6 Q* P4 _! H8 ^: e) P
+ ]; `+ b, `. F& D$ Lprocedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
8 v2 Z% d9 X3 d4 @# I6 @var
    I: Integer;
    P: TPlayObject;
    S: String;
begin
    if Player.GroupOwner <> nil then //如果存在队长
    begin
        S := '';< /FONT>
0 a6 N6 d  z1 ~& h7 {! X+ F        for I := 0 to Player.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色)
0 P2 j: K- ?: |        begin
            P := Player.Group[I]; //取出一个角色
1 f1 C) D, z) m            if P <> nil then //如果角色不为空值
7 h* r: s/ Y+ P7 J( K: a8 B            begin
                if S <> '' then
                    S := S + ';';
                S := S + Format('职业:%d，等级:%d，名称：%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串
' D2 i. P3 h! D            end;
        end;
        if S <> '' then
            Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示
    end;
end;
2 N$ z9 V6 l, r/ D$ X3 T
1 E/ p% G% r& t% C