Mir2000金币建会脚本，比奇国王[建会]

[@MAIN]

#IF

CHECKLEVELEX > 0

#ACT

SetMerchantDlgImgName xk1.png

#SAY

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\

　　　　    <COLOR=$00FF92 ≡≡><COLOR=$00FFA3 Ｍ><COLOR=$00FFB4 Ｉ><COLOR=$00FFD6 Ｒ><COLOR=$00FFE7 ２０００><COLOR=$00FFF8 ＊><COLOR=$00E4FF 醉><COLOR=$00D3FF 新><COLOR=$00C2FF 独><COLOR=$00B1FF 家><COLOR=$00A0FF 脚><COLOR=$0079FF 本≡≡>\

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\

<>  <COLOR=clLime ┏><COLOR=$00D3FF ━━━━━━━━━━━><COLOR=clLime ┓>    <COLOR=clLime ┏><COLOR=$00D3FF ━━━━━━━━━━━><COLOR=clLime ┓>\

<>  ┃   <请求创建行会/@创建行会>·√   ┃    ┃   <申请行会战争/@行会战争>·ㄨ   ┃\

<>  ┣<COLOR=$00B1FF ━━━━━━━━━━━>┫    ┣<COLOR=$00B1FF ━━━━━━━━━━━>┫\

<>  ┃   <询问如何建立行会/@查询建会>   ┃    ┃   <退出行会战争/@退出战争>·¤   ┃\

<>  <COLOR=clLime ┗><COLOR=$0079FF ━━━━━━━━━━━><COLOR=clLime ┛>    <COLOR=clLime ┗><COLOR=$0079FF ━━━━━━━━━━━><COLOR=clLime ┛>\

<>    攻城说明：新区第三天、全服统一攻城，大部分行会自动参与。\

<>    注意事项：创建行会请避免不健康文字，共建和谐网络文明！

 

 

[@查询建会]

#IF

CHECKLEVELEX > 0

#ACT

SetMerchantDlgImgName xk1.png

#SAY

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\

　　　　    <COLOR=$00FF92 ≡≡><COLOR=$00FFA3 Ｍ><COLOR=$00FFB4 Ｉ><COLOR=$00FFD6 Ｒ><COLOR=$00FFE7 ２０００><COLOR=$00FFF8 ＊><COLOR=$00E4FF 醉><COLOR=$00D3FF 新><COLOR=$00C2FF 独><COLOR=$00B1FF 家><COLOR=$00A0FF 脚><COLOR=$0079FF 本≡≡>\

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\

<>  建立行会您应该证明您有资格，须支付一万米宝作为酬劳。\

<>  而且要取得位于沃玛寺庙底部深处、沃玛教主所拥有的号角！\ \ \

<>  <返回/@MAIN>

 

 

 

 

 

[@创建行会]

#IF

CHECKLEVELEX > 0

#ACT

SetMerchantDlgImgName xk1.png

#SAY

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\

　　　　    <COLOR=$00FF92 ≡≡><COLOR=$00FFA3 Ｍ><COLOR=$00FFB4 Ｉ><COLOR=$00FFD6 Ｒ><COLOR=$00FFE7 ２０００><COLOR=$00FFF8 ＊><COLOR=$00E4FF 醉><COLOR=$00D3FF 新><COLOR=$00C2FF 独><COLOR=$00B1FF 家><COLOR=$00A0FF 脚><COLOR=$0079FF 本≡≡>\

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\ \

<>  填写您要建立的行会名字，但我需要：沃玛号角+1万米宝的酬劳。\ \

<>  <我要建立行会/@建立行会>\ \

<>  <返回/@MAIN>

 

[@建立行会]

#IF

H呵呵eGuild

#ACT

MESSAGEBOX 你有行会就别来趁热闹了！

CLOSE

#ELSEACT

QUERYVALUE 30 0 20 @建立确认 输入你要建立的行会名字：

BREAK

 

[@建立确认]

#IF

CHECKSTRINGLIST ..\..\GuildBase\GuildList.txt <$STR(S30)>

#ACT

MESSAGEBOX <$STR(S30)>，已被使用，请重新输入。

CLOSE

BREAK

 

#IF

CHECKITEM 沃玛号角 1

CHECKGAMEGOLD ? 10000

#ACT

TAKE 沃玛号角 1

GAMEGOLD – 10000

BREAK

GMEXECUTE +行会 <$STR(S30)> <$USERNAME>

MESSAGEBOX <$STR(S30)>，行会建立成功！

CLOSE

BREAK

 

;—————————————————————————

;—————————————————————————

 

[@行会战争]

#IF

CHECKLEVELEX > 0

#ACT

SetMerchantDlgImgName xk1.png

#SAY

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\

　　　　    <COLOR=$00FF92 ≡≡><COLOR=$00FFA3 Ｍ><COLOR=$00FFB4 Ｉ><COLOR=$00FFD6 Ｒ><COLOR=$00FFE7 ２０００><COLOR=$00FFF8 ＊><COLOR=$00E4FF 醉><COLOR=$00D3FF 新><COLOR=$00C2FF 独><COLOR=$00B1FF 家><COLOR=$00A0FF 脚><COLOR=$0079FF 本≡≡>\

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\ \

<>  填写与您交战的敌对行会的名字，申请战争须支付5万米宝。\ \

<>  <立即申请行会战争/@建立战争>\ \

<>  <返回/@MAIN>

 

[@建立战争]

#IF

IsGuildMaster

#ACT

QUERYVALUE 30 0 20 @开战确认 输入你要开战的行会名字：

#ELSEACT

MESSAGEBOX 你不是掌门人，不能申请行会战争。

CLOSE

BREAK

 

[@开战确认]

#IF

CHECKGAMEGOLD ? 50000

CHECKSTRINGLIST ..\..\GuildBase\GuildList.txt <$STR(S30)>

#ACT

GUILDWAR SELF <$STR(S30)>

MESSAGEBOX 你的行会正式向：<$STR(S30)>，宣战。

CLOSE

BREAK

#ELSEACT

MESSAGEBOX 条件不足，可能是行会名称不正确，或你元宝不足5万。

BREAK

 

;—————————————————————————

;—————————————————————————

 

[@退出战争]

#IF

CHECKLEVELEX > 0

#ACT

SetMerchantDlgImgName xk1.png

#SAY

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\

　　　　    <COLOR=$00FF92 ≡≡><COLOR=$00FFA3 Ｍ><COLOR=$00FFB4 Ｉ><COLOR=$00FFD6 Ｒ><COLOR=$00FFE7 ２０００><COLOR=$00FFF8 ＊><COLOR=$00E4FF 醉><COLOR=$00D3FF 新><COLOR=$00C2FF 独><COLOR=$00B1FF 家><COLOR=$00A0FF 脚><COLOR=$0079FF 本≡≡>\

<COLOR=clAqua  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>\ \

<>  投降是合法与被认可的行为，但请我阻止战争需要10万米宝。\ \

<>  <立即停止行会战争/@停止战争>\ \

<>  <返回/@MAIN>

 

[@停止战争]

#IF

IsGuildMaster

#ACT

QUERYVALUE 30 0 20 @停战确认 输入你要停战的行会名字：

#ELSEACT

MESSAGEBOX 你不是掌门人，不能停止行会战争。

CLOSE

BREAK

 

[@停战确认]

#IF

CHECKGAMEGOLD ? 100000

CHECKSTRINGLIST ..\..\GuildBase\GuildList.txt <$STR(S30)>

#ACT

CANCELGUILDWAR SELF <$STR(S30)>

MESSAGEBOX 与：<$STR(S30)>，之间的战争停止。

CLOSE

BREAK

#ELSEACT

MESSAGEBOX 条件不足，可能是行会名称不正确，或你元宝不足10万。

BREAK