- 威望
- 0
- 金钱
- 6792
- 贡献
- 0
- 最后登录
- 2025-2-16
- 注册时间
- 2024-5-30
- 主题
- 3302
- 精华
- 0
- 帖子
- 3380
|
如何加入一个指定的行会
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
guild: TGuild;
begin
guild := Gamelib.FindGuild('天下第一会'); //查找行会
if guild <> nil then
begin
if not guild.IsFull then //如果没有满员
begin
if guild.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; |
|