如何增加一个行会的称号

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

begin

  if Player.Guild <> nil then

   begin

    if Player.Guild.AddRankName(2{称号编号,不可重复}, ‘猛虎队'{称号名称,不可重复}) then

      Player.Messagebox(‘称号添加成功’);

  end;

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

如何加入或离开队伍

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

var

P: TPlayObject;

begin

//加入队伍

P := Gamelib.FindPlayer(‘张三’);

if P <> nil then

begin         

   //JoinGroup时,如果双方都没有队伍,则调用JoinGroup函数的角色为队长

   //如果对方为队长,则调用JoinGroup函数的角色加入对方的队伍

   //JoinGroup第二个参数为是否显示对话框,如果为false,则直接加入队伍,如果为true,则

   //对方会收到组队邀请或申请

   Player.JoinGroup(P, False{是否显示对话框});

end;      

//离开队伍  

Player.LeaveGroup; //如果Player是队长则队伍解散

end;

声明:本站所有文章,任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们(hljlife@vip.qq.com)进行处理。

本站所有资源来源于网络,本站未参与任何dump或hack活动。若有侵犯您的权益请提供相关证明致邮hljlife@vip.qq.com,我将及时撤下该资源。

All resources come from the network, this site does not participate in any dump or hack activities, if there is any violation of your rights, please provide relevant proof and email hljlife@vip.qq.com, I will promptly delete it.

如果下载资源文件后缀为.PDF,请删除后缀.PDF之后运行。

部分失效链接可通过文末填写有效邮箱到Email输入框留言索取。

免责声明:游戏资源均来自网络收集购买,不保证BUG,不保证病毒,不解答游戏问题(传奇服务端提供付费架设服务),为了安全,请尽量选择虚拟机运行服务端。