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

. M- Y% s, C% h


判断PK值
8 B, Y- _+ P# @, z$ r( _

: P$ H/ _. T4 a! h; E' {: n: xprocedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
    Npc.MessageBox(Player, Format('你的PK等级为%d，PK点数为%d', [Player.PkLevel, Player.PkPoint]));  //Format函数为格式化显示
end;
2 y2 H- m- X' Q6 q4 L
' I0 {8 j* H# r; A# P) n+ ^. a
* t. n! F% ]3 [/ L7 x8 [' T

判断队伍信息
' K7 i$ C  A; M2 h! \. Y. q

% |" C: I. L' S/ b4 nprocedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
    I: Integer;
    P: TPlayObject;
; B: i6 c$ y4 L- V) A    S: String;
- n1 ^; Z0 q$ p2 B0 Kbegin
    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
, \  T7 G: g$ S1 {" Z: l                    S := S + ';';
                S := S + Format('职业:%d，等级:%d，名称：%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串
* e8 N2 I, _, ~. d# X            end;
        end;
        if S <> '' then
3 r( v2 f* x7 Q$ }! P            Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示
0 t+ {/ E6 b" y" y    end;
end;
: M  O: ^& z: y9 z( t
+ y" j# ?& ]& U* ^) r