(@@InPutString @@InputInteger) [@main]#ifisadmin#sa变态y\ 提示:输入二区账号,领取补偿. \
(@@InPutString @@InputInteger)
[@main]
#if
isadmin
#sa变态y
\ 提示:输入二区账号,领取补偿. \
\ 请输入您的二区账号/@@InPutString10 清除数据/@清除\
\ \
\ 注意:每个账号仅可以兑换一次,使用过将作废.\
发现用小号重复领取,封号处理。\
\ 两天后自动删除。 \
\ 一共有$STR(G10)位玩家兑换成功. \
\ \
\ 神马浮云传奇 关闭对话/@EXIT\
#elsesay
\ 提示:输入CDKEY,领取奖励. \新开非合击传奇私服
\ 请输入您要兑换的CDKEY/@@InPutString10\诛仙传奇
\ \
\ 注意:每个账号仅可以兑换一次,使用过将作废.\
发现用小号重复领取,封号处理。\
\ 两天后自动删除。 \
\ 一共有$STR(G10)位玩家兑换成功. \
\ \
\ 传奇私服刷元宝 关闭对话/@EXIT\
[@@InPutString10]
#if
CheckPullulation 1680
CheckTextList $STR(S10) ..\QuestDiary\数据文件\兑换码.txt
#act
DelTextList $STR(S10) ..\QuestDiary\数据文件\兑换码.txt
goto @奖励
#elseact
MESSAGEBOX 提示:\CDKEY码已经失效,请确认后再使用.您的成长值过多!
goto @main
break
[@奖励]
#ACT
movr N12 1680 1680
SendMsg 2 恭喜合区玩家#6FFFF/8#6[#7$USERNAME#7]#5,得到补偿。
ChangePullulation + $STR(N12)
MESSAGEBOX 提示:\恭喜您兑换成功!\您此次使用的CDKEY兑换码为:$str(s10)\兑换的是成长值$STR(N12).\欢迎下次使用.
INC G10 1
goto @main
break
[@清除]
#if
isadmin
#act
mov G10 0
mov G11 0
MESSAGEBOX 提示:数据清理完毕.
#elseact
MESSAGEBOX 提示:您不是管理员,不能使用此功能.
break
TAGS:传奇新服网微端