传奇一条龙,GM论坛,GM部落,传奇版本库,传奇服务端,传奇单机版 - dtbbk.Com

 找回密码
 立即注册

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

查看: 1167|回复: 0

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

[复制链接]
发表于 2012-12-21 01:41:22 | 显示全部楼层 |阅读模式
[@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 您没有那么多的元宝!

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver/手机版/Gm版本库 ( 蜀ICP备20007044号-4 )|网站地图

GMT+8, 2024-5-24 00:00 , Processed in 0.079006 second(s), 25 queries .

Powered by GM版本库 X3.4

© 2001-2011 传奇版本库>  template by 版本库