傳奇服務(wù)端存款取款腳本

傳奇金幣存取腳本
[@存款1]
{
#if
#act
#SAY
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆                            ┆\
┆┄┄┄┄┄┄┬┄┄┄┄┄-┬┄┄┄┄┄┬┄┄-┄┄┄┄┆\
┆             ┆   ┆  ┆         ┆\
┆┄┄┄┄┄┄┴┄┄┄┄┄-┴┄┄┄┄┄┴┄┄-┄┄┄┄┆\
┆ 金幣當(dāng)前:[ ] 金幣                ┆\
┆               ┆\
┆    ┆\
╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\[/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 [倉(cāng)庫(kù)保管員]:所存金幣數(shù)目不能為0或負(fù)數(shù)!
GOTO @保管金幣1
[@BGJB00]
#IF
checkgold
#ACT
GOTO @BGJB01
#ELSEACT
SENDMSG 5 [倉(cāng)庫(kù)保管員]:您身上沒有這么多金幣!
GOTO @保管金幣1
[@BGJB01]
#IF
large P8
#ACT
TAKE 金幣
CALCVAR HUMAN 倉(cāng)庫(kù)存款 +
SAVEVAR HUMAN 倉(cāng)庫(kù)存款 .\QuestDiary\SkY引擎\變量文件\重要數(shù)據(jù)Save.txt
SENDMSG 5 [倉(cāng)庫(kù)保管員]:您成功存入了[]金幣
GOTO @保管金幣1
#ELSEACT
SENDMSG 5 [倉(cāng)庫(kù)保管員]:您的倉(cāng)庫(kù)存不下這么多金幣!
GOTO @保管金幣1
[@InPutInteger2]
#IF
large N2 0
#ACT
MOV N9
MOV N8
INC N9 1
DEC N8
GOTO @QCJB00
#ELSEACT
SENDMSG 5 [倉(cāng)庫(kù)保管員]:所取金幣數(shù)目不能為0或負(fù)數(shù)!
GOTO @掏出金幣1
[@QCJB00]
#IF
CHECKVAR HUMAN 倉(cāng)庫(kù)存款 =
#ACT
GOTO @QCJB01
#ELSEACT
GOTO @QCJB02
[@QCJB02]
#IF
CHECKVAR HUMAN 倉(cāng)庫(kù)存款 >
#ACT
GOTO @QCJB01
#ELSEACT
SENDMSG 5 [倉(cāng)庫(kù)保管員]:您沒有存放這么多金幣!
GOTO @掏出金幣1
[@QCJB01]
#IF
large P89
#ACT
CALCVAR HUMAN 倉(cāng)庫(kù)存款 -
SAVEVAR HUMAN 倉(cāng)庫(kù)存款 .\QuestDiary\SkY引擎\變量文件\重要數(shù)據(jù)Save.txt
GIVE 金幣
SENDMSG 5 [倉(cāng)庫(kù)保管員]:您成功掏出了[]金幣
GOTO @掏出金幣1
#ELSEACT
SENDMSG 5 [倉(cāng)庫(kù)保管員]:您身上放不下這么金幣。
GOTO @掏出金幣1
[@IsInFilterList]
#Act
MessageBox 輸入數(shù)據(jù)中包含了非法字符.請(qǐng)重新編纂
Goto @main
Break