77M2引擎如何修改行会帮主和取得行会全部称号及全部成员信息教程

如何修改行会帮主

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

begin

if Player.Guild <> nil then

begin

   //将行会帮主改成”张三”.注意:新行会帮主必须在线且不是其行会帮主,否则添加失败.

   //修改之后原来的帮主成为普通成员

   if Player.Guild.ChangeChief(‘张三’) then

     Player.Messagebox(‘行会帮主变更成功’);

end;

end;

======================================

如何取得行会全部称号及全部成员信息

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

var

ARankNames,

ANames: TStrings;

begin

if Player.Guild <> nil then

begin                        

   //取得全部称号名称

   ARankNames := TStringList.Create;

   try

     Player.Guild.GetRankNames(ARankNames); //ARankNames必须执行创建和释放

   finally

     ARankNames.Free;

   end;  

   //取得某称号下全部成员

   ANames := TStringList.Create;

   try

     Player.Guild.GetRankMembers(‘猛虎队’, ANames); //ANames必须执行创建和释放

   finally

     ANames.Free;

   end;

end;

end;