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

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

(@@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



**** Hidden Message *****



海琳 发表于 2016-9-1 15:56:53

呵呵找个机会:Q:Q

李文 发表于 2016-9-7 22:54:18

支持顶顶:loveliness::loveliness:

汉阳造 发表于 2016-9-8 22:41:03

汉阳造真好

治愈者 发表于 2016-9-9 20:47:06

额哦偶无语

风然 发表于 2016-9-10 19:48:03

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

恋爱相对论 发表于 2016-9-11 18:07:44

恋爱相对论真它媽的夠狠

与世隔绝的鱼 发表于 2016-9-12 15:50:25

我头有点疼:funk::funk:

2137286 发表于 2016-9-12 16:39:04

111111111111

雨在下的菊子 发表于 2016-9-13 14:52:25

雨在下的菊子不错啊一个字牛啊
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: 教大家如何在传在SF设置卡号密码充值脚本