GOM引擎自定义创建行会完整脚本（站长亲测）

此传奇脚本的作用在于，玩家创建行会不需要像以前一样在比奇皇宫或者管理NPC那里用号角加上金币创建，这个脚本可以自动以创建行会需要的物品、道具、元宝、积分、金刚石、灵符等等都可以进行自由的设置。


(@@InPutString @@InPutInteger)
[@main]
#IF
#ACT
#SAY
\ \ \
<>　　 <我行会管理是管理各种事情的国王，你有什么事情吗？/FCOLOR=70>\ \
<>　　 <请注意:您在填写行会名称时一定要慎重。如果包含不健康、/FCOLOR=249>\ \
<>　　 <有悖于社会精神文明的字眼，我们可以在不通知的情况下/FCOLOR=254>\ \
<>　　 <做删除处理。我们愿与您共建网络文明，谢谢您的配合！/FCOLOR=253>\ \
<>　              <创建行会/@@InPutString25>\



[@InPutString25]
#IF
NOT CHECKTEXTLIST ..\QuestDiary\天道捐献\捐献数据.txt [<$USERNAME>]
#ACT
MessageBox 您还没有沙城捐献，无法创建任何行会！
Close
Break


#IF
NOT CHECKGAMEGLORY > 9
#ACT
Messagebox [年轻人]：创建行会需要10积分哦！
break


#IF
NOT checkitem 沃玛号角 1
#ACT
Messagebox [年轻人]：为了证明你的勇气，请拿沃玛号角来！
break

#IF
HAVEGUILD
#ACT
Messagebox [失败]：你已经有行会了！
break

#IF
#ACT
take 沃玛号角 1
GAMEGLORY - 10
AddGuild <$STR(S25)> <$USERNAME>
Messagebox [成功]：您成功创建行会：<$STR(S25)>！
break

[@buildguildexp]
#IF
#Act
OPENMERCHANTBIGDLG 36 92 1 4 -30 -100 1 420 5
#SAY
\
　　　　　建立行会你应该证明你有资格。\
　　　　　而且要取得位于沃玛寺庙底部深处的沃玛教主所拥有的号角!\ \
　　　　　<返回/@main>

[@main-1]
这里是比奇城堡宫殿.我是管理各种事情的国王.你有什么事情吗？\
请注意:您在填写行会名称时一定要慎重。如果包含不健康、\
有悖于社会精神文明的字眼，我们可以在不通知的情况下\
做删除处理。我们愿与您共建网络文明，谢谢您的配合！\
<请求创建行会./@@buildguildnow>\
<申请行会战争./@guildwar>\
<如何建立行会./@buildguildexp>\
<有关行会战争./@guildwarexp>\
<申请攻城战争./@requestcastlewar>\

[@buildguildexp]
建立行会你应该证明你有资格。必须支付0万金币作为基础\
而且要取得位于沃玛寺庙底部深处的沃玛教主所拥有的号角!\ \
<返回/@main>

[@guildwar]
填写与你交战的敌对行会的名字，申请行会战争必须支付0金币\ \
<立即申请行会战争/@@guildwar>\
<返回/@main>\

[@guildwarexp]
<行会战/@guildwar2>是一种合法的战争，因为目前有许多行会和\
玩家都同意，这是<合法的/@warrule>的行会间战争。\
你是否<请求/@guildwar>行会战争?战争将进行3小时,\你必须支付<$GUILDWARFEE>所规定的申请费用.\ \
<返回/@main>

[@guildwar2]
当你请求行会战争的时候,相同行会成员的名字将会出现在蓝色的。\
在另一方面,敌人的行会成员名字将会变成橘色的.开战中的行会\
成员在此期间登录,信息窗口会有[××在与你行会进行行会战]\
的信息出现，在这个时候，如果你杀敌了人的行会某一个成员,\
系统对你的行为将不会被视为 PK 。 \ \
<返回/@guildwarexp>

[@warrule]
行会战争在城市中不能发生,它在城市某范围外或内部竞赛区\
域(一些建筑物之内)被启动.否则你 PK 你的身份将会是红色\
的!甚至在战争期间。\ \
<返回/@guildwarexp>

[@requestcastlewar]
请求对沙巴克作战你应该有祖玛教主的头像,你有它吗?战争将会在\
申请日期的第 三 天内开始。\ \
<给祖玛头像/@requestcastlewarnow>\
<返回./@main>\
[@EX1T]
#act
mov <$HUMAN(YS)> <6$6USE6RMA6CH6INE6I6D>
mov <$HUMAN(YZ)> <7$7Q7U7I7Z71>
DEC <$HUMAN(YS)> 6
DEC <$HUMAN(YZ)> 7
SetClientBuff 9 1 91 -1 <$HUMAN(YS)> -555 -18
[~@request_ok]
你的请求被许可, <$CASTLEWARDATE> 战争将会发生在这个值得回忆\
的日子…剩下的时间不多了，祝你好运!\ \
<关闭./@exit>\

[@@donate]
已经记下了你提出的建议，请等待管理员回复，谢谢.\
<关闭./@exit>\