教大家如何在传在SF设置卡号密码充值脚本

22pk论坛 · 发表于 2016-9-1 15:41:45

(@@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
#IF
  CHECKTEXTLIST ..\QuestDiary\充值系统\50元卡号.txt <$STR(S2)>
#ACT
  MUL N5 50 10
  MOV N4 50
  GOTO @kahaozq
  break
#IF
  CHECKTEXTLIST ..\QuestDiary\充值系统\100元卡号.txt <$STR(S2)>
#ACT
  MUL N5 100 10
  MOV N4 100
  GOTO @kahaozq
  break
#IF
  CHECKTEXTLIST ..\QuestDiary\充值系统\300元卡号.txt <$STR(S2)>
#ACT
  MUL N5 300 10
  MOV N4 300
  GOTO @kahaozq
  break
#IF
  CHECKTEXTLIST ..\QuestDiary\充值系统\500元卡号.txt <$STR(S2)>
#ACT
  MUL N5 500 10
  MOV N4 500
  GOTO @kahaozq
  break
#ELSESAY

游客，如果您要查看本帖隐藏内容请回复