[Gm版本库]传奇脚本系列-群雄联盟

[@main]
\              <--====≡ヅ＊群雄联盟＊べ≡====--/SCOLOR=249>\
【<$USERNAME>】<是找人来激情；还是寻求帮助呢？找我你就找对人了/SCOLOR=250>\ \
<给我100元宝我就能为你在全服叫阵一次！/SCOLOR=250>   元宝数量:<$GAMEGOLD>棵\ \
<给我200元宝我就可以为你放出行会支援令！/SCOLOR=250>           <返回盟重[url=]/@woyao>\[/url] \
<给我400元宝我就可以为你放出全服激情令！/SCOLOR=250>           <关    闭[url=]/@exlt>\[/url] \
<发布个人叫阵[url=]/@@InPutInteger59[/url]>          <发布行会支援令/@行会>              <发布全服激情令/@全服>

[@全服]
#If
CHECKGAMEGOLD > 99
#ACT
GAMEGOLD - 100
mov A71 <$USERNAME>
Gmexecute 开始提问 @全服叫阵
#ELSEACT
messagebox 您没有那么多的元宝!
[@woyao]
#ACT
mapmove 3 335 327

[@@InPutInteger59]
#If
#ACT
DelayGoto 1 @rmb1a
break
[@exlt]
#if
#act
CreateFile .\DlsabieTakeOffLlst.txt
goto @exit
[@rmb1a]
#IF
#ACT
messagebox 请输入要叫阵玩家的名字!
GOTO @main
BREAK
#IF
CHECKGAMEGOLD > 99
#ACT
GAMEGOLD - 100
GOTO @JKKS
#ELSEACT
messagebox 您没有那么多的元宝!

[@JKKS]
#IF
#ACT
mov A69 <$STR(N59)>
mov A70 <$USERNAME>
Gmexecute 开始提问 @个人叫阵

[@行会]
#IF
CHECKGAMEGOLD > 199
#ACT
GAMEGOLD - 200
MOV A51 <$GUILDNAME>
MOV A50 <$USERNAME>
MOV A53 <$MAPNAME>
MOV A52 <$MAPCODE>
MOV A54 <$SELFX>
MOV A56 <$SELFY>
Gmexecute 开始提问 @行会支援令
SENDMSG 5 行会支援令已放出，请等待你的援军！
BREAK
#ELSEACT
messagebox 您没有那么多的元宝!