如何加入一个指定的行会
procedureMain(Npc:TNormNpc;Player:TPlayObject;Args:TArgs);
var
guild:TGuild;
begin
guild:=Gamelib.FindGuild('天下第一会');//查找行会
ifguild<>nilthen
begin
ifnotguild.IsFullthen//如果没有满员
begin
ifguild.AddMember(Player.Name)then//如果加入当前角色名称成功
begin
Player.SendGuildMessage(Format('欢迎{S=%s;C=250}加入到行会!!!'[Player.Name]));//发送行会消息
Npc.MessageBox(Player'加入行会成功');
end;
end
else
Npc.MessageBox(Player'已经满员!!!');
end
else
Npc.MessageBox(Player'没有该行会信息!!!');
end;
procedureMain(Npc:TNormNpc;Player:TPlayObject;Args:TArgs);
var
guild:TGuild;
begin
guild:=Gamelib.FindGuild('天下第一会');//查找行会
ifguild<>nilthen
begin
ifnotguild.IsFullthen//如果没有满员
begin
ifguild.AddMember(Player.Name)then//如果加入当前角色名称成功
begin
Player.SendGuildMessage(Format('欢迎{S=%s;C=250}加入到行会!!!'[Player.Name]));//发送行会消息
Npc.MessageBox(Player'加入行会成功');
end;
end
else
Npc.MessageBox(Player'已经满员!!!');
end
else
Npc.MessageBox(Player'没有该行会信息!!!');
end;

