卡密充值脚本怎么设置充值的货币和数量

278168774 · 发表于 2021-12-18 11:38:17

(@@InPutString)
[@main]
欢迎使用点卡充值系统 \ \
卡号：\
密码：\ \
状态：<请输入卡号。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<输入卡号/@@InPutString2(请输入充值卡卡号

> <在线购卡/@zaixiangk> <关闭/@exit>
[@InPutString2]
#IF
#ACT
DELAYGOTO 2000 @yanzhengkh
#SAY
欢迎使用点卡充值系统 \ \
卡号：<$STR(S2)> \
密码：\ \
状态：<正在验证卡号。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<输入密码/FCOLOR=7> <在线购卡/@zaixiangk> <关闭/@exit>
[@yanzhengkh]
#IF
  CHECKTEXTLIST ..\QuestDiary\充值系统\10元卡号.txt <$STR(S2)>
#ACT
  MUL N5 10 10
  MOV N4 10
  GOTO @kahaozq
  break
#ELSESAY
欢迎使用点卡充值系统 \ \
卡号：<$STR(S2)> <×/FCOLOR=249>\
密码：\ \
状态：<无法识别该卡号。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<返回/@main> <在线购卡/@zaixiangk> <关闭/@exit>
[@kahaozq]
#ACT
  CLEARDELAYGOTO
#SAY
欢迎使用点卡充值系统 \ \
卡号：<$STR(S2)> <√/FCOLOR=250>\
密码：\ \
状态：<请输入密码。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<输入密码/@@InPutString22(请输入充值卡密码

> <在线购卡/@zaixiangk> <关闭/@exit>
[@InPutString22]
#IF
#ACT
DELAYGOTO 2000 @yanzhengmm
#SAY
欢迎使用点卡充值系统 \ \
卡号：<$STR(S2)> <√/FCOLOR=250> \
密码：<$STR(S22)>\ \
状态：<正在验证密码。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<确定充值/FCOLOR=7> <在线购卡/@zaixiangk> <关闭/@exit>
[@yanzhengmm]
#IF
  CHECKTEXTLIST ..\QuestDiary\充值系统\10元密码.txt <$STR(S22)>
#ACT
  GOTO @mimazq
  break

#ELSESAY
欢迎使用点卡充值系统 \ \
卡号：<$STR(S2)> <√/FCOLOR=250> \
密码：<$STR(S22)> <×/FCOLOR=249>\ \
状态：<无法识别密码。。。/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \
<返回/@main> <在线购卡/@zaixiangk> <关闭/@exit>
[@mimazq]
欢迎使用点卡充值系统 \ \
卡号：<$STR(S2)> <√/FCOLOR=250> \
密码：<$STR(S22)> <√/FCOLOR=250>\ \
状态：此卡为<$STR(N4)>元充值卡，此次充值你可以获得：<$STR(N5)> 元宝。\ \
<确定充值/@quedingcz> <在线购卡/@zaixiangk> <关闭/@exit>

[@quedingcz]
#if
  CHECKTEXTLIST ..\QuestDiary\LC\机器码.txt <$MACHINEID>
#ACT
MESSAGEBOX 相同机器码只能领取一次！
#ELSEACT
GOTO @KKKKKK

[@KKKKKK]
#IF
  CHECKTEXTLIST ..\QuestDiary\充值系统\10元卡号.txt <$STR(S2)>
  CHECKTEXTLIST ..\QuestDiary\充值系统\10元密码.txt <$STR(S22)>
#ACT
  DELTEXTLIST ..\QuestDiary\充值系统\10元卡号.txt <$STR(S2)>
  DELTEXTLIST ..\QuestDiary\充值系统\10元密码.txt <$STR(S22)>
  ADDTEXTLIST ..\QuestDiary\LC\机器码.txt <$MACHINEID>
GOTO @kaishicz
break

#ELSEACT
  GOTO @zuobijc
[@kaishicz]
#act
  CLEARDELAYGOTO
  GAMEGOLD + <$STR(N5)>
  SENDMSG 5 充值成功：增加<$STR(N5)>RMB，你当前帐户里元宝数为：<$GAMEGOLD>
  SENDMOVEMSG 0 251 249 350 1 %s使用在线充值卡--充值成功：增加<$STR(N5)>RMB。
  break
#say
欢迎使用点卡充值系统 \ \
卡号：<$STR(S2)> <√/FCOLOR=250> \
密码：<$STR(S22)> <√/FCOLOR=250>\ \
状态：<充值成功.../AUTOCOLOR=254,251,168,191,250,70,245,249,253>\ \ \ \ \ \
<关闭/@exit>
[@zuobijc]
#act
CLEARDELAYGOTO
AddTextList ..\QuestDiary\充值系统\非法充值名单.txt <$USERNAME>
#say
你的作弊行为已被系统记录...\ \ \ \ \
<关闭/@exit>
[@zaixiangk]
#IF
#ACT