;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@PayNumber]
{
#ACT
mov  B1 ""
mov  B2 ""
goto @充值开始12
break

[@充值开始12]
#say
欢迎使用充值卡系统\
{FCOLOR/14}请输入你的充值卡卡号和密码：{FCOLOR/12}\\
你输入的卡号为 {FCOLOR/1}<$OUTPUT(B1)>{FCOLOR/12} <输入卡号/@@CardNumber>\
你输入的密码为 {FCOLOR/10}<$OUTPUT(B2)>{FCOLOR/12} <输入密码/@@CardPassword>\\
{FCOLOR/14}输入完毕请点击开始充值{FCOLOR/12}\
<开始充值/@输入完毕1>\\
<返回/@main>\

[@@CardNumber]
#ACT
   mov  B1  %INPUTSTR
   goto @充值开始12
   break
[@@CardPassword]
#ACT
   mov  B2  %INPUTSTR
   goto @充值开始12
   break


[@输入完毕1]
  #act
          Delaygoto [local] 5 @卡号检测
  #say
_{FCOLOR/10}请稍后，系统正在处理数据...{FCOLOR/12}\

[@卡号检测]
  #IF
     HLSCRIPTCMD CHECKCARD %B1 %B2
  #ACT
  goto @卡号正确
  break
  #elsesay
  _{FCOLOR/10}对不起，你输入的充值卡卡号和密码不正确，请查证！{FCOLOR/12}\\
  <退出/@exit>  \

[@卡号正确]
  #ACT
     HLSCRIPTCMD PAYCARD %B1 %B2
#say
_{FCOLOR/10}充值卡充值成功{FCOLOR/12}\\
_你当前积分点数: {FCOLOR/10}<$HLPOINT>{FCOLOR/12} 点!\\
_<返回/@main>
#ELSESAY
    你的积分点不够。。 \ \
		<关  闭/@exit>

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;