传奇论坛一条龙金币积份兑换元宝脚本

。(@@InPutInteger, @@InPutString)
[@main]
尊敬的<$USERNAME>,欢迎来到<$SERVERNAME>.为答谢玩家的支持\
本服特别推出充值回馈，凡每充值1元将获得1点充值积分！\
你可以使用积分在我这里换取元宝，3点积分等于1个元宝！\
还可以使用金币购买元宝哦！每个元宝价值10W金币！\ \
<积分兑换元宝/@积分换> <金币购买元宝/@金币换> <查询我的积分/@查积分>

[@查积分]
\
\
您当前的积分为：<$HUMAN(消费积分)>，感谢您的支持！\ \
<积分兑换元宝/@积分换> <金币购买元宝/@金币换> <返回/@main>

[@金币换]
\
\
请问您需要用金币购买多少元宝？\ \
<请输入整数/@@InPutInteger99> \ \
<积分兑换元宝/@积分换> <查询我的积分/@查积分> <返回/@main>
[@@InPutInteger99]
#if
CHECKLEVELEX > 0
#ACT
DelayGoto 1 ~InPutInteger99
BREAK
[~InPutInteger99]
#IF
SMALL M99 1
#ACT
MESSAGEBOX 非法输入！请输入1以上的数字！
BREAK
#if
checklevelex > 0
#act
MUL M99 100000
#IF
CHECKGOLD <$STR(M99)>
#ELSEACT
MESSAGEBOX 您要求兑换的元宝数量需要<$STR(M99)>金币，您的金币不足哦！
break
#if
LARGE M99 0
#ACT
TAKE 金币 <$STR(M99)>
DIV M99 100000
GAMEGOLD + <$STR(M99)>
SENDMSG 6 购买成功，当前元宝余额为<$GAMEGOLD>个！
break

[@积分换]
\
\
请问您需要用积分兑换多少元宝？\ \
<请输入整数/@@InPutInteger98> \ \
<金币购买元宝/@金币换> <查询我的积分/@查积分> <返回/@main>

[@@InPutInteger98]
#if
CHECKLEVELEX > 0
#ACT
DelayGoto 1 ~InPutInteger98
BREAK
[~InPutInteger98]
#IF
SMALL M98 1
#ACT
MESSAGEBOX 非法输入！请输入1以上的数字！
BREAK
#if
checklevelex > 0
#act
MUL M98 3
#IF
CHECKVAR HUMAN 消费积分 < <$STR(M98)>
#ACT
MESSAGEBOX 您要求兑换的元宝数量需要<$STR(M98)>点积分，您的积分不足哦！
break
#if
LARGE M98 0
#ACT
CALCVAR HUMAN 消费积分 - <$STR(M98)>
SAVEVAR HUMAN 消费积分 ..\QuestDiary\群联数据臣\消费积分Save.txt
DIV M98 3
GAMEGOLD + <$STR(M98)>
SENDMSG 6 购买成功，当前元宝余额为<$GAMEGOLD>个！
break

论坛一条龙