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

1 ~0 m" ]( h9 Q) Y) z
: R+ R' S6 k* _- }& N

4 w: }, [6 X6 x
判断PK值


procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
    Npc.MessageBox(Player, Format('你的PK等级为%d，PK点数为%d', [Player.PkLevel, Player.PkPoint]));  //Format函数为格式化显示
end;



, Z$ T, ?0 A1 G- ~2 ^/ W
/ p% J" {% [8 S# f判断队伍信息


; D, K- _9 M0 W- Bprocedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
& @5 N1 g/ ]" D    I: Integer;
+ ^+ j( H& A# {" i4 L" B6 `& Y    P: TPlayObject;
    S: String;
, T5 r5 U" `( R2 hbegin
    if Player.GroupOwner <> nil then //如果存在队长
7 K0 W" w$ Y7 n3 _    begin
        S := '';< /FONT>
        for I := 0 to Player.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色)
        begin
            P := Player.Group[I]; //取出一个角色
6 h2 k0 O/ r4 a! \' Q. b            if P <> nil then //如果角色不为空值
            begin
                if S <> '' then
                    S := S + ';';
                S := S + Format('职业:%d，等级:%d，名称：%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串
% l9 O+ M4 j1 s: G; b            end;
4 E7 `0 U# Y/ c7 Y" p) M        end;
        if S <> '' then
            Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示
    end;
* M: C+ E4 ^2 S. ^0 Lend;
1 y7 ^% Q+ F2 Z3 T
& E- u! [( B) @) `* ~' Y