如何增加一个行会的称号
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;