[@元宝转区]
#IF
EQUAL T3
#ACT
MessageBox 对不起!请先绑定微信，在使用此功能
BREAK
#IF
#ACT
CloseBigDialogBox
#SAY
<转区元宝最低30万起，按照6000元宝转到新区5000元宝/FCOLOR=253>\
<转区元宝达到3000万及以上的，请先联系技术进行核查/FCOLOR=253> \ \
<注意：转区必须相同微信绑定的账号才能领取元宝！！！/FCOLOR=249> \
<注意：请不要在同一个区领取元宝，否则后果自负！！！/FCOLOR=249>\ \
<填写元宝数量/@@InPutInteger8> <转区数量：/FCOLOR=254><$STR(N8)> <领取数量：/FCOLOR=254><$STR(N$转区可领取)>\ \
<提交转区/@开始转区A_01> <联系技术/@综合A_07> <领取元宝/@领取转区> <返回主页/@游戏综合>
[@InPutInteger8]
#if
CheckContainsText <$SERVERNAME> 测试
#act
MessageBox 对不起，测试区无法转区！
break
#IF
SMALL N8 300000
#ACT
MOV N8 0
MessageBox 对不起！您的元宝不足300000个，无法转区！
BREAK
#IF
SMALL <$GAMEGOLD> <$STR(N8)>
#ACT
MOV N8 0
MessageBox 对不起！您当前输入的元宝，超过您身上的元宝，无法转区，请从新输入！
BREAK
#IF
LARGE N8 29999999
#ACT
MOV N$转区可领取 <$STR(N8)>
DIV N$转区可领取 6000
MUL N$转区可领取 5200
GOTO @元宝转区
BREAK
#IF
#ACT
MOV N$转区可领取 <$STR(N8)>
DIV N$转区可领取 6000
MUL N$转区可领取 5000
GOTO @元宝转区
BREAK
[@开始转区A_01]
#IF
ISONMAP WX
#ACT
messagebox 此地图无法回收
BREAK
#IF
EQUAL N8 0
#ACT
MessageBox 对不起！您没有填写具体的元宝数量
break
#if
CheckContainsText <$SERVERNAME> 测试
#act
MessageBox 对不起，测试区无法转区！
break
#IF
SMALL <$GAMEGOLD> <$STR(N8)>
#ACT
MOV N8 0
MessageBox 对不起！您当前输入的元宝，超过您身上的元宝，无法转区，请从新输入！
BREAK
#IF
SMALL N8 30000000
#ACT
MOV N$转区详细 <$STR(N8)>
DIV N$转区详细 6000
MUL N$转区详细 5000
GAMEGOLD - <$STR(N8)>
AddTextListEx ..\..\..\..\数据文件\每日统计文件\<$YEAR>年<$MONTH>月<$DAY>号\转区详细记录.txt 区号[<$SERVERNAME>]|原来角色[<$USERNAME>]|扣除元宝[<$STR(N8)>]|领取元宝[<$STR(N$转区详细)>]|<$STR(T3)>
AddTextListEx ..\..\..\..\数据文件\每日统计文件\转区总名单.TXT 区号[<$SERVERNAME>]|原来角色[<$USERNAME>]|扣除元宝[<$STR(N8)>]|领取元宝[<$STR(N$转区详细)>]|<$STR(T3)>
AddTextListEx ..\..\..\..\数据文件\转区文件\转区名单.txt <$STR(T3)>
CreateFile ..\..\..\..\数据文件\转区文件\转区详细\<$STR(T3)>.TXT
AddTextListEx ..\..\..\..\数据文件\转区文件\转区详细\<$STR(T3)>.TXT <$STR(N$转区详细)> 0
MessageBox [转区成功]\ \您已经转区成功
MOV N8 0
MOV S16
MOV S17
MOV N$转区详细 0
MOV N$转区详细A 0
MOV N$转区可领取 0
goto @游戏综合
BREAK
#IF
LARGE N8 29999999
#ACT
MOV N$转区详细 <$STR(N8)>
DIV N$转区详细 6000
MUL N$转区详细 5200
GAMEGOLD - <$STR(N8)>
AddTextListEx ..\..\..\..\数据文件\每日统计文件\<$YEAR>年<$MONTH>月<$DAY>号\转区详细记录.txt 区号[<$SERVERNAME>]|原来角色[<$USERNAME>]|扣除元宝[<$STR(N8)>]|领取元宝[<$STR(N$转区详细)>]|<$STR(T3)>
AddTextListEx ..\..\..\..\数据文件\每日统计文件\转区总名单.TXT 区号[<$SERVERNAME>]|原来角色[<$USERNAME>]|扣除元宝[<$STR(N8)>]|领取元宝[<$STR(N$转区详细)>]|<$STR(T3)>
AddTextListEx ..\..\..\..\数据文件\转区文件\转区名单.txt <$STR(T3)>
CreateFile ..\..\..\..\数据文件\转区文件\转区详细\<$STR(T3)>.TXT
AddTextListEx ..\..\..\..\数据文件\转区文件\转区详细\<$STR(T3)>.TXT <$STR(N$转区详细)> 0
MessageBox [转区成功]\ \您已经转区成功
MOV N8 0
MOV S16
MOV S17
MOV N$转区详细 0
MOV N$转区详细A 0
MOV N$转区可领取 0
goto @游戏综合
