传奇服务端存款取款脚本

温柔老虎

传奇金币存取脚本
[@存款1]
{
#if
#act
#SAY
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆                            ┆\
┆┄┄┄┄┄┄┬┄┄┄┄┄-┬┄┄┄┄┄┬┄┄-┄┄┄┄┆\
┆             ┆   ┆  ┆         ┆\
┆┄┄┄┄┄┄┴┄┄┄┄┄-┴┄┄┄┄┄┴┄┄-┄┄┄┄┆\
┆ 金币当前:[ ] 金币                ┆\
┆               ┆\
┆    ┆\
╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\[/url]
[@保管金币]
#ACT
MOV P9 2000000000
DEC P9
MOV P8        8为还可存入金币
#SAY
温馨提示: 你目前还可存入: [  ] 金币\ \
金币存款上限20亿！！！！\
\ \

[@掏出金币]
#IF
#ACT
MOV S88
DEC S88 200000000
MOV p88
MOV P89 200000000
DEC P89
#SAY
温馨提示: 你目前最多能掏出: [  ] 金币\ \

[@InPutInteger1]
#IF
large N1 0
#ACT
GOTO @BGJB00
#ELSEACT
SENDMSG 5 [仓库保管员]:所存金币数目不能为0或负数!
GOTO @保管金币1
[@BGJB00]
#IF
checkgold
#ACT
GOTO @BGJB01
#ELSEACT
SENDMSG 5 [仓库保管员]:您身上没有这么多金币!
GOTO @保管金币1
[@BGJB01]
#IF
large P8
#ACT
TAKE 金币
CALCVAR HUMAN 仓库存款 +
SAVEVAR HUMAN 仓库存款 .\QuestDiary\SkY引擎\变量文件\重要数据Save.txt
SENDMSG 5 [仓库保管员]:您成功存入了[]金币
GOTO @保管金币1
#ELSEACT
SENDMSG 5 [仓库保管员]:您的仓库存不下这么多金币!
GOTO @保管金币1
[@InPutInteger2]
#IF
large N2 0
#ACT
MOV N9
MOV N8
INC N9 1
DEC N8
GOTO @QCJB00
#ELSEACT
SENDMSG 5 [仓库保管员]:所取金币数目不能为0或负数!
GOTO @掏出金币1
[@QCJB00]
#IF
CHECKVAR HUMAN 仓库存款 =
#ACT
GOTO @QCJB01
#ELSEACT
GOTO @QCJB02
[@QCJB02]
#IF
CHECKVAR HUMAN 仓库存款 >
#ACT
GOTO @QCJB01
#ELSEACT
SENDMSG 5 [仓库保管员]:您没有存放这么多金币!
GOTO @掏出金币1
[@QCJB01]
#IF
large P89
#ACT
CALCVAR HUMAN 仓库存款 -
SAVEVAR HUMAN 仓库存款 .\QuestDiary\SkY引擎\变量文件\重要数据Save.txt
GIVE 金币
SENDMSG 5 [仓库保管员]:您成功掏出了[]金币
GOTO @掏出金币1
#ELSEACT
SENDMSG 5 [仓库保管员]:您身上放不下这么金币。
GOTO @掏出金币1
[@IsInFilterList]
#Act
MessageBox 输入数据中包含了非法字符.请重新编纂
Goto @main
Break

chenxinwei

这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com

123456811

努力赚币中。。。

李亚兵

拿币走人。。。。

臭粑爷

感谢楼主的无私分享！要想GM爱好者：www.gmahz.com好 就靠你我他

孤客9116

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

风吹吹蛋蛋疼风w

楼主发贴辛苦了，谢谢楼主分享！我觉得GM爱好者：www.gmahz.com是注册对了！

橘宝很可爱

楼主太厉害了！楼主，I*老*虎*U！我觉得GM爱好者：www.gmahz.com真是个好地方

薛岚天

我看不错噢 谢谢楼主！GM爱好者：www.gmahz.com越来越好！

qq3153430253

论坛不能没有像楼主这样的人才啊！我会一直支持GM爱好者：www.gmahz.com