传奇存款取款脚本

传奇存款取款脚本。

[@存款1]

{

#if

#act

#SAY

╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\

┆              <“汇通天下——便商利民”>              ┆\

┆┄┄┄┄┄┄┬┄┄┄┄┄-┬┄┄┄┄┄┬┄┄-┄┄┄┄┆\

┆             ┆ <保管金币/@保管金币>  ┆ <掏出金币/@掏出金币> ┆         ┆\

┆┄┄┄┄┄┄┴┄┄┄┄┄-┴┄┄┄┄┄┴┄┄-┄┄┄┄┆\

┆ 金币当前<仓库存款/SCOLOR=249>:[ <$HUMAN(仓库存款)>] 金币                ┆\

┆ <1.><存款数目和取款数目不能为0，不能为负数/SCOLOR=253>              ┆\

┆ <2.><存取款的金币数目请输入数字,不能大于你金币总数/SCOLOR=250>   ┆\

╚┄┄┄┄┄┄┄┄┄┄┄<退出银行[url=]/@EXIT>┄┄┄┄┄┄┄┄┄┄┄╝\[/url]

[@保管金币]

#ACT

MOV P9 2000000000

DEC P9 <$HUMAN(仓库存款)>

MOV P8 <$STR(P9)>       8为还可存入金币

#SAY

温馨提示: 你目前还可存入: [ <$STR(P8)> ] 金币\ \

金币存款上限20亿！！！！\

<输入保管数目[url=]/@@InPutInteger1[/url]> \ \

<返回[url=]/@main[/url]>

[@掏出传奇一条龙金币]

#IF

#ACT

MOV S88 <$GOLDCOUNT>

DEC S88 200000000

MOV p88 <$STR(S88)>

MOV P89 200000000

DEC P89 <$STR(P88)>

#SAY

温馨提示: 你目前最多能掏出: [ <$HUMAN(仓库存款)> ] 金币\ \

<输入掏出数目[url=]/@@InPutInteger2[/url]>

[@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