傳奇服務端存款取款腳本

傳奇金幣存取腳本
[@存款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