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

6 ]( k: G8 ]- @' ?/ e
& J, ?* j0 G( U
+ X* R( V6 D/ a! m8 L判断PK值
# i1 D) B5 L, E9 {# }- q# F& `

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
: ]' S& k* e5 h) obegin
    Npc.MessageBox(Player, Format('你的PK等级为%d，PK点数为%d', [Player.PkLevel, Player.PkPoint]));  //Format函数为格式化显示
end;
, J9 g7 p8 I. B8 g$ N
) N1 Z7 \0 g& O

, g/ `) M4 }7 d7 {3 V' K
判断队伍信息

3 B7 E: c% V7 A* m1 M+ R
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
" d  n; g" I4 K4 B8 l. u5 I) P; ]5 Fvar
    I: Integer;
    P: TPlayObject;
    S: String;
begin
: }, K! Q* m5 Y$ }    if Player.GroupOwner <> nil then //如果存在队长
    begin
        S := '';< /FONT>
        for I := 0 to Player.GroupCount - 1 do //循环队伍里面的角色,Player.GroupCount为当前角色所在队伍的人数(包含当前角色)
        begin
7 ~$ {/ m" ^3 h3 }1 z5 f# D: K; R            P := Player.Group[I]; //取出一个角色
            if P <> nil then //如果角色不为空值
& M8 G" o" \8 o. N5 ^* q) A- o, \            begin
                if S <> '' then
. `6 {! B9 W5 X  A                    S := S + ';';
4 M3 }# K, F8 y0 F* [1 ^; v                S := S + Format('职业:%d，等级:%d，名称：%s', [P.Job, P.Level, P.Name]); //将当前角色的信息拼接到字符串
            end;
        end;
6 y0 I/ P% E. ], Q# D* q7 f! s        if S <> '' then
9 a  B& G  [# _$ I! e0 m6 e            Npc.MessageBox(Player, S); //如果字符串不为空则弹出对话框显示
1 D& W$ Q4 y; G2 Y+ E+ u    end;
9 c/ @& _9 S6 S! b) bend;
! I% y& ~( W! R  u6 B  s
/ F' x5 h9 t7 M* ^$ P