|
发表于 2017-3-23 11:13:12
|
显示全部楼层
[@main]
欢迎使用在线元宝充值系统。\
面值为10元,30元,50元,100元.\
面值大的充值卡在优惠时段可获得充值额外赠送。\
购卡联系客服<QQ:><$QQ> \ \
<请输入你的卡号:/@@InPutString98> <$STR(S98)>\
<请输入你的卡密:/@@InPutString99> <$STR(S99)>\
<注意:元宝比:1元=1个。>\
<确定无误进行卡号识别/@QUEDWUCZ>\
[@QUEDWUCZ]
#IF
CHECKTEXTLIST ..\QuestDiary\标记数据\10.txt <$STR(S98)> <$STR(S99)>
#ACT
MUL N1 10 1
MOV N2 10
SET [900] 1
GOTO @卡号识别
break
#IF
CHECKTEXTLIST ..\QuestDiary\标记数据\30.txt <$STR(S98)> <$STR(S99)>
#ACT
MUL N1 30 1
MOV N2 30
SET [900] 1
GOTO @卡号识别
break
#IF
CHECKTEXTLIST ..\QuestDiary\标记数据\50.txt <$STR(S98)> <$STR(S99)>
#ACT
MUL N1 50 1
MOV N2 50
SET [900] 1
GOTO @卡号识别
break
#IF
CHECKTEXTLIST ..\QuestDiary\标记数据\100.txt <$STR(S98)> <$STR(S99)>
#ACT
MUL N1 100 1
MOV N2 100
SET [900] 1
GOTO @卡号识别
break
#IF
CHECKTEXTLIST ..\QuestDiary\标记数据\300.txt <$STR(S98)> <$STR(S99)>
#ACT
MUL N1 300 1
MOV N2 300
SET [900] 1
GOTO @卡号识别
break
#ELSEACT
MESSAGEBOX 无法识别的卡号!
break
[@卡号识别]
#SAY
卡号为: <$STR(S98)>\
卡密为: <$STR(S99)>\ \
此卡为:《<$STR(N2)>元》充值卡!\
此次充值你可以获得:<$STR(N1)> 元宝!\ \
<确认无错/@KAISCZHI>
#ELSESAY
您的输入的卡号或密码不对!\
请确保是否输入错误,点返回重新输入! \ \
<返回/@main>
[@KAISCZHI]
#IF
check [900] 1
#ACT
SET [900] 0
GAMEGOLD + <$STR(N1)>
SENDMSG 5 充值成功:增加<$STR(N1)>元宝,你当前帐户里元宝数为:<$GAMEGOLD>
SENDMOVEMSG 0 251 249 350 1 %s使用在线充值卡--充值成功:增加<$STR(N1)>元宝。
DelTextList ..\QuestDiary\标记数据\10.txt <$STR(S98)> <$STR(S99)>
DelTextList ..\QuestDiary\标记数据\30.txt <$STR(S98)> <$STR(S99)>
DelTextList ..\QuestDiary\标记数据\50.txt <$STR(S98)> <$STR(S99)>
DelTextList ..\QuestDiary\标记数据\100.txt <$STR(S98)> <$STR(S99)>
DelTextList ..\QuestDiary\标记数据\300.txt <$STR(S98)> <$STR(S99)>
break
#SAY
欢迎使用点卡充值系统 \ \
卡号为: <$STR(S98)>\
卡密为: <$STR(S99)>\ \
状态:<充值成功.../AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \ \ \ \ \
<关闭/@exit>
#elsesay
GOTO @zuobijc
[@zuobijc]
#act
CLEARDELAYGOTO
AddTextList ..\QuestDiary\充值系统\非法充值名单.txt <$USERNAME>
#say
你的作弊行为已被系统记录...\ \ \ \ \
如记录超过三次,你将永久被隔离!\ \
<关闭/@exit>
<返回/@main>
[@InPutString99]
#ACT
MOV S99 <$STR(S99)>
GOTO @main
break
[@InPutString98]
#ACT
MOV S98 <$STR(S98)>
GOTO @main
Break
|
|