GM部落 发表于 2015-12-31 10:47:47

传奇版本存款取款脚本

传奇金币存取脚本
[@存款1]
{
#if
#act
#SAY
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆            <“汇通天下——便商利民”>            ┆\
┆┄┄┄┄┄┄┬┄┄┄┄┄-┬┄┄┄┄┄┬┄┄-┄┄┄┄┆\
┆             ┆ <保管金币/@保管金币>┆ <掏出金币/@掏出金币> ┆         ┆\
┆┄┄┄┄┄┄┴┄┄┄┄┄-┴┄┄┄┄┄┴┄┄-┄┄┄┄┆\
┆ 金币当前<仓库存款/SCOLOR=249>:[ <$HUMAN(仓库存款)>] 金币                ┆\
┆ <1.><存款数目和取款数目不能为0，不能为负数/SCOLOR=253>            ┆\
┆ <2.><存取款的金币数目请输入数字,不能大于你金币总数/SCOLOR=250>   ┆\
╚┄┄┄┄┄┄┄┄┄┄┄<退出银行/@EXIT>┄┄┄┄┄┄┄┄┄┄┄╝\
[@保管金币]
#ACT
MOV P9 2000000000
DEC P9 <$HUMAN(仓库存款)>
MOV P8 <$STR(P9)>       8为还可存入金币
#SAY
温馨提示: 你目前还可存入: [ <$STR(P8)> ] 金币\ \
金币存款上限20亿！！！！\
<输入保管数目/@@InPutInteger1> \ \
<返回/@main>
[@掏出金币]
#IF
#ACT
MOV S88 <$GOLDCOUNT>
DEC S88 200000000
MOV p88 <$STR(S88)>
MOV P89 200000000
DEC P89 <$STR(P88)>
#SAY
温馨提示: 你目前最多能掏出: [ <$HUMAN(仓库存款)> ] 金币\ \
<输入掏出数目/@@InPutInteger2>
[@InPutInteger1]
#IF
large N1 0
#ACT
GOTO @BGJB00
#ELSEACT
SENDMSG 5 [仓库保管员]:所存金币数目不能为0或负数!
GOTO @保管金币1
[@BGJB00]
#IF
checkgold <$STR(N1)>
#ACT
GOTO @BGJB01
#ELSEACT
SENDMSG 5 [仓库保管员]:您身上没有这么多金币!
GOTO @保管金币1
[@BGJB01]
#IF
large P8 <$STR(N1)>
#ACT
TAKE 金币 <$STR(N1)>
CALCVAR HUMAN 仓库存款 + <$STR(N1)>
SAVEVAR HUMAN 仓库存款 .\QuestDiary\SkY引擎\变量文件\重要数据Save.txt
SENDMSG 5 [仓库保管员]:您成功存入了[<$STR(N1)>]金币
GOTO @保管金币1
#ELSEACT
SENDMSG 5 [仓库保管员]:您的仓库存不下这么多金币!
GOTO @保管金币1
[@InPutInteger2]
#IF
large N2 0
#ACT
MOV N9 <$HUMAN(仓库存款)>
MOV N8 <$HUMAN(仓库存款)>
INC N9 1
DEC N8 <STR(N2)>
GOTO @QCJB00
#ELSEACT
SENDMSG 5 [仓库保管员]:所取金币数目不能为0或负数!
GOTO @掏出金币1
[@QCJB00]
#IF
CHECKVAR HUMAN 仓库存款 = <$STR(N2)>
#ACT
GOTO @QCJB01
#ELSEACT
GOTO @QCJB02
[@QCJB02]
#IF
CHECKVAR HUMAN 仓库存款 > <$STR(N2)>
#ACT
GOTO @QCJB01
#ELSEACT
SENDMSG 5 [仓库保管员]:您没有存放这么多金币!
GOTO @掏出金币1
[@QCJB01]
#IF
large P89 <STR(N2)>
#ACT
CALCVAR HUMAN 仓库存款 - <$STR(N2)>
SAVEVAR HUMAN 仓库存款 .\QuestDiary\SkY引擎\变量文件\重要数据Save.txt
GIVE 金币 <$STR(N2)>
SENDMSG 5 [仓库保管员]:您成功掏出了[<$STR(N2)>]金币
GOTO @掏出金币1
#ELSEACT
SENDMSG 5 [仓库保管员]:您身上放不下这么金币。
GOTO @掏出金币1
[@IsInFilterList]
#Act
MessageBox 输入数据中包含了非法字符.请重新编纂
Goto @main
Break

lsx12345678 发表于 2017-11-20 00:07:09

666666666666666666666

gaofeng6813 发表于 2017-11-22 05:33:17

都看了，这帖子有意思。

gaofeng6813 发表于 2017-11-22 05:38:03

哎 我我我怎么办啊??

gaofeng6813 发表于 2017-11-22 05:42:51

没人理我。。。。

gaofeng6813 发表于 2017-11-22 05:48:07

老天不公啊.....

gaofeng6813 发表于 2017-11-22 05:52:24

晕倒................................

gaofeng6813 发表于 2017-11-22 05:56:47

唉!猪!你怎么了?

gaofeng6813 发表于 2017-11-22 06:00:45

我在顶贴~！~!!!!!!!!!

gaofeng6813 发表于 2017-11-22 06:05:00

也有啊,前天不是你也到一个很狂的贴里去了吗?
页: [1] 2 3 4 5 6 7
查看完整版本: 传奇版本存款取款脚本