[@自助转]
{
#IF
EQUAL A9 测试
#act
messagebox 测试区禁止转区相关操作！
BREAK
#IF
CHECKCREDITPOINT > 499
#Act
MOV S$转区状态 <可以转区/SCOLOR=250>
#ELSEACT
MOV S$转区状态 <不可转区>
#IF
#Act
OPENMERCHANTBIGDLG 14 38 1 4 0 0 1 600 41
#say
\ \ \ \ \
<> <☆☆☆☆☆☆☆☆☆★★★★★★★★★/SCOLOR=250><自 助 转 区 系 统/SCOLOR=253><★★★★★★★★★☆☆☆☆☆☆☆☆☆☆☆/SCOLOR=250>\ \
<> <请玩家花几分钟仔细阅读以下内容，胡乱操作导致出错无法正常领取转区冲值的一律后果自负！/SCOLOR=254>\
<> <1、自助转区分直冲账号转区和转区令牌转区2种> <★☆天☆★/AUTOCOLOR=251,168,191,70,245,249,253>\
<> <2、直冲账号转区需要20%手续费，可无限转区，转区令仅限当次转区> <★☆府☆★/AUTOCOLOR=251,168,191,70,245,249,253>\
<> <3、手续费是新区领取时扣除大米方式，转区令需要20%手续费> <★☆之☆★/AUTOCOLOR=251,168,191,70,245,249,253>\
<> <4、禁止多个直冲账号或者转区令转到同一个新区账号> <★☆都☆★/AUTOCOLOR=251,168,191,70,245,249,253>\
<> <5、直冲账号转区需要生日、密保等注册资料，转区令转区无需资料> <★☆独☆★/AUTOCOLOR=251,168,191,70,245,249,253>\
<> <6、直冲账号满真实充值500方可转区> <★☆家☆★/AUTOCOLOR=251,168,191,70,245,249,253>\
<> <7、领取转区充值的唯一认证方式就是填写的新区账号，请妥善保管> <★☆制☆★/AUTOCOLOR=251,168,191,70,245,249,253>\
<> <8、新区领取充值请按照直冲账号转区或转区令牌转区领取选项领取> <★☆做☆★/AUTOCOLOR=251,168,191,70,245,249,253>\ \
<> <账号转区状态：/SCOLOR=253> <$STR(S$转区状态)> <当前账号可转区充值金额：/SCOLOR=253><$CREDITPOINT>\ \
<> <╔---------------------------------------------╗> <╔--------------------------------------╗/SCOLOR=249>\
<> <┆/SCOLOR=249> <直冲帐号操作区/SCOLOR=253> <┆/SCOLOR=249> <┆/SCOLOR=249> <转区令牌操作区/SCOLOR=253> <┆/SCOLOR=249>\
<> <┆/SCOLOR=249><手续费：新区领取的时候扣除对应的大米才能领取/SCOLOR=249><┆/SCOLOR=249> <┆/SCOLOR=249><手续费：扣除的方式跟帐号转区一样/SCOLOR=249> <┆/SCOLOR=249>\
<> <╠---------------------------------------------╣/SCOLOR=249> <╠--------------------------------------╣/SCOLOR=249>\
<> <┆/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249>\
<> <┆/SCOLOR=249> <直冲账号转区/@直冲><（老区操作）/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249> <转区令牌转区/@转区令><（老区操作）/SCOLOR=249> <┆/SCOLOR=249>\
<> <┆/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249>\
<> <┆/SCOLOR=249> <领取直冲号转区充值/@直冲领取><（新区领取）/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249> <领取转区令牌转区充值/@转区令领取><（新区领取）/SCOLOR=249> <┆/SCOLOR=249>\
<> <┆/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249> <┆/SCOLOR=249>\
<> <╚---------------------------------------------╝/SCOLOR=249> <╚--------------------------------------╝/SCOLOR=249>\
[@转区令]
#IF
#act
MOV N$转区令充值 <$STR(N74)>
MOV N$转区令手续费计算 <$STR(N$转区令充值)>
MUL N$转区令手续费计算 20
DIV N$转区令手续费计算 100
#say
\ \ \ \ \
<> <☆☆☆☆☆☆☆☆☆★★★★★★★★★/SCOLOR=250><牌 子 转 区 系 统/SCOLOR=253><★★★★★★★★★☆☆☆☆☆☆☆☆☆☆☆/SCOLOR=250>\ \ \
<> <输入要转区令数量(100-500)/@@inputinteger74> <当前转区令数量：/SCOLOR=242> <$STR(N74)>\ \
<> <输入新区账号(4-10位)/@@inputstring74> <当前新区账号：/SCOLOR=242> <$STR(S74)>\ \ \
<> {转区成功后，新区可领取：<$STR(N$转区令充值)>元充值，需要手续费大米：<$STR(N$转区令手续费计算)>点./SCOLOR=254}\ \ \
<> <[确定转区]/@确定转区令转区> <注：此操作不扣大米，新区帐号要有足够手续费的大米才能领取/SCOLOR=254>\ \
<> <列如：一次输入令牌数量500，那么新区帐号就能领取到500令牌对应的冲值/SCOLOR=249>\
<> <列如：分2次输入令牌数量300，那么新区帐号就能领取到300令牌对应的冲值/SCOLOR=249>\
<> <注：在输入数量的时候 务必考虑清楚，新区帐号只能领取一次！/SCOLOR=249>\
<> <注：牌子转区请务必一次操作完成，不能分多次操作！！！！！！！/SCOLOR=249>\
[@直冲]
#IF
CHECKCREDITPOINT < 500
#Act
MESSAGEBOX 当前非直冲账号，或者真实充值不满500，禁止该选项转区！
BREAK
#IF
#act
MOV N$账号手续费计算 <$CREDITPOINT>
MUL N$账号手续费计算 20
DIV N$账号手续费计算 100
#SAY
\ \ \ \ \
<> <☆☆☆☆☆☆☆☆☆★★★★★★★★★/SCOLOR=250><帐 号 转 区 系 统/SCOLOR=253><★★★★★★★★★☆☆☆☆☆☆☆☆☆☆☆/SCOLOR=250>\ \ \
<> <输入以下资料验证无误后方可账号转区：/SCOLOR=242>\ \
<> <请输入生日/@@inputstring73> <当前的生日：/SCOLOR=242> <$STR(S73)>\
<> <密保问题一/@@inputstring72> <当前问题一：/SCOLOR=242> <$STR(S72)>\
<> <密保答案一/@@inputstring71> <当前答案一：/SCOLOR=242> <$STR(S71)>\
<> <密保问题二/@@inputstring70> <当前问题二：/SCOLOR=242> <$STR(S70)>\
<> <密保答案二/@@inputstring69> <当前答案二：/SCOLOR=242> <$STR(S69)>\
<> <新区账号为/@@inputstring68> <新区账号为：/SCOLOR=242> <$STR(S68)>\ \
<> {转区成功后，新区可领取：<$CREDITPOINT>元真实充值，需要手续费大米：<$STR(N$账号手续费计算)>点./SCOLOR=250}\ \
<> <确认账号转区/@确认账号转区> <注：此操作不扣大米，新区帐号要有足够手续费的大米才能领取/SCOLOR=254>\ \
<> <点击确认输入后，如果输入错误，会被直接踢下线>\
<> <点击确认输入后，如果输入错误，会被直接踢下线>\
<> <注：转区成功，此账号将自动封号处理！无法解封！请提前转移好贵重装备！>\
<> <注：转区成功，此账号将自动封号处理！无法解封！请提前转移好贵重装备！>\
<> <注：转区成功，此账号将自动封号处理！无法解封！请提前转移好贵重装备！>\
<> <注：此功能请在确定要转区的情况下，“谨慎操作”！操作了又不想转区的，一律不予处理！！>\
<> <注：此功能请在确定要转区的情况下，“谨慎操作”！操作了又不想转区的，一律不予处理！！>\
[@inputstring73]
#IF
CheckStringlength s73 > 0
#act
GOTO @直冲
BREAK
[@inputstring72]
#IF
CheckStringlength s72 > 0
#act
GOTO @直冲
BREAK
[@inputstring71]
#IF
CheckStringlength s71 > 0
#act
GOTO @直冲
BREAK
[@inputstring70]
#IF
CheckStringlength s70 > 0
#act
GOTO @直冲
BREAK
[@inputstring69]
#IF
CheckStringlength s69 > 0
#act
GOTO @直冲
BREAK
[@inputstring68]
#IF
EQUAL S68 <$USERID>
#ACT
MOV S68
MESSAGEBOX 新区账号禁止与当前账号相同！！！
BREAK
#IF
CheckStringlength s68 > 0
#act
GOTO @直冲
BREAK
[@确认账号转区]
#OR
EQUAL S73
EQUAL S72
EQUAL S71
EQUAL S70
EQUAL S69
EQUAL S68
#ACT
MESSAGEBOX 请填写完整，再点击转区选项！！！
BREAK
#IF
EQUAL S73 <$BIRTHDAT>
EQUAL S72 <$QUIZ1>
EQUAL S71 <$ANSWER1>
EQUAL S70 <$QUIZ2>
EQUAL S69 <$ANSWER2>
#ACT
goto @验证通过
BREAK
#ELSEACT
MESSAGEBOX 密保信息输入错误！你已被踢下线！
KICK
BREAK
[@验证通过]
#IF
CheckStringlength s68 > 3
CheckStringlength s68 < 11
#ACT
mov T10 N
MOV S$直冲号回收数据 <$str(s68)>
inc S$直冲号回收数据 :
inc S$直冲号回收数据 <$CREDITPOINT>
AddTextListEx ..\..\..\..\天上捐献数据\天上直冲号转区数据\直冲号账号金额数据.txt <$str(S$直冲号回收数据)> 0
AddTextListEx ..\..\..\..\天上捐献数据\天上直冲号转区数据\直冲号新区账号.txt <$str(S68)> 0
AddTextListEx ..\..\..\..\天上捐献数据\天上直冲号转区数据\直冲号数据记录.txt <$DATETIME>服务器〈<$SERVERNAME>〉玩家〈<$USERNAME>〉账号【<$USERID>】回收直冲号<$CREDITPOINT>元新区账号为【<$str(s68)>】！ 0
MESSAGEBOX 恭喜你成功转区直冲号<$CREDITPOINT>元，新区账号为<$str(s68)>，请牢记！\号已被封停！
KICK
BREAK
#ELSEACT
MESSAGEBOX 账号长度仅限4-10位！
BREAK
[@直冲领取]
#if
#act
GetStringPos ..\..\..\..\天上捐献数据\天上直冲号转区数据\直冲号新区账号.txt <$USERID>
#IF
EQUAL N0 9999999
#ACT
messagebox 该账号无转区记录！
BREAK
#ELSEACT
GetListString ..\..\..\..\天上捐献数据\天上直冲号转区数据\直冲号账号金额数据.txt <$STR(N0)> S$新区账号 N$直冲号充值金额
#if
#act
MOV N$账号手续费计算领取 <$str(N$直冲号充值金额)>
MUL N$账号手续费计算领取 20
DIV N$账号手续费计算领取 100
MessageBox 当前账号可以领取充值<$str(N$直冲号充值金额)>元，需要<$str(N$账号手续费计算领取)>大米领取 @确定直冲号充值领取 @取消
BREAK
[@确定直冲号充值领取]
#IF
EQUAL T9 ling
#act
messagebox 此号已经领取过了，不能多次领取哦~
BREAK
#if
NOT CHECKGAMEPOINT < <$str(N$账号手续费计算领取)>
#ACT
MOV T9 ling
GAMEPOINT - <$str(N$账号手续费计算领取)>
DelTextList ..\..\..\..\天上捐献数据\天上直冲号转区数据\直冲号新区账号.txt <$USERID>
DelTextList ..\..\..\..\天上捐献数据\天上直冲号转区数据\直冲号账号金额数据.txt <$USERID>:<$str(N$直冲号充值金额)>
CREDITPOINT + <$str(N$直冲号充值金额)>
MOV N$直冲号积分 <$str(N$直冲号充值金额)>
MUL N$直冲号积分 40
GAMEGIRD + <$str(N$直冲号积分)>
MOV N$直冲号荣誉 <$str(N$直冲号充值金额)>
MUL N$直冲号荣誉 10
GAMEGLORY + <$str(N$直冲号荣誉)>
MOV N$直冲号幻世币 <$str(N$直冲号充值金额)>
MUL N$直冲号幻世币 2000
GAMEDIAMOND + <$str(N$直冲号幻世币)>
MOV N$直冲号元宝 <$str(N$直冲号充值金额)>
MUL N$直冲号元宝 200000
GAMEGOLD + <$str(N$直冲号元宝)>
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$直冲号积分)>积分,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$直冲号荣誉)>荣誉,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$直冲号幻世币)>幻世币,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$直冲号元宝)>元宝,如果您也想获得,请赶快充值吧!
BREAK
#ELSEACT
MESSAGEBOX 你大米不足<$str(N$账号手续费计算领取)>点，请充值大米后再来领取！
BREAK
[@转区令领取]
#if
#act
GetStringPos ..\..\..\..\天上捐献数据\天上转区令转区数据\转区令新区账号.txt <$USERID>
#IF
EQUAL N0 9999999
#ACT
messagebox 该账号无转区记录！
BREAK
#ELSEACT
GetListString ..\..\..\..\天上捐献数据\天上转区令转区数据\转区令账号金额数据.txt <$STR(N0)> S$新区账号 N$转区令号个数
#if
#act
MOV N$转区令号充值金额 <$str(N$转区令号个数)>
MOV N$转区令号手续费计算领取 <$str(N$转区令号充值金额)>
MUL N$转区令号手续费计算领取 20
DIV N$转区令号手续费计算领取 100
MessageBox 当前账号可以领取充值<$str(N$转区令号充值金额)>元，需要<$str(N$转区令号手续费计算领取)>大米领取 @确定领取转区令充值 @取消
BREAK
[@确定领取转区令充值]
#IF
EQUAL T9 ling
#act
messagebox 此号已经领取过了，不能多次领取哦~
BREAK
#if
NOT CHECKGAMEPOINT < <$str(N$转区令号手续费计算领取)>
#ACT
MOV T9 ling
GAMEPOINT - <$str(N$转区令号手续费计算领取)>
DelTextList ..\..\..\..\天上捐献数据\天上转区令转区数据\转区令新区账号.txt <$USERID>
DelTextList ..\..\..\..\天上捐献数据\天上转区令转区数据\转区令账号金额数据.txt <$USERID>:<$str(N$转区令号个数)>
MOV N$转区令积分 <$str(N$转区令号充值金额)>
MUL N$转区令积分 40
GAMEGIRD + <$str(N$转区令积分)>
MOV N$转区令荣誉 <$str(N$转区令号充值金额)>
MUL N$转区令荣誉 10
GAMEGLORY + <$str(N$转区令荣誉)>
MOV N$转区令幻世币 <$str(N$转区令号充值金额)>
MUL N$转区令幻世币 2000
GAMEDIAMOND + <$str(N$转区令幻世币)>
MOV N$转区令元宝 <$str(N$转区令号充值金额)>
MUL N$转区令元宝 200000
GAMEGOLD + <$str(N$转区令元宝)>
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$转区令积分)>积分,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$转区令荣誉)>荣誉,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$转区令幻世币)>幻世币,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过直冲账号转区获得<$str(N$转区令元宝)>元宝,如果您也想获得,请赶快充值吧!
BREAK
#ELSEACT
MESSAGEBOX 你大米不足<$str(N$转区令号手续费计算领取)>点，请充值大米后再来领取！
BREAK
[@确定转区令转区]
#IF
CHECKITEM 转区令牌 <$STR(N74)>
CheckStringlength s74 > 3
CheckStringlength s74 < 11
#act
TAKE 转区令牌 <$STR(N74)>
MOV S$转区令回收数据 <$str(s74)>
inc S$转区令回收数据 :
inc S$转区令回收数据 <$str(N74)>
AddTextListEx ..\..\..\..\天上捐献数据\天上转区令转区数据\转区令账号金额数据.txt <$str(S$转区令回收数据)> 0
AddTextListEx ..\..\..\..\天上捐献数据\天上转区令转区数据\转区令新区账号.txt <$str(S74)> 0
AddTextListEx ..\..\..\..\天上捐献数据\天上转区令转区数据\转区令数据记录.txt <$DATETIME>服务器〈<$SERVERNAME>〉玩家〈<$USERNAME>〉转区令牌<$str(N74)>个新区账号【<$str(s74)>】！ 0
MESSAGEBOX 恭喜你成功转区转区令牌<$STR(N74)>个，新区账号为<$str(s74)>，请牢记！
MOV S74
MOV N74 0
GOTO @转区令
BREAK
#ELSEACT
MESSAGEBOX 转区令不足，或者账号不符合长度限制要求
BREAK
[@inputstring74]
#IF
EQUAL S74 <$USERID>
#ACT
MOV S74
MESSAGEBOX 新区账号禁止与当前账号相同！！！
BREAK
#IF
CheckStringlength s74 > 10
#ACT
MESSAGEBOX 账号最长限制10位！
MOV S74
GOTO @转区令
BREAK
#IF
CheckStringlength s74 < 4
#ACT
MESSAGEBOX 账号最低限制4位！
MOV S74
GOTO @转区令
BREAK
#IF
LARGE N74 0
#act
GOTO @转区令
BREAK
#ELSEACT
MESSAGEBOX 请先填写转区令牌数量
[@inputinteger74]
#IF
SMALL N74 100
#ACT
MESSAGEBOX 对不起，最低限制100个！
MOV N74 0
GOTO @转区令
BREAK
#IF
LARGE N74 500
#ACT
MESSAGEBOX 对不起，最多限制500个！
MOV N74 0
GOTO @转区令
BREAK
#IF
CHECKITEM 转区令牌 <$STR(N74)>
#ACT
GOTO @转区令
#ELSEACT
MESSAGEBOX 你包里没有<$STR(N74)>个转区令牌！
MOV N74 0
GOTO @转区令
BREAK
}
