|
[@MAIN]
#if
#act
MOV S51
MOV S52
MOV S53
MOV S54
MOV S55
MOV S56
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据0)> 0
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据1)> 1
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据2)> 2
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据3)> 3
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据4)> 4
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据5)> 5
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据6)> 6
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据7)> 7
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据8)> 8
GetRandomText ..\..\..\..\账号转区\花火转区显示数据.txt <$STR(S$数据9)> 9
OPENMERCHANTBIGDLG 96 1301 1 4 0 -80 1 640 13
#say
\ \ \
<> <imgex:96:1292:1293:1294:100:250/@花火定做Q470059570酒鬼令回收> <imgex:96:1295:1296:1297:150:250/@花火定做Q470059570真充回收>\ \
<> <IMGEX:96:1298:1299:1300:450:280/@花火派出所落户手续Q470059570>\ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
<> <No.0/scolor=251> <$STR(S$数据0)> \
<> <No.1/scolor=251> <$STR(S$数据1)> \
<> <No.2/scolor=251> <$STR(S$数据2)> \
<> <No.3/scolor=251> <$STR(S$数据3)> \
<> <No.4/scolor=251> <$STR(S$数据4)> \
<> <No.5/scolor=251> <$STR(S$数据5)> \
<> <No.6/scolor=251> <$STR(S$数据6)> \
<> <No.7/scolor=251> <$STR(S$数据7)> \
<> <No.8/scolor=251> <$STR(S$数据8)> \
<> <No.9/scolor=251> <$STR(S$数据9)> \
[@花火派出所落户手续Q470059570]
#if
#act
OPENMERCHANTBIGDLG 96 1301 1 4 0 -80 1 640 13
#say
\ \
<> \ \
<> \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
<> <请输入以下信息以便办理落户/SCOLOR=223> \ \
<> <原账户账号:/SCOLOR=146> <$STR(S51)> <输入/@@InPutString51> \
<> <原账户注册生日:/SCOLOR=146> <$STR(S52)> <输入/@@InPutString52> \
<> <原账户提问1:/SCOLOR=146> <$STR(S53)> <输入/@@InPutString53> \
<> <原账户回答1:/SCOLOR=146> <$STR(S54)> <输入/@@InPutString54> \
<> <原账户提问2:/SCOLOR=146> <$STR(S55)> <输入/@@InPutString55> \
<> <原账户回答2:/SCOLOR=146> <$STR(S56)> <输入/@@InPutString56> \
<> <点击查询落户信息/@花火Q470059570查询落户信息>
[@InPutString51]
#if
CheckContainsText <$STR(S51)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@InPutString52]
#if
CheckContainsText <$STR(S52)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@InPutString53]
#if
CheckContainsText <$STR(S53)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@InPutString54]
#if
CheckContainsText <$STR(S54)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@InPutString55]
#if
CheckContainsText <$STR(S55)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@InPutString56]
#if
CheckContainsText <$STR(S56)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @花火派出所落户手续Q470059570
[@检测是否同区落户]
#IF
CheckContainsText <$STR(S$原大区)> <$SERVERNAME>
#act
MESSAGEBOX [失败]\\原账户与当前账户处于同一区\\无法落户此账户信息!
BREAK
#ELSEACT
MESSAGEBOX [确认信息]:\\1.当前转区真实充值数量:<$STR(N$转区数量)> @花火落户最后一步0911 @exit
[@花火落户最后一步0911]
#IF
#ACT
;MUL N$元宝数量 <$STR(N$转区数量)> 20000
;MUL N$声望数量 <$STR(N$转区数量)> 400
MUL N$金刚石数量 <$STR(N$转区数量)> 1000
;MUL N$充值点数量 <$STR(N$转区数量)> 1
;GAMEGOLD + <$STR(N$元宝数量)>
;GAMEGLORY + <$STR(N$转区数量)>
GAMEDIAMOND + <$STR(N$金刚石数量)>
;CREDITPOINT + <$STR(N$声望数量)>
;INC U47 <$STR(N$充值点数量)>
DelTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
CLEARNAMELIST ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$元宝数量)>元宝,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过转区充值获得钻石,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$声望数量)>酒鬼币,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$转区数量)>真实充值,如果您也想获得,请赶快充值吧!
MESSAGEBOX [恭喜]:转区落户全部完成,祝君游戏愉快!
[@花火Q470059570查询落户信息]
#OR
EQUAL S51
EQUAL S52
EQUAL S53
EQUAL S54
EQUAL S55
EQUAL S56
#ACT
MESSAGEBOX 请将信息输入完整.
break
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
#ELSEACT
MESSAGEBOX [失败]:未查询到当前信息.
break
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
#act
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$账号)> 0
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(N$转区数量)> 1
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$生日)> 2
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$提问1)> 3
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$回答1)> 4
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$提问2)> 5
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$回答2)> 6
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$转区方式)> 7
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(S$原大区)> 8
GetRandomText ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt <$STR(N$原开区天数)> 9
#IF
equal S52 <$STR(S$生日)>
equal S53 <$STR(S$提问1)>
equal S54 <$STR(S$回答1)>
equal S55 <$STR(S$提问2)>
equal S56 <$STR(S$回答2)>
#elseact
MESSAGEBOX [错误]:您的密保信息输入有误.
BREAK
#IF
equal S$转区方式 转区方式:酒鬼令
#act
GOTO @手续费计算
break
#IF
equal S$转区方式 转区方式:真实充值
#act
GOTO @检测是否同区落户
break
#IF
#ACT
MESSAGEBOX [错误]:信息查询失败请稍后再试.
BREAK
[@手续费计算]
#IF
CheckContainsText <$STR(S$原大区)> <$SERVERNAME>
#act
MESSAGEBOX [失败]\\原账户与当前账户处于同一区\\无法落户此账户信息!
BREAK
;#IF
;LARGE N$当前区天数 <$STR(N$原开区天数)>
;#ACT
;GOTO @分算1
;BREAK
;#IF
;SMALL N$当前区天数 <$STR(N$原开区天数)>
;#ACT
;GOTO @分算2
;BREAK
#IF
;equal N$当前区天数 <$STR(N$原开区天数)>
#ACT
GOTO @分算3
BREAK
[@分算1]
#IF
#ACT
DEC N$当前区天数 <$STR(N$原开区天数)>
#IF
LARGE N$当前区天数 4
#act
MOV N$手续Q 30
GOTO @合并计算
#ELSEACT
MOV N$手续Q 15
GOTO @合并计算
[@分算2]
#IF
#ACT
DEC N$原开区天数 <$STR(N$当前区天数)>
#IF
LARGE N$当前区天数 4
#act
MOV N$手续Q 30
GOTO @合并计算
#ELSEACT
MOV N$手续Q 15
GOTO @合并计算
[@分算3]
#IF
#ACT
MOV N$手续Q 30
GOTO @合并计算
[@合并计算]
#IF
#ACT
MOV N$需人民币 <$STR(N$转区数量)>
MUL N$需人民币 <$STR(N$手续Q)>
DIV N$需人民币 100
MESSAGEBOX [确认信息]:\\1.当前转区充值数量:<$STR(N$转区数量)>\\2.当前手续费率为:<$STR(N$手续Q)>%\\3.需要支付手续费:<$STR(N$需人民币)>人民币 @花火落户最后一步081 @exit
[@花火落户最后一步081]
#IF
CHECKGAMEPOINT < <$STR(N$需人民币)>
#ACT
MESSAGEBOX [失败]:当前人民币点不足以支付转区手续费.操作中断,请及时充值人民币点!
BREAK
#OR
CHECKGAMEPOINT > <$STR(N$需人民币)>
CHECKGAMEPOINT = <$STR(N$需人民币)>
#ACT
GAMEPOINT - <$STR(N$需人民币)>
;MUL N$元宝数量 <$STR(N$转区数量)> 20000
;MUL N$声望数量 <$STR(N$转区数量)> 400
MUL N$金刚石数量 <$STR(N$转区数量)> 1000
;MUL N$充值点数量 <$STR(N$转区数量)> 1
;GAMEGOLD + <$STR(N$元宝数量)>
GAMEDIAMOND + <$STR(N$金刚石数量)>
;CREDITPOINT + <$STR(N$声望数量)>
;INC U47 <$STR(N$充值点数量)>
DelTextList ..\..\..\..\账号转区\可转账号列表.txt <$STR(S51)>
CLEARNAMELIST ..\..\..\..\账号转区\待转区账户\<$STR(S51)>.txt
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$元宝数量)>元宝,如果您也想获得,请赶快充值吧!
SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过转区充值获得钻石,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$声望数量)>酒鬼币,如果您也想获得,请赶快充值吧!
;SENDMSG 1 ★[%s]:恭喜玩家<$USERNAME>通过在线充值获得<$STR(N$充值点数量)>充值点,如果您也想获得,请赶快充值吧!
MESSAGEBOX [恭喜]:转区落户全部完成,祝君游戏愉快!
[@花火定做Q470059570真充回收]
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
MESSAGEBOX [失败]:当前有该账户一条转区信息.无法继续操作,请先完成上一条转区落户手续!
break
#IF
CHECKTEXTLIST ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>
#act
MESSAGEBOX 【错误】:\当前账号可能已经回收!
BREAK
#if
small U48 200
#ACT
MESSAGEBOX 【提示】:\当前账号真实充值不满200无法回收!
BREAK
#if
#act
goto @密保检测
BREAK
;============密保检测
[@密保检测]
#if
#act
OPENMERCHANTBIGDLG 96 1301 1 4 0 -80 1 640 13
#say
\ \
<> \ \
<> \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \
<> <为了恶意回收他人账户:请先输入密保验证/SCOLOR=223> \ \
<> <账户账号 :/SCOLOR=146> <$STR(S71)> <输入/@@InPutString71> \
<> <注册生日 :/SCOLOR=146> <$STR(S72)> <输入/@@InPutString72> \
<> <账户提问1:/SCOLOR=146> <$STR(S73)> <输入/@@InPutString73> \
<> <账户回答1:/SCOLOR=146> <$STR(S74)> <输入/@@InPutString74> \
<> <账户提问2:/SCOLOR=146> <$STR(S75)> <输入/@@InPutString75> \
<> <账户回答2:/SCOLOR=146> <$STR(S76)> <输入/@@InPutString76> \
<> <点击验证/@花火Q470059570密保验证>
[@InPutString71]
#if
CheckContainsText <$STR(S71)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测
[@InPutString72]
#if
CheckContainsText <$STR(S72)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测
[@InPutString73]
#if
CheckContainsText <$STR(S73)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测
[@InPutString74]
#if
CheckContainsText <$STR(S74)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测
[@InPutString75]
#if
CheckContainsText <$STR(S75)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测
[@InPutString76]
#if
CheckContainsText <$STR(S76)> @
#ACT
MESSAGEBOX 输入有误.
break
#ELSEACT
GOTO @密保检测
[@花火Q470059570密保验证]
#OR
EQUAL S71
EQUAL S72
EQUAL S73
EQUAL S74
EQUAL S75
EQUAL S76
#ACT
MESSAGEBOX 请将信息输入完整.
break
#if
EQUAL S71 <$USERID>
EQUAL S72 <$BIRTHDAT>
EQUAL S73 <$QUIZ1>
EQUAL S74 <$ANSWER1>
EQUAL S75 <$QUIZ2>
EQUAL S76 <$ANSWER2>
#ACT
goto @花火验证成功081
#ELSEACT
MESSAGEBOX 密保验证失败,走好不送!
KICK
BREAK
[@花火验证成功081]
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
MESSAGEBOX [失败]:当前有该账户一条转区信息.无法继续操作,请先完成上一条转区落户手续!
break
#IF
CHECKTEXTLIST ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>
#act
MESSAGEBOX 【错误】:\当前账号可能已经回收!
BREAK
#if
small U48 200
#ACT
MESSAGEBOX 【提示】:\当前账号真实充值不满200无法回收!
BREAK
#IF
large U48 199
#ACT
MOV N$真实充值 <$Str(U48)>
MUL N$真实充值 45
DIV N$真实充值 100
MESSAGEBOX [确认信息]:\1.当前回收真实充值:<$Str(U48)>\2.可兑换新区充值:<$STR(N$真实充值)>\3.回收后当前账户将被收回以后无法登录(请勿在新区使用相同账号)\【注意】:请提前回顾当前账号密保问题,落户会进行验证.\【重要提示】:如果有酒鬼令也需要转的情况请先转酒鬼令,否则账号无法登陆 @花火确定回收真实充值 @EXIT
BREAK
[@花火确定回收真实充值]
#IF
#ACT
GOTO @下一步继续满足
break
[@下一步继续满足]
#IF
large U48 199
NOT CHECKTEXTLIST ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>
#ACT
MOV U48 0
AddTextListEx ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
CREATEFILE ..\..\..\..\账号转区\待转区账户\<$USERID>.txt
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$USERID> 0
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(N$真实充值)> 1
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$BIRTHDAT> 2
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ1> 3
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER1> 4
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ2> 5
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER2> 6
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 转区方式:真实充值 7
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 大区:<$SERVERNAME> 8
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(G266)> 9
AddTextListEx ..\..\..\..\账号转区\回收禁止登录账号.txt <$USERID>:<$BIRTHDAT>:<$QUIZ1>:<$ANSWER1>:<$QUIZ2>:<$ANSWER2>
;以下显示调用数据
AddTextListEx ..\..\..\..\账号转区\花火转区显示数据.txt <来自:<$SERVERNAME> 玩家:<$USERNAME> 成功将当前账户自助转区./SCOLOR=100>
DelayCall 3000 @Kick
MESSAGEBOX 【恭喜】:当前账号转区成功!请及时换区落户,即将自动下线.
[@Kick]
#IF
#ACT
Kick
[@花火定做Q470059570酒鬼令回收]
#if
CHECKTEXTLIST ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
messagebox 对不起,当前账户有未落户的转区信息。无法继续操作!
BREAK
#if
CHECKGAMEGLORY < 100
#act
messagebox 对不起。酒鬼令回收要求满100才可以回收..
BREAK
#if
#act
MOV N$鬼灵总数 <$GAMEGLORY>
DIV N$可回收数 <$STR(N$鬼灵总数)> 2
;跨战区手续费计算
MUL N$跨手续费 <$STR(N$可回收数)> 30
DIV N$跨手续费 100
;同战区手续费计算
MUL N$同手续费 <$STR(N$可回收数)> 30
DIV N$同手续费 100
MESSAGEBOX [确认信息]:\\1.当前回收酒鬼令数量:<$STR(N$鬼灵总数)>\2.可兑换新区充值:<$STR(N$可回收数)>\3.落户手续费:<$STR(N$跨手续费)>大米点,(新区账号收取)\【注意】:请提前回顾当前账号密保问题,落户会进行验证. @花火确定回收酒鬼令 @EXIT
[@花火确定回收酒鬼令]
#if
CHECKTextList ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
MESSAGEBOX [失败]:当前有该账户一条转区信息.无法继续操作,请先完成上一条转区落户手续!OK
break
#if
NOT CHECKTEXTLIST ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
#ACT
GAMEGLORY - <$STR(N$鬼灵总数)>
AddTextListEx ..\..\..\..\账号转区\可转账号列表.txt <$USERID>
CREATEFILE ..\..\..\..\账号转区\待转区账户\<$USERID>.txt
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$USERID> 0
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(N$可回收数)> 1
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$BIRTHDAT> 2
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ1> 3
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER1> 4
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$QUIZ2> 5
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$ANSWER2> 6
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 转区方式:酒鬼令 7
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt 大区:<$SERVERNAME> 8
AddTextListEx ..\..\..\..\账号转区\待转区账户\<$USERID>.txt <$STR(G266)> 9
;以下显示调用数据
AddTextListEx ..\..\..\..\账号转区\花火转区显示数据.txt <来自:<$SERVERNAME> 玩家:<$USERNAME> 成功将: <$STR(N$鬼灵总数)>酒鬼令自助转区./SCOLOR=100>
MOV N$鬼灵总数 0
MOV N$可回收数 0
MOV N$跨手续费 0
MOV N$同手续费 0
MOV N$同手续费 0
MESSAGEBOX 【恭喜】:当前酒鬼令转区成功,请及时去新区落户!
goto @main
|
|