元宝寄存脚本

Admins

[@MAIN]
#IF
EQUAL G0 0
#SAY
\
测试区所有的<COLOR=RED 元宝>均可以在我这里寄存,等正式\
开区后再到我这里来领取<COLOR=RED 元宝>.\
<COLOR=RED 注意:元宝>寄存和取出均<COLOR=GREEN 绑定的游戏账号>\
<COLOR=GREEN 请牢记自己测试区的账号 当前开区状态:>[<COLOR=GREEN 开区模式>]\
<COLOR=RED ------------------------------------------------------->\
    <元宝寄存/@TIGER寄存YB>       <查询寄存数量/@TIGER查询YB>      <提取元宝寄存/@TIGER提取YB>\
#ACT
CLEARVAR S0 99
BREAK

#IF
LARGE G0 0
#SAY
\
测试区所有的<COLOR=RED 元宝>均可以在我这里寄存,等正式\
开区后再到我这里来领取<COLOR=RED 元宝>.\
<COLOR=RED 注意:元宝>寄存和取出均<COLOR=GREEN 绑定的游戏账号>\
<COLOR=GREEN 请牢记自己测试区的账号 当前开区状态:>[<COLOR=GREEN 测试模式>]\
<COLOR=RED ------------------------------------------------------->\
    <元宝寄存/@TIGER寄存YB>       <查询寄存数量/@TIGER查询YB>      <提取元宝寄存/@TIGER提取YB>\
#ACT
CLEARVAR S0 99
BREAK





[@TIGER查询YB]

#IF
POSINLIST ☆<$ACCOUNT>| ..\QUESTDIARY\数据文件\元宝寄存.TXT S1
#ACT
SPLIT $STR(S1) | S2
#SAY
\\
你当前账号元宝寄存数量:<$STR(S3)>个!\\
                <返回首页/@MAIN>
#ACT
BREAK
#ELSESAY
\\
你当前账号没有寄存任何元宝\\
                <返回首页/@MAIN>




[@TIGER寄存YB]
#IF
LARGE G0 0
#ACT
MOV M15
QUERYVAL 15 1 4 @元宝寄存开始 请输入你要寄存的元宝数量。
BREAK
#ELSEACT
MESSAGEBOX 已经正式开区了,不能元宝寄存！
BREAK


[@元宝寄存开始]

#IFONE
SMALL M15 1
LARGE M15 9999
#ACT
SENDMSG 5 输入数量错误!
BREAK


#IF
SMALL $GAMEGOLD $STR(M15)
#ACT
MESSAGEBOX 寄存失败，您当前元宝不足<$STR(M15)>!
BREAK

#IF
POSINLIST ☆<$ACCOUNT>| ..\QUESTDIARY\数据文件\元宝寄存.TXT S1
#ACT
SPLIT $STR(S1) | S2
DELVARLIST $STR(S1) ..\QUESTDIARY\数据文件\元宝寄存.TXT 1
GAMEGOLD - $STR(M15)
MOV P1 $INC.$STR(S3).$STR(M15)
ADDVARLIST ☆<$ACCOUNT>|<$STR(P1)> ..\QUESTDIARY\数据文件\元宝寄存.TXT
MESSAGEBOX 寄存成功，你一共寄存了[<$STR(P1)>]个元宝，开区使用此账号可以直接领取！
BREAK
#ELSEACT
GAMEGOLD - $STR(M15)
ADDVARLIST ☆<$ACCOUNT>|<$STR(M15)> ..\QUESTDIARY\数据文件\元宝寄存.TXT
MESSAGEBOX 寄存成功，你一共寄存了[<$STR(M15)>]个元宝，开区使用此账号可以直接领取！
BREAK





[@TIGER提取YB]

#IF
!EQUAL G0 0
#ACT
MESSAGEBOX 只有正式开区的时候才可以提取寄存的元宝!
BREAK

#IF
POSINLIST ☆<$ACCOUNT>| ..\QUESTDIARY\数据文件\元宝寄存.TXT S1
#ACT
DELVARLIST $STR(S1) ..\QUESTDIARY\数据文件\元宝寄存.TXT 1
SPLIT $STR(S1) | S2
GAMEGOLD + $STR(S3)
SENDMSG 7 恭喜你领取了测试区寄存元宝<$STR(S3)>个！
CLEARVAR S0 99
BREAK
#ELSEACT
MESSAGEBOX 你没有可提取的元宝！
BREAK