``` unit Q2; interface uses Classes, SysUtils; procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); implementation procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); var AGuild: TGuild ; begin if Gamelib.FindGuild('斧头帮') = nil then //首先查看是否存在这个名称的行会 begin AGuild := Gamelib.CreateGuild('斧头帮', Player.Name); //创建行会 AGuild.MemberMaxLimit := 20; //设置成员上限为20 AGuild.VarDateTime('创建日期').AsDateTime := Now; //写一个行会变量 AGuild.VarDateTime('创建日期').Save; //将行会变量保存到文件 end else //如果相同名称的行会存在 Npc.MessageBox(Player, '帮会已存在'); end; end. ```