jiaoxue 11 idc
查看: 202|回复: 5

77M2引擎若何修转业会帮主和取得行会所有称谓及所有成员信息教程

[复制链接]

3388

主题

3428

帖子

6万

积分

管理员

Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100Rank: 100

积分
60334

最佳新人活跃会员热心会员推广达人灌水之王突出贡献优秀版主荣誉管理论坛元老

QQ
发表于 2022-3-31 21:35:25 | 显示全部楼层 |阅读模式
  

  





若何修转业会帮主

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;

回复

使用道具 举报

0

主题

40

帖子

41

积分

新手上路

Rank: 1

积分
41
发表于 2022-3-31 21:35:30 | 显示全部楼层
果断MARK,前十有我必火!

回复

使用道具 举报

0

主题

26

帖子

27

积分

新手上路

Rank: 1

积分
27
发表于 2022-3-31 21:36:32 | 显示全部楼层
膜拜神贴,后面的请保持队形~

回复

使用道具 举报

0

主题

33

帖子

34

积分

新手上路

Rank: 1

积分
34
发表于 2022-3-31 21:39:40 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!

回复

使用道具 举报

2

主题

495

帖子

972

积分

高级会员

Rank: 4

积分
972
发表于 2022-3-31 21:43:52 | 显示全部楼层
果断MARK,前十有我必火!

回复

使用道具 举报

2

主题

495

帖子

972

积分

高级会员

Rank: 4

积分
972
发表于 2022-3-31 21:48:05 | 显示全部楼层
看了LZ的帖子,我只想说一句很好很强大!

回复

使用道具 举报