;;邪恶之眼制作,QQ:942479379
[@JifenCashIn1]
{
#ACT
MOV B1 %USERID
LOADVALUE D2 "QuestDiary\玩家储存记录.txt" %B1 个数
#SAY
当您 游戏金币 太多不会叠加的时候!\
你可以在我这里 存取一下 ,帮你把所有钻石叠加起来\
────────────────────────\
{FCOLOR/12}[ <储存游戏金币/@开始储存金币_1> ] [ <取出游戏金币/@开始实物金币_1> ]\
────────────────────────\
您目前存入了 {FCOLOR/1}<$OUTPUT(D2)>{FCOLOR/12} 个游戏金币\
[@开始储存金币_1]
#IF
checkitem 游戏金币 1
#SAY
────────────────────────\
{FCOLOR/12}[{FCOLOR/1} 储存游戏金币 {FCOLOR/12}] [ <取出游戏金币/@开始实物金币_1> ]\
────────────────────────\
_ [ <请输入您需要储存的游戏金币数量/@@金币数量8> ]
#ELSESAY
{FCOLOR/1}您的包裹内没有可储存的游戏金币{FCOLOR/12}
[@开始实物金币_1]
#ACT
MOV A1 %USERID
MOV D7 1
LOADVALUE D0 "QuestDiary\玩家储存记录.txt" %A1 个数
#if
Equal D0 ""
#SAY
─────────────────────────\
没有ID为[{FCOLOR/10} <$OUTPUT(A1)> {FCOLOR/12}]的金币数据. [ <返回上层菜单/@main> ]\
─────────────────────────\
#ELSEACT
GOTO @领取金币_3
[@领取金币_3]
#if
equal D0 0
#SAY
─────────────────────────\
您的[{FCOLOR/10} 游戏金币 {FCOLOR/12}]已经取完了 [ <返回上层菜单/@main> ]\
─────────────────────────\
#ELSESAY
─────────────────────────\
您存放的金币数量=[{FCOLOR/10} <$OUTPUT(D0)> {FCOLOR/12}]个. [ <领取存放的金币/@@取游戏金币啦> ]\
─────────────────────────\
[@@取游戏金币啦]
#ACT
mov D4 %INPUTSTR
#IF
Small D4 1
#ACT
SYSMSG "温馨提示: 请输入数值 1 至 51000"
break
#IF
Large D4 51000
#ACT
SYSMSG "温馨提示: 请输入数值 1 至 51000"
break
#IF
elarge D0 %D4
#ACT
Close
MOV B0 %USERID
LOADVALUE D1 "QuestDiary\玩家储存记录.txt" %B0 个数
DEC D1 %D4
SAVEVALUE "QuestDiary\玩家储存记录.txt" %B0 个数 %D1
GIVE 游戏金币 %D4
SYSMSG "温馨提示: 成功取出游戏金币 <$OUTPUT(D4)> 个.目前还有游戏金币 <$OUTPUT(D1)> 个"
[@@金币数量8]
#ACT
mov D4 %INPUTSTR
#IF
Small D4 1
#ACT
SYSMSG "温馨提示: 请输入数值 1 至 51000"
break
#IF
Large D4 51000
#ACT
SYSMSG "温馨提示: 请输入数值 1 至 51000"
break
#IF
checkitem 游戏金币 %D4
#ACT
Close
MOV B0 %USERID
LOADVALUE D1 "QuestDiary\玩家储存记录.txt" %B0 个数
INC D1 %D4
SAVEVALUE "QuestDiary\玩家储存记录.txt" %B0 个数 %D1
take 游戏金币 %D4
SYSMSG "温馨提示: 成功存入游戏金币 <$OUTPUT(D4)> 个.目前储存了游戏金币 <$OUTPUT(D1)> 个"
}
;;邪恶之眼制作,QQ:942479379