[@main]
#IF
#Act

;=============================================================================
;===配置比例，不发放的货币比例请配置为0，1:1则填写1，1:10则填写10=============
;===通区目录必须配置，和网站后台填写的保持一致================================
;===赠送比列设置 写100就是不赠送，★★不可为0★★ 多送10%就写110 多送20%就写120==
;=============================================================================

Mov S$通区目录 ..\..\..\..\测试通区充值\

Mov N$元宝比例 500
Mov N$金刚石比例 0
Mov N$游戏点比例 0
Mov N$金币比例 10000
Mov N$灵符比例 1
Mov N$声望比例 0
Mov N$荣誉比例 0

Mov N$测试赠送比例 200
Mov N$正式赠送比例 100


Mov S$网页充值链接 https://game.haopk.net/pay/index/?gid=16

;=============================================================================





#IF
#Act
#Say
;=============================NPC界面区域==========================
<></SCOLOR=254>\
<><-在线充值-/SCOLOR=254>\
<><1.本系统支持微信、支付宝充值/SCOLOR=250>\
<><2.点卡、网银、手机卡充值，请在充值5分钟后在本NPC处领取!/SCOLOR=254>\
<><3.注意:本服无任何比例 一切均在官网充值 /SCOLOR=254>\
<><4.注意:请点击登陆器或者网站链接进行充值!/SCOLOR=254>\

;<><-------------------------------------------------------------/SCOLOR=10>\
<>    <╔┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╗/SCOLOR=105>\
<>    <┆/SCOLOR=105>      <领取充值/@自己领取>       <┆/SCOLOR=105>     <在线充值/@领取充值通道>    <┆/SCOLOR=105>     \
<>    <╚┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈╝/SCOLOR=105>\

;=============================NPC界面区域==========================




[@自己领取]
#IF
CheckContainsText <$SERVERNAME> 测试
#ACT
GoTo @测试区领取
Break
#ElseAct
GoTo @正式区领取
Break




[@测试区领取]
#IF
#Act
MOV N$充值统计 0

#IF 
CheckAccountList <$STR(S$通区目录)>\1.txt
#Act
INC N$充值统计 1
AddTextListEx <$STR(S$通区目录)>\测试充值\1.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\1.txt

#IF
CheckAccountList <$STR(S$通区目录)>\2.txt
#Act
INC N$充值统计 2
AddTextListEx <$STR(S$通区目录)>\测试充值\2.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\2.txt

#IF
CheckAccountList <$STR(S$通区目录)>\3.txt
#Act
INC N$充值统计 3
AddTextListEx <$STR(S$通区目录)>\测试充值\3.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\3.txt

#IF
CheckAccountList <$STR(S$通区目录)>\4.txt
#Act
INC N$充值统计 4
AddTextListEx <$STR(S$通区目录)>\测试充值\4.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\4.txt

#IF
CheckAccountList <$STR(S$通区目录)>\5.txt
#Act
INC N$充值统计 5
AddTextListEx <$STR(S$通区目录)>\测试充值\5.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\5.txt

#IF
CheckAccountList <$STR(S$通区目录)>\6.txt
#Act
INC N$充值统计 6
AddTextListEx <$STR(S$通区目录)>\测试充值\6.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\6.txt

#IF
CheckAccountList <$STR(S$通区目录)>\7.txt
#Act
INC N$充值统计 7
AddTextListEx <$STR(S$通区目录)>\测试充值\7.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\7.txt

#IF
CheckAccountList <$STR(S$通区目录)>\8.txt
#Act
INC N$充值统计 8
AddTextListEx <$STR(S$通区目录)>\测试充值\8.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\8.txt

#IF
CheckAccountList <$STR(S$通区目录)>\9.txt
#Act
INC N$充值统计 9
AddTextListEx <$STR(S$通区目录)>\测试充值\9.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\9.txt

#IF
CheckAccountList <$STR(S$通区目录)>\10.txt
#Act
INC N$充值统计 10
AddTextListEx <$STR(S$通区目录)>\测试充值\10.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\10.txt

#IF
CheckAccountList <$STR(S$通区目录)>\20.txt
#Act
INC N$充值统计 20
AddTextListEx <$STR(S$通区目录)>\测试充值\20.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\20.txt

#IF
CheckAccountList <$STR(S$通区目录)>\30.txt
#Act
INC N$充值统计 30
AddTextListEx <$STR(S$通区目录)>\测试充值\30.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\30.txt

#IF
CheckAccountList <$STR(S$通区目录)>\40.txt
#Act
INC N$充值统计 40
AddTextListEx <$STR(S$通区目录)>\测试充值\40.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\40.txt

#IF
CheckAccountList <$STR(S$通区目录)>\50.txt
#Act
INC N$充值统计 50
AddTextListEx <$STR(S$通区目录)>\测试充值\50.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\50.txt

#IF
CheckAccountList <$STR(S$通区目录)>\60.txt
#Act
INC N$充值统计 60
AddTextListEx <$STR(S$通区目录)>\测试充值\60.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\60.txt

#IF
CheckAccountList <$STR(S$通区目录)>\70.txt
#Act
INC N$充值统计 70
AddTextListEx <$STR(S$通区目录)>\测试充值\70.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\70.txt

#IF
CheckAccountList <$STR(S$通区目录)>\80.txt
#Act
INC N$充值统计 80
AddTextListEx <$STR(S$通区目录)>\测试充值\80.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\80.txt

#IF
CheckAccountList <$STR(S$通区目录)>\90.txt
#Act
INC N$充值统计 90
AddTextListEx <$STR(S$通区目录)>\测试充值\90.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\90.txt

#IF
CheckAccountList <$STR(S$通区目录)>\100.txt
#Act
INC N$充值统计 100
AddTextListEx <$STR(S$通区目录)>\测试充值\100.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\100.txt

#IF
CheckAccountList <$STR(S$通区目录)>\200.txt
#Act
INC N$充值统计 200
AddTextListEx <$STR(S$通区目录)>\测试充值\200.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\200.txt

#IF
CheckAccountList <$STR(S$通区目录)>\300.txt
#Act
INC N$充值统计 300
AddTextListEx <$STR(S$通区目录)>\测试充值\300.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\300.txt

#IF
CheckAccountList <$STR(S$通区目录)>\400.txt
#Act
INC N$充值统计 400
AddTextListEx <$STR(S$通区目录)>\测试充值\400.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\400.txt

#IF
CheckAccountList <$STR(S$通区目录)>\500.txt
#Act
INC N$充值统计 500
AddTextListEx <$STR(S$通区目录)>\测试充值\500.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\500.txt

#IF
CheckAccountList <$STR(S$通区目录)>\600.txt 
#Act
INC N$充值统计 600
AddTextListEx <$STR(S$通区目录)>\测试充值\600.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\600.txt

#IF
CheckAccountList <$STR(S$通区目录)>\700.txt 
#Act
INC N$充值统计 700
AddTextListEx <$STR(S$通区目录)>\测试充值\700.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\700.txt

#IF
CheckAccountList <$STR(S$通区目录)>\800.txt
#Act
INC N$充值统计 800
AddTextListEx <$STR(S$通区目录)>\测试充值\800.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\800.txt

#IF
CheckAccountList <$STR(S$通区目录)>\900.txt
#Act
INC N$充值统计 900
AddTextListEx <$STR(S$通区目录)>\测试充值\900.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\900.txt

#IF
CheckAccountList <$STR(S$通区目录)>\1000.txt
#Act
INC N$充值统计 1000
AddTextListEx <$STR(S$通区目录)>\测试充值\1000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\1000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\2000.txt
#Act
INC N$充值统计 2000
AddTextListEx <$STR(S$通区目录)>\测试充值\2000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\2000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\3000.txt
#Act
INC N$充值统计 3000
AddTextListEx <$STR(S$通区目录)>\测试充值\3000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\3000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\4000.txt
#Act
INC N$充值统计 4000
AddTextListEx <$STR(S$通区目录)>\测试充值\4000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\4000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\5000.txt
#Act
INC N$充值统计 5000
AddTextListEx <$STR(S$通区目录)>\测试充值\5000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\5000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\6000.txt
#Act
INC N$充值统计 6000
AddTextListEx <$STR(S$通区目录)>\测试充值\6000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\6000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\7000.txt
#Act
INC N$充值统计 7000
AddTextListEx <$STR(S$通区目录)>\测试充值\7000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\7000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\8000.txt
#Act
INC N$充值统计 8000
AddTextListEx <$STR(S$通区目录)>\测试充值\8000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\8000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\9000.txt
#Act
INC N$充值统计 9000
AddTextListEx <$STR(S$通区目录)>\测试充值\9000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\9000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\10000.txt
#Act
INC N$充值统计 10000
AddTextListEx <$STR(S$通区目录)>\测试充值\10000.txt <$USERID> 0
DelAccountList <$STR(S$通区目录)>\10000.txt

#IF
LARGE N$充值统计 0
#Act
GetPlayInfo IP S19
MOV N$充值积分 <$STR(N$充值统计)>
MOV N$元宝 <$STR(N$充值统计)>
MOV N$金刚石 <$STR(N$充值统计)>
MOV N$游戏点 <$STR(N$充值统计)>
MOV N$金币 <$STR(N$充值统计)>
MOV N$灵符 <$STR(N$充值统计)>
MOV N$声望 <$STR(N$充值统计)>
MOV N$荣誉 <$STR(N$充值统计)>

Mul N$元宝 <$STR(N$元宝比例)>
Mul N$金刚石 <$STR(N$金刚石比例)>
Mul N$游戏点 <$STR(N$游戏点比例)>
Mul N$金币 <$STR(N$金币比例)>
Mul N$灵符 <$STR(N$灵符比例)>
Mul N$声望 <$STR(N$声望比例)>
Mul N$荣誉 <$STR(N$荣誉比例)>

Mul N$元宝 <$STR(N$测试赠送比例)>
Mul N$金刚石 <$STR(N$测试赠送比例)>
Mul N$游戏点 <$STR(N$测试赠送比例)>
Mul N$金币 <$STR(N$测试赠送比例)>
Mul N$灵符 <$STR(N$测试赠送比例)>
Mul N$声望 <$STR(N$测试赠送比例)>
Mul N$荣誉 <$STR(N$测试赠送比例)>

Div N$元宝 100
Div N$金刚石 100
Div N$游戏点 100
Div N$金币 100
Div N$灵符 100
Div N$声望 100
Div N$荣誉 100

;=============================测试区充值货币==========================
Gamegold + <$STR(N$元宝)>
GameDiamond + <$STR(N$金刚石)>
GamePoint + <$STR(N$游戏点)>
GoldCount + <$STR(N$金币)>
GameGird + <$STR(N$灵符)>
CreditPoint + <$STR(N$声望)>
GameGlory + <$STR(N$荣誉)>
;=============================变量记录示例======================
;INC U53 <$STR(N$充值积分)>

SENDMSG 1 ★恭喜【<$USERNAME>】成功充值获得大量充值货币,如果您也想获得,请赶快充值吧。
SENDMSG 1 ★★测试区充值比例<$STR(N$测试赠送比例)>%★★，正式区可<$STR(N$测试赠送比例)>%领取，有需要的玩家请尽快充值。
SENDMSG 1 ★★测试区充值比例<$STR(N$测试赠送比例)>%★★，正式区可<$STR(N$测试赠送比例)>%领取，有需要的玩家请尽快充值。

;=============================玩家领取记录======================
AddTextListEx <$STR(S$通区目录)>\测试区领取记录.txt <$YEAR>-<$MONTH>-<$DAY>-<$HOUR>点<$MINUTE>分.服务器名:<$SERVERNAME>.角色:<$USERNAME>.帐号:<$USERID>..获得元宝:<$STR(N$元宝)>.金刚石:<$STR(N$金刚石)>.游戏点:<$STR(N$游戏点)>.金币:<$STR(N$金币)>.灵符:<$STR(N$灵符)>.声望:<$STR(N$声望)>.荣誉:<$STR(N$荣誉)>,机器码:<$MACHINEID>,IP:<$STR(S19)>【NPC领取>】  0
;=============================玩家领取记录======================
MOV N$充值统计 0
GoTo @自己领取
Break
#ElseSay
\ \
<>请查看自己的货币数量!\ \
<>没有充值请按提示进行充值!\ \
<><返回/@main>\ \
<><退出/@exit>






[@正式区领取]
#IF
#Act
MOV N$充值统计 0

#IF 
CheckAccountList <$STR(S$通区目录)>\测试充值\1.txt
#Act
INC N$充值统计 1
DelAccountList <$STR(S$通区目录)>\测试充值\1.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\2.txt
#Act
INC N$充值统计 2
DelAccountList <$STR(S$通区目录)>\测试充值\2.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\3.txt
#Act
INC N$充值统计 3
DelAccountList <$STR(S$通区目录)>\测试充值\3.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\4.txt
#Act
INC N$充值统计 4
DelAccountList <$STR(S$通区目录)>\测试充值\4.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\5.txt
#Act
INC N$充值统计 5
DelAccountList <$STR(S$通区目录)>\测试充值\5.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\6.txt
#Act
INC N$充值统计 6
DelAccountList <$STR(S$通区目录)>\测试充值\6.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\7.txt
#Act
INC N$充值统计 7
DelAccountList <$STR(S$通区目录)>\测试充值\7.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\8.txt
#Act
INC N$充值统计 8
DelAccountList <$STR(S$通区目录)>\测试充值\8.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\9.txt
#Act
INC N$充值统计 9
DelAccountList <$STR(S$通区目录)>\测试充值\9.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\10.txt
#Act
INC N$充值统计 10
DelAccountList <$STR(S$通区目录)>\测试充值\10.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\20.txt
#Act
INC N$充值统计 20
DelAccountList <$STR(S$通区目录)>\测试充值\20.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\30.txt
#Act
INC N$充值统计 30
DelAccountList <$STR(S$通区目录)>\测试充值\30.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\40.txt
#Act
INC N$充值统计 40
DelAccountList <$STR(S$通区目录)>\测试充值\40.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\50.txt
#Act
INC N$充值统计 50
DelAccountList <$STR(S$通区目录)>\测试充值\50.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\60.txt
#Act
INC N$充值统计 60
DelAccountList <$STR(S$通区目录)>\测试充值\60.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\70.txt
#Act
INC N$充值统计 70
DelAccountList <$STR(S$通区目录)>\测试充值\70.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\80.txt
#Act
INC N$充值统计 80
DelAccountList <$STR(S$通区目录)>\测试充值\80.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\90.txt
#Act
INC N$充值统计 90
DelAccountList <$STR(S$通区目录)>\测试充值\90.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\100.txt
#Act
INC N$充值统计 100
DelAccountList <$STR(S$通区目录)>\测试充值\100.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\200.txt
#Act
INC N$充值统计 200
DelAccountList <$STR(S$通区目录)>\测试充值\200.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\300.txt
#Act
INC N$充值统计 300
DelAccountList <$STR(S$通区目录)>\测试充值\300.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\400.txt
#Act
INC N$充值统计 400
DelAccountList <$STR(S$通区目录)>\测试充值\400.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\500.txt
#Act
INC N$充值统计 500
DelAccountList <$STR(S$通区目录)>\测试充值\500.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\600.txt 
#Act
INC N$充值统计 600
DelAccountList <$STR(S$通区目录)>\测试充值\600.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\700.txt 
#Act
INC N$充值统计 700
DelAccountList <$STR(S$通区目录)>\测试充值\700.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\800.txt
#Act
INC N$充值统计 800
DelAccountList <$STR(S$通区目录)>\测试充值\800.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\900.txt
#Act
INC N$充值统计 900
DelAccountList <$STR(S$通区目录)>\测试充值\900.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\1000.txt
#Act
INC N$充值统计 1000
DelAccountList <$STR(S$通区目录)>\测试充值\1000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\2000.txt
#Act
INC N$充值统计 2000
DelAccountList <$STR(S$通区目录)>\测试充值\2000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\3000.txt
#Act
INC N$充值统计 3000
DelAccountList <$STR(S$通区目录)>\测试充值\3000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\4000.txt
#Act
INC N$充值统计 4000
DelAccountList <$STR(S$通区目录)>\测试充值\4000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\5000.txt
#Act
INC N$充值统计 5000
DelAccountList <$STR(S$通区目录)>\测试充值\5000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\6000.txt
#Act
INC N$充值统计 6000
DelAccountList <$STR(S$通区目录)>\测试充值\6000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\7000.txt
#Act
INC N$充值统计 7000
DelAccountList <$STR(S$通区目录)>\测试充值\7000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\8000.txt
#Act
INC N$充值统计 8000
DelAccountList <$STR(S$通区目录)>\测试充值\8000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\9000.txt
#Act
INC N$充值统计 9000
DelAccountList <$STR(S$通区目录)>\测试充值\9000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\测试充值\10000.txt
#Act
INC N$充值统计 10000
DelAccountList <$STR(S$通区目录)>\测试充值\10000.txt

#IF
LARGE N$充值统计 0
#Act
GetPlayInfo IP S19
MOV N$充值积分 <$STR(N$充值统计)>
MOV N$元宝 <$STR(N$充值统计)>
MOV N$金刚石 <$STR(N$充值统计)>
MOV N$游戏点 <$STR(N$充值统计)>
MOV N$金币 <$STR(N$充值统计)>
MOV N$灵符 <$STR(N$充值统计)>
MOV N$声望 <$STR(N$充值统计)>
MOV N$荣誉 <$STR(N$充值统计)>

Mul N$元宝 <$STR(N$元宝比例)>
Mul N$金刚石 <$STR(N$金刚石比例)>
Mul N$游戏点 <$STR(N$游戏点比例)>
Mul N$金币 <$STR(N$金币比例)>
Mul N$灵符 <$STR(N$灵符比例)>
Mul N$声望 <$STR(N$声望比例)>
Mul N$荣誉 <$STR(N$荣誉比例)>

Mul N$元宝 <$STR(N$测试赠送比例)>
Mul N$金刚石 <$STR(N$测试赠送比例)>
Mul N$游戏点 <$STR(N$测试赠送比例)>
Mul N$金币 <$STR(N$测试赠送比例)>
Mul N$灵符 <$STR(N$测试赠送比例)>
Mul N$声望 <$STR(N$测试赠送比例)>
Mul N$荣誉 <$STR(N$测试赠送比例)>

Div N$元宝 100
Div N$金刚石 100
Div N$游戏点 100
Div N$金币 100
Div N$灵符 100
Div N$声望 100
Div N$荣誉 100

;========================领取测试区预充的充值货币===============
Gamegold + <$STR(N$元宝)>
GameDiamond + <$STR(N$金刚石)>
GamePoint + <$STR(N$游戏点)>
GoldCount + <$STR(N$金币)>
GameGird + <$STR(N$灵符)>
CreditPoint + <$STR(N$声望)>
GameGlory + <$STR(N$荣誉)>
;=============================变量记录示例======================
;INC U53 <$STR(N$充值积分)>

SENDMSG 1 ★恭喜【<$USERNAME>】成功充值获得大量充值货币,如果您也想获得,请赶快充值吧。
SENDMSG 1 ★恭喜【<$USERNAME>】成功充值获得大量充值货币,如果您也想获得,请赶快充值吧。
SENDMSG 1 ★恭喜【<$USERNAME>】成功充值获得大量充值货币,如果您也想获得,请赶快充值吧。

;=============================玩家领取记录======================
AddTextListEx <$STR(S$通区目录)>\充值记录.txt <$YEAR>-<$MONTH>-<$DAY>-<$HOUR>点<$MINUTE>分.服务器名:<$SERVERNAME>.角色:<$USERNAME>.帐号:<$USERID>..获得元宝:<$STR(N$元宝)>.金刚石:<$STR(N$金刚石)>.游戏点:<$STR(N$游戏点)>.金币:<$STR(N$金币)>.灵符:<$STR(N$灵符)>.声望:<$STR(N$声望)>.荣誉:<$STR(N$荣誉)>,机器码:<$MACHINEID>,IP:<$STR(S19)>【NPC领取测试区预充值>】  0
;=============================玩家领取记录======================
MOV N$充值统计 0
GoTo @自己领取
Break




#IF
#Act
MOV N$充值统计 0

#IF 
CheckAccountList <$STR(S$通区目录)>\1.txt
#Act
INC N$充值统计 1
DelAccountList <$STR(S$通区目录)>\1.txt

#IF
CheckAccountList <$STR(S$通区目录)>\2.txt
#Act
INC N$充值统计 2
DelAccountList <$STR(S$通区目录)>\2.txt

#IF
CheckAccountList <$STR(S$通区目录)>\3.txt
#Act
INC N$充值统计 3
DelAccountList <$STR(S$通区目录)>\3.txt

#IF
CheckAccountList <$STR(S$通区目录)>\4.txt
#Act
INC N$充值统计 4
DelAccountList <$STR(S$通区目录)>\4.txt

#IF
CheckAccountList <$STR(S$通区目录)>\5.txt
#Act
INC N$充值统计 5
DelAccountList <$STR(S$通区目录)>\5.txt

#IF
CheckAccountList <$STR(S$通区目录)>\6.txt
#Act
INC N$充值统计 6
DelAccountList <$STR(S$通区目录)>\6.txt

#IF
CheckAccountList <$STR(S$通区目录)>\7.txt
#Act
INC N$充值统计 7
DelAccountList <$STR(S$通区目录)>\7.txt

#IF
CheckAccountList <$STR(S$通区目录)>\8.txt
#Act
INC N$充值统计 8
DelAccountList <$STR(S$通区目录)>\8.txt

#IF
CheckAccountList <$STR(S$通区目录)>\9.txt
#Act
INC N$充值统计 9
DelAccountList <$STR(S$通区目录)>\9.txt

#IF
CheckAccountList <$STR(S$通区目录)>\10.txt
#Act
INC N$充值统计 10
DelAccountList <$STR(S$通区目录)>\10.txt

#IF
CheckAccountList <$STR(S$通区目录)>\20.txt
#Act
INC N$充值统计 20
DelAccountList <$STR(S$通区目录)>\20.txt

#IF
CheckAccountList <$STR(S$通区目录)>\30.txt
#Act
INC N$充值统计 30
DelAccountList <$STR(S$通区目录)>\30.txt

#IF
CheckAccountList <$STR(S$通区目录)>\40.txt
#Act
INC N$充值统计 40
DelAccountList <$STR(S$通区目录)>\40.txt

#IF
CheckAccountList <$STR(S$通区目录)>\50.txt
#Act
INC N$充值统计 50
DelAccountList <$STR(S$通区目录)>\50.txt

#IF
CheckAccountList <$STR(S$通区目录)>\60.txt
#Act
INC N$充值统计 60
DelAccountList <$STR(S$通区目录)>\60.txt

#IF
CheckAccountList <$STR(S$通区目录)>\70.txt
#Act
INC N$充值统计 70
DelAccountList <$STR(S$通区目录)>\70.txt

#IF
CheckAccountList <$STR(S$通区目录)>\80.txt
#Act
INC N$充值统计 80
DelAccountList <$STR(S$通区目录)>\80.txt

#IF
CheckAccountList <$STR(S$通区目录)>\90.txt
#Act
INC N$充值统计 90
DelAccountList <$STR(S$通区目录)>\90.txt

#IF
CheckAccountList <$STR(S$通区目录)>\100.txt
#Act
INC N$充值统计 100
DelAccountList <$STR(S$通区目录)>\100.txt

#IF
CheckAccountList <$STR(S$通区目录)>\200.txt
#Act
INC N$充值统计 200
DelAccountList <$STR(S$通区目录)>\200.txt

#IF
CheckAccountList <$STR(S$通区目录)>\300.txt
#Act
INC N$充值统计 300
DelAccountList <$STR(S$通区目录)>\300.txt

#IF
CheckAccountList <$STR(S$通区目录)>\400.txt
#Act
INC N$充值统计 400
DelAccountList <$STR(S$通区目录)>\400.txt

#IF
CheckAccountList <$STR(S$通区目录)>\500.txt
#Act
INC N$充值统计 500
DelAccountList <$STR(S$通区目录)>\500.txt

#IF
CheckAccountList <$STR(S$通区目录)>\600.txt 
#Act
INC N$充值统计 600
DelAccountList <$STR(S$通区目录)>\600.txt

#IF
CheckAccountList <$STR(S$通区目录)>\700.txt 
#Act
INC N$充值统计 700
DelAccountList <$STR(S$通区目录)>\700.txt

#IF
CheckAccountList <$STR(S$通区目录)>\800.txt
#Act
INC N$充值统计 800
DelAccountList <$STR(S$通区目录)>\800.txt

#IF
CheckAccountList <$STR(S$通区目录)>\900.txt
#Act
INC N$充值统计 900
DelAccountList <$STR(S$通区目录)>\900.txt

#IF
CheckAccountList <$STR(S$通区目录)>\1000.txt
#Act
INC N$充值统计 1000
DelAccountList <$STR(S$通区目录)>\1000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\2000.txt
#Act
INC N$充值统计 2000
DelAccountList <$STR(S$通区目录)>\2000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\3000.txt
#Act
INC N$充值统计 3000
DelAccountList <$STR(S$通区目录)>\3000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\4000.txt
#Act
INC N$充值统计 4000
DelAccountList <$STR(S$通区目录)>\4000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\5000.txt
#Act
INC N$充值统计 5000
DelAccountList <$STR(S$通区目录)>\5000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\6000.txt
#Act
INC N$充值统计 6000
DelAccountList <$STR(S$通区目录)>\6000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\7000.txt
#Act
INC N$充值统计 7000
DelAccountList <$STR(S$通区目录)>\7000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\8000.txt
#Act
INC N$充值统计 8000
DelAccountList <$STR(S$通区目录)>\8000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\9000.txt
#Act
INC N$充值统计 9000
DelAccountList <$STR(S$通区目录)>\9000.txt

#IF
CheckAccountList <$STR(S$通区目录)>\10000.txt
#Act
INC N$充值统计 10000
DelAccountList <$STR(S$通区目录)>\10000.txt

#IF
LARGE N$充值统计 0
#Act
GetPlayInfo IP S19
MOV N$充值积分 <$STR(N$充值统计)>
MOV N$元宝 <$STR(N$充值统计)>
MOV N$金刚石 <$STR(N$充值统计)>
MOV N$游戏点 <$STR(N$充值统计)>
MOV N$金币 <$STR(N$充值统计)>
MOV N$灵符 <$STR(N$充值统计)>
MOV N$声望 <$STR(N$充值统计)>
MOV N$荣誉 <$STR(N$充值统计)>

Mul N$元宝 <$STR(N$元宝比例)>
Mul N$金刚石 <$STR(N$金刚石比例)>
Mul N$游戏点 <$STR(N$游戏点比例)>
Mul N$金币 <$STR(N$金币比例)>
Mul N$灵符 <$STR(N$灵符比例)>
Mul N$声望 <$STR(N$声望比例)>
Mul N$荣誉 <$STR(N$荣誉比例)>

Mul N$元宝 <$STR(N$正式赠送比例)>
Mul N$金刚石 <$STR(N$正式赠送比例)>
Mul N$游戏点 <$STR(N$正式赠送比例)>
Mul N$金币 <$STR(N$正式赠送比例)>
Mul N$灵符 <$STR(N$正式赠送比例)>
Mul N$声望 <$STR(N$正式赠送比例)>
Mul N$荣誉 <$STR(N$正式赠送比例)>

Div N$元宝 100
Div N$金刚石 100
Div N$游戏点 100
Div N$金币 100
Div N$灵符 100
Div N$声望 100
Div N$荣誉 100

;=============================充值货币==========================
Gamegold + <$STR(N$元宝)>
GameDiamond + <$STR(N$金刚石)>
GamePoint + <$STR(N$游戏点)>
GoldCount + <$STR(N$金币)>
GameGird + <$STR(N$灵符)>
CreditPoint + <$STR(N$声望)>
GameGlory + <$STR(N$荣誉)>
;=============================变量记录示例======================
;INC U53 <$STR(N$充值积分)>

SENDMSG 1 ★恭喜【<$USERNAME>】成功充值获得大量充值货币,如果您也想获得,请赶快充值吧。
SENDMSG 1 ★恭喜【<$USERNAME>】成功充值获得大量充值货币,如果您也想获得,请赶快充值吧。
SENDMSG 1 ★恭喜【<$USERNAME>】成功充值获得大量充值货币,如果您也想获得,请赶快充值吧。

;=============================玩家领取记录======================
AddTextListEx <$STR(S$通区目录)>\充值记录.txt <$YEAR>-<$MONTH>-<$DAY>-<$HOUR>点<$MINUTE>分.服务器名:<$SERVERNAME>.角色:<$USERNAME>.帐号:<$USERID>..获得元宝:<$STR(N$元宝)>.金刚石:<$STR(N$金刚石)>.游戏点:<$STR(N$游戏点)>.金币:<$STR(N$金币)>.灵符:<$STR(N$灵符)>.声望:<$STR(N$声望)>.荣誉:<$STR(N$荣誉)>,机器码:<$MACHINEID>,IP:<$STR(S19)>【NPC领取正式区充值>】  0
;=============================玩家领取记录======================
MOV N$充值统计 0
GoTo @自己领取
Break







#ElseSay
\ \
<>请查看自己的货币数量!\ \
<>没有充值请按提示进行充值!\ \
<><返回/@main>\ \
<><退出/@exit>



[@领取充值通道]
#Act
#Say
\ \
<充值通道①/@自己通道一>　┆　<充值通道②/@自己通道二>　┆　<充值通道③/@自己通道三>\ \
<充值通道④/@自己通道四>　┆　<充值通道⑤/@自己通道五>　┆　<充值通道⑥/@自己通道六>\ \
<><返回/@main>\ \
<><退出/@exit>

[@自己通道一]
#IF
#Act
OpenUrl <$STR(S$网页充值链接)>
Break

[@自己通道二]
#IF
#Act
OpenUrl <$STR(S$网页充值链接)>
Break

[@自己通道三]
#IF
#Act
OpenUrl <$STR(S$网页充值链接)>
Break

[@自己通道四]
#IF
#Act
OpenUrl <$STR(S$网页充值链接)>
Break
[@自己通道五]
#IF
#Act
OpenUrl <$STR(S$网页充值链接)>
Break

[@自己通道六]
#IF
#Act
OpenUrl <$STR(S$网页充值链接)>
Break