(@@InPutString @InPutInteger)
[@Main]
#IF
#Act
CloseBigDialogBox
OpenmerChantBigdlg 24 930 1 4 20 -150 0 0 0
Goto @Main1
[@Main1]
#IF
#Act
Goto @读取数据
#IF
Equal A482 <$Username>
#Say
\ \ \ \ \ \ \ \ \ \ \ \ \
<ImgEx:24:923:924:925:630:1/@Exit>\
<Img:595:24:95:-195>\
<Img:1637:24:360:-33>\
<在/FCOLOR=69><《忘忧神器》/FCOLOR=253><的生存是容易的，但要成为这个世界的霸者你必/FCOLOR=69>\
<须拥有这样与你永远并肩而立的生死之交，我们把这个组织称为“行会”。/FCOLOR=69>\ \ \ \
{<$Str(S$内容1)>/FCOLOR=69} {<$Str(A486)>/FCOLOR=69}\ \
{<$Str(S$内容2)>/FCOLOR=154} {<$Str(A487)>/FCOLOR=154}\ \
{<$Str(S$内容3)>/FCOLOR=250} {<$Str(G486)>/FCOLOR=250}\ \
{<$Str(S$内容4)>/FCOLOR=250}<设置/@@InPutInteger87(请输入大于100小于999的数字)> {<$Str(G487)>/FCOLOR=250}\ \
{<$Str(S$内容5)>/FCOLOR=251}<设置/@设置A1> {<$Str(A488)>/FCOLOR=251}\ \ \
<行会竞价/FCOLOR=71> <行会竞价/FCOLOR=71>\ \ \ \
<ImgEx:24:1340:1341:1342:329:-72/@第一竞价><ImgEx:24:1340:1341:1342:423:-72/@第二竞价>\
#Act
Break
#IF
Equal A487 <$Username>
#Say
\ \ \ \ \ \ \ \ \ \ \ \ \
<ImgEx:24:923:924:925:630:1/@Exit>\
<Img:595:24:95:-195>\
<Img:1637:24:360:-33>\
<在/FCOLOR=69><《忘忧神器》/FCOLOR=253><的生存是容易的，但要成为这个世界的霸者你必/FCOLOR=69>\
<须拥有这样与你永远并肩而立的生死之交，我们把这个组织称为“行会”。/FCOLOR=69>\ \ \ \
{<$Str(S$内容1)>/FCOLOR=69} {<$Str(A486)>/FCOLOR=69}\ \
{<$Str(S$内容2)>/FCOLOR=154} {<$Str(A487)>/FCOLOR=154}\ \
{<$Str(S$内容3)>/FCOLOR=250} {<$Str(G486)>/FCOLOR=250}\ \
{<$Str(S$内容4)>/FCOLOR=250} {<$Str(G487)>/FCOLOR=250} <设置/@@InPutInteger52(请输入大于100小于999的数字)>\ \
{<$Str(S$内容5)>/FCOLOR=251} {<$Str(A488)>/FCOLOR=251} <设置/@设置A2>\ \ \
<行会竞价/FCOLOR=71> <行会竞价/FCOLOR=71>\ \ \ \
<ImgEx:24:1340:1341:1342:329:-72/@第一竞价><ImgEx:24:1340:1341:1342:423:-72/@第二竞价>\
#Act
Break
#IF
IsguildMaster
#Say
\ \ \ \ \ \ \ \ \ \ \ \ \
<ImgEx:24:923:924:925:630:1/@Exit>\
<Img:595:24:95:-195>\
<Img:1637:24:360:-33>\
<在/FCOLOR=69><《忘忧神器》/FCOLOR=253><的生存是容易的，但要成为这个世界的霸者你必/FCOLOR=69>\
<须拥有这样与你永远并肩而立的生死之交，我们把这个组织称为“行会”。/FCOLOR=69>\ \ \ \
{<$Str(S$内容1)>/FCOLOR=69} {<$Str(A486)>/FCOLOR=69}\ \
{<$Str(S$内容2)>/FCOLOR=154} {<$Str(A487)>/FCOLOR=154}\ \
{<$Str(S$内容3)>/FCOLOR=250} {<$Str(G486)>/FCOLOR=250}\ \
{<$Str(S$内容4)>/FCOLOR=250} {<$Str(G487)>/FCOLOR=250}\ \
{<$Str(S$内容5)>/FCOLOR=251} {<$Str(A488)>/FCOLOR=251}\ \ \
<行会竞价/FCOLOR=71> <行会竞价/FCOLOR=71>\ \ \ \
<ImgEx:24:1340:1341:1342:329:-72/@第一竞价><ImgEx:24:1340:1341:1342:423:-72/@第二竞价>\
#Act
Break
#IF
#Say
\ \ \ \ \ \ \ \ \ \ \ \ \
<ImgEx:24:923:924:925:630:1/@Exit>\
<Img:595:24:95:-195>\
<Img:1637:24:360:-33>\
<在/FCOLOR=69><《忘忧神器》/FCOLOR=253><的生存是容易的，但要成为这个世界的霸者你必/FCOLOR=69>\
<须拥有这样与你永远并肩而立的生死之交，我们把这个组织称为“行会”。/FCOLOR=69>\ \ \ \
{<$Str(S$内容1)>/FCOLOR=69} {<$Str(A486)>/FCOLOR=69}\ \
{<$Str(S$内容2)>/FCOLOR=154} {<$Str(A487)>/FCOLOR=154}\ \
{<$Str(S$内容3)>/FCOLOR=250} {<$Str(G486)>/FCOLOR=250}\ \
{<$Str(S$内容4)>/FCOLOR=250} {<$Str(G487)>/FCOLOR=250}\ \
{<$Str(S$内容5)>/FCOLOR=251} {<$Str(A488)>/FCOLOR=251}\ \ \
<加入行会/FCOLOR=71> <创建行会/FCOLOR=71> <加入行会/FCOLOR=71>\ \ \ \
<ImgEx:24:1340:1341:1342:306:-72/@加入第一><ImgEx:24:1340:1341:1342:327:-72/@@inputstring88(请输入你要创建的行会名称：)><ImgEx:24:1340:1341:1342:353:-72/@加入第二>\
#Act
Break
[@InPutInteger87]
#IF
Small N87 100
#Act
MessageBox [系统]：\ \ 你输入的数字小于100，请重新输入！~
Break
#IF
Large N87 999
#Act
MessageBox [系统]：\ \ 你输入的数字大于于999，请重新输入！~
Break
#ElseAct
MOV G481 <$Str(N87)>
Goto @Main1
Break
[@设置A1]
#IF
Equal A483 关闭
#Act
MOV A483 开启
Goto @Main1
Break
#ElseAct
MOV A483 关闭
Goto @Main1
Break
[@设置A2]
#IF
Equal A488 关闭
#Act
MOV A488 开启
Goto @Main1
Break
#ElseAct
MOV A488 关闭
Goto @Main1
Break
[@加入第二]
#IF
Equal A488 关闭
#Act
MessageBox [系统]：\ \ 对不起，本行会暂时不收人！~
Break
#IF
CheckLEVELEX < <$Str(G487)>
#Act
MessageBox [系统]：\ \ 等级不够！对方行会掌门设置了[<$Str(G487)>]级才可以加入！~
Break
#IF
IsguildMaster
#Act
MessageBox [系统]：\ \ 您现在是行会掌门不能在加入其他行会！~
Break
#IF
Equal A486 <$GUILDNAME>
#Act
MessageBox [系统]：\ \ 您现在已经是[<$Str(A486)>]的行会成员了！~
Break
#ElseAct
Goto @加入第二A
[@加入第二A]
#IF
HaveGuild
#Act
Gmexecute 退出行会
DelayGoto 3 @加入第二B
Break
#ElseAct
Goto @加入第二B
Break
[@加入第二B]
#IF
#Act
AddGuildMember <$Str(A486)>
GuildNoticeMsg 250 0 恭喜【<$Username>】通过【天下第二行会】NPC加入了行会【<$Str(A486)>】！
GuildNoticeMsg 250 0 恭喜【<$Username>】通过【天下第二行会】NPC加入了行会【<$Str(A486)>】！
GuildNoticeMsg 250 0 恭喜【<$Username>】通过【天下第二行会】NPC加入了行会【<$Str(A486)>】！
Break
[@加入第一]
#IF
Equal A483 关闭
#Act
MessageBox [系统]：\ \ 对不起，本行会暂时不收人！~
Break
#IF
CheckLEVELEX < <$Str(G481)>
#Act
MessageBox [系统]：\ \ 等级不够！对方行会掌门设置了[<$Str(G481)>]级才可以加入！~
Break
#IF
IsguildMaster
#Act
MessageBox [系统]：\ \ 您现在是行会掌门不能在加入其他行会！~
Break
#IF
Equal A481 <$GUILDNAME>
#Act
MessageBox [系统]：\ \ 您现在已经是[<$Str(A481)>]的行会成员了！~
Break
#ElseAct
Goto @加入第一A
[@加入第一A]
#IF
HaveGuild
#Act
Gmexecute 退出行会
DelayGoto 3 @加入第一B
Break
#ElseAct
Goto @加入第一B
Break
[@加入第一B]
#IF
#Act
AddGuildMember <$Str(A481)>
GuildNoticeMsg 250 0 恭喜【<$Username>】通过【天下第一行会】NPC加入了行会【<$Str(A481)>】！
GuildNoticeMsg 250 0 恭喜【<$Username>】通过【天下第一行会】NPC加入了行会【<$Str(A481)>】！
GuildNoticeMsg 250 0 恭喜【<$Username>】通过【天下第一行会】NPC加入了行会【<$Str(A481)>】！
Break
[@第一竞价]
#IF
Equal A481 <$GUILDNAME>
#Act
MessageBox 你的行会已经是第一行会，无需重复竞价。
Break
#IF
Equal A486 <$GUILDNAME>
#Act
MessageBox 你的行会已经是第二行会，无需重复竞价。
Break
#IF
HaveGuild
IsguildMaster
#Act
Mov N$价格计算1 <$Str(G480)>
Inc N$价格计算1 50000
MessageBox [系统]：尊敬的行会掌门(<$GUILDNAME>)\ \您本次将已(<$Str(N$价格计算1)>)元宝参与竞标!~\ \竞标成功后您的行会晋级为天下第一行会\ \领取点确定，否则请取消！ @确定竞价第一行会 @取消
Break
#ElseAct
MessageBox [系统]：\ \ 你还不是行会掌门人，无法申请！~
Break
[@确定竞价第一行会]
#IF
CheckGameGold > <$Str(N$价格计算1)>
#Act
GameGold - <$Str(N$价格计算1)>
MOV A481 <$GUILDNAME>
MOV A482 <$Username>
MOV G480 <$Str(N$价格计算1)>
MOV G481 100
MOV A488 开启
MessageBox [成功]：您在行会竞价板上花了【<$Str(N$价格计算1)>】个元宝竞得。
SENDMSG 0 【行会竞价】:恭喜《<$GUILDNAME>》行会成功竞标天下第一行会，还没有入会的小伙伴请抓紧点牌子入会拉！！！
SENDMSG 0 【行会竞价】:恭喜《<$GUILDNAME>》行会成功竞标天下第一行会，还没有入会的小伙伴请抓紧点牌子入会拉！！！
SENDMSG 0 【行会竞价】:恭喜《<$GUILDNAME>》行会成功竞标天下第一行会，还没有入会的小伙伴请抓紧点牌子入会拉！！！
Goto @Main1
Break
#ElseAct
MessageBox [系统]：\ \ 你没有足够的元宝参与竞价！~
Break
[@第二竞价]
#IF
Equal A481 <$GUILDNAME>
#Act
MessageBox [系统]：\ \ 你的行会已经是第一行会，无需重复竞价！~
Break
#IF
Equal A486 <$GUILDNAME>
#Act
MessageBox [系统]：\ \ 你的行会已经是第二行会，无需重复竞价！~
Break
#IF
HaveGuild
IsguildMaster
#Act
Mov N$价格计算2 <$Str(G486)>
Inc N$价格计算2 50000
MessageBox [系统]：尊敬的行会掌门(<$GUILDNAME>)\ \您本次将已(<$Str(N$价格计算2)>)元宝参与竞标!~\ \竞标成功后您的行会晋级为天下第二行会\ \领取点确定，否则请取消！ @确定竞价第二行会 @取消
Break
#ElseAct
MessageBox [系统]：\ \ 你还不是行会掌门人，无法申请！~
Break
[@确定竞价第二行会]
#IF
CheckGameGold > <$Str(N$价格计算2)>
#Act
GameGold - <$Str(N$价格计算2)>
MOV A486 <$GUILDNAME>
MOV A487 <$Username>
MOV G486 <$Str(N$价格计算2)>
MOV G487 100
MOV A488 开启
MessageBox [成功]：您在行会竞价板上花了【<$Str(N$价格计算2)>】个元宝竞得。
SENDMSG 0 【行会竞价】:恭喜《<$GUILDNAME>》行会成功竞标天下第二行会，还没有入会的小伙伴请抓紧点牌子入会拉！！！
SENDMSG 0 【行会竞价】:恭喜《<$GUILDNAME>》行会成功竞标天下第二行会，还没有入会的小伙伴请抓紧点牌子入会拉！！！
SENDMSG 0 【行会竞价】:恭喜《<$GUILDNAME>》行会成功竞标天下第二行会，还没有入会的小伙伴请抓紧点牌子入会拉！！！
Goto @Main1
Break
#ElseAct
MessageBox [系统]：\ \ 你没有足够的元宝参与竞价！~
Break
[@读取数据]
#IF
Equal A480 已加载
#Act
Mov S$内容1 <$Str(A481)>
Mov S$内容2 <$Str(A482)>
Mov S$内容5 <$Str(A483)>
Mov S$内容3 <$Str(G480)>
Mov S$内容4 <$Str(G481)>
SetStringBlank <$Str(S$内容1)> 15 1
SetStringBlank <$Str(S$内容2)> 15 1
SetStringBlank <$Str(S$内容3)> 15 1
SetStringBlank <$Str(S$内容4)> 10 1
SetStringBlank <$Str(S$内容5)> 10 1
Goto @检测第老大
Break
#ElseAct
MOV A480 已加载
MOV A481 __.暂无行会.__
MOV A482 __.暂无信息.__
MOV G480 0
MOV G481 100
MOV A483 关闭
MOV A486 __.暂无行会.__
MOV A487 __.暂无信息.__
MOV G486 0
MOV G487 100
MOV A488 关闭
Mov S$内容1 <$Str(A481)>
Mov S$内容2 <$Str(A482)>
Mov S$内容5 <$Str(A483)>
Mov S$内容3 <$Str(G480)>
Mov S$内容4 <$Str(G481)>
SetStringBlank <$Str(S$内容1)> 15 1
SetStringBlank <$Str(S$内容2)> 15 1
SetStringBlank <$Str(S$内容3)> 15 1
SetStringBlank <$Str(S$内容4)> 5 1
SetStringBlank <$Str(S$内容5)> 10 1
Break
[@inputstring88]
;#IF
;CHECKCONTAINSTEXT <$SERVERNAME> 战区
;#ELSEACT
;MessageBox [系统]：\ \合区前禁止创建行会。
;Break
#OR
CheckContainsText <$Str(S88)> 跑
CheckContainsText <$Str(S88)> 路
CheckContainsText <$Str(S88)> F
CheckContainsText <$Str(S88)> /
CheckContainsText <$Str(S88)> .
CheckContainsText <$Str(S88)> ,
CheckContainsText <$Str(S88)> ?
CheckContainsText <$Str(S88)> >
CheckContainsText <$Str(S88)> <
CheckContainsText <$Str(S88)> *
CheckContainsText <$Str(S88)> }
CheckContainsText <$Str(S88)> {
CheckContainsText <$Str(S88)> ]
CheckContainsText <$Str(S88)> [
CheckContainsText <$Str(S88)> |
CheckContainsText <$Str(S88)> -
CheckContainsText <$Str(S88)> =
CheckContainsText <$Str(S88)> +
CheckContainsText <$Str(S88)> _
CheckContainsText <$Str(S88)> )
CheckContainsText <$Str(S88)> (
CheckContainsText <$Str(S88)> *
CheckContainsText <$Str(S88)> &
CheckContainsText <$Str(S88)> ^
CheckContainsText <$Str(S88)> %
CheckContainsText <$Str(S88)> $
CheckContainsText <$Str(S88)> #
CheckContainsText <$Str(S88)> @
CheckContainsText <$Str(S88)> !
CheckContainsText <$Str(S88)> ~
CheckContainsText <$Str(S88)> `
CheckContainsText <$Str(S88)> \
CheckStringlength <$Str(S88)> > 14
CheckStringlength <$Str(S88)> < 5
#Act
Mov S88
MessageBox [系统]：\ \ 禁止使用该行会名字！~
Break
#IF
Checkitem 沃玛号角 1
#ElseAct
Mov S88
MessageBox [系统]：\ \ 你没有沃玛号角！~
Break
#IF
HaveGuild
#Act
Mov S88
MessageBox [系统]：\ \ 你已经加入行会！~
Break
#IF
#Act
AddGuild <$Str(S88)> <$Username>
MessageBox [系统]：\ \ 你的行会创建成功！~
Goto @Main
Break
