元宝兑换灵符脚本

[@兑换灵符]
{
亲爱的玩家：<$USERNAME>\ \
当前您拥有<元宝数量>：<$GAMEGOLD>    <灵符数量>：<$GAMEGIRD>\ \
请输入需要兑换的灵符数量(1-1000):<输入数字/@@INPUTINTEGER4>\ \
<关闭/@EXIT>\ \

[@@INPUTINTEGER4]
#IF
CHECKLEVELEX > 0
#ACT
DELAYGOTO 1 ~INPUTINTEGER4
[~INPUTINTEGER4]
#IF
SMALL M4 1
#SAY
失败：每次兑换的灵符数量在(1-1000)之间\ \
<请重新输入用于兑换元宝的灵符数量/@@INPUTINTEGER4>\
<返回/@兑换灵符>\
#ACT
BREAK
#IF
LARGE M4 1000
#SAY
失败：每次兑换的灵符数量在(1-1000)之间\ \
<请重新输入用于兑换元宝的灵符数量/@@INPUTINTEGER4>\
<返回/@兑换灵符>\
#ACT
BREAK
#IF
CHECKGAMEGOLD ? <$STR(M4)>
#ACT
GAMEGOLD - <$STR(M4)>
GAMEGIRD + <$STR(M4)>
SENDMSG 5 成功兑换灵符<$STR(M4)>张
MOV M4 0
CLOSE
BREAK
#ELSEACT
MOV M4 0
SENDMSG 5 你身上没有那么多的元宝
CLOSE
BREAK
[@IsInFilterList]
#IF
CHECKLEVELEX > 0
#ACT
MESSAGEBOX 输入数据中包含了非法字符.请重新编辑
Goto @兑换灵符
BREAK
}