如何修改行会帮主
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;
|