``` 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; ```