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

3 W/ B3 X0 z5 q  M/ A% ]! W

! i* z$ M/ b! U0 W9 t4 S- f
* L2 j; T1 G5 c) x2 S9 k
判断PK值


procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
; o9 Z  s8 c% z5 U& E7 e$ `begin
* g2 C5 d9 C6 L3 h7 B    Npc.MessageBox(Player, Format('你的PK等级为%d，PK点数为%d', [Player.PkLevel, Player.PkPoint]));  //Format函数为格式化显示
end;
7 A0 c* w- S% a7 m0 _$ Q; _. i
4 L- @- n# j* P4 U( \( ^% [


( z. E* w# S8 `; j) w1 B4 P2 s判断队伍信息


* [4 N5 J9 w. H0 Q; Lprocedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
    I: Integer;
    P: TPlayObject;
* Z  \* L5 I. V" d* Y4 s    S: String;
begin
    if Player.GroupOwner <> nil then //如果存在队长
6 J# m6 L4 k- x- u- Z& E) U) K    begin
4 \# S4 r% u( |0 O/ m        S := '';< /FONT>
6 E7 I' c/ m' R2 O; Z        for I := 0 to Player.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色)
+ c" H9 J+ O* }1 S- @  a1 P        begin
0 {* |# g8 G  c5 c. {4 i. x            P := Player.Group[I]; //取出一个角色
8 C0 C. c4 K' d5 o1 S            if P <> nil then //如果角色不为空值
            begin
                if S <> '' then
                    S := S + ';';
                S := S + Format('职业:%d，等级:%d，名称：%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串
- [# Y) t; Z7 w6 ~  _. o. c$ J            end;
8 ?  ]6 J; l: V7 I        end;
        if S <> '' then
2 D/ m) g" M% ?' ~            Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示
    end;
2 I- M4 J  r6 t  Send;
1 R! ~# Y7 o4 v6 v: c* E; R
+ g* `8 T  F" L5 C* B; ]- t3 s