通区转区充值点

meinvwudi

[@转区NPC实现]
{
#If
Equal A204 开区
#Act
UpdateTongVar A204
Messagebox 转区功能未开启，联系管理开启转区(或30秒后在来找我)
BREAK

#IF
CheckTextList ..\QuestDiary\系统功能\转区系统\转区查询授权帐号.txt <$USERID>
#act
Readconfigfileitem ..\Questdiary\系统功能\转区系统\转区配置.Ini 开关     状态      S$转区功能开关
MOV S$转区管理开关      <Text|ax=0|x=439|y=50.0|color=249|size=18|text=转区开关|link=@转区通区开关>
MOV S$转区功能状态      <RText|ax=0|x=505|y=50.0|color=254|size=18|text=【<$STR(S$转区功能开关)>】>
MOV S$转区管理查询      <Text|ax=0|x=439|y=80.0|color=250|size=18|text=转区查询|link=@查询转区玩家清单>


#if
Comparetext <$str(S$转区功能开关)> 关
not CheckTextList ..\QuestDiary\系统功能\转区系统\转区查询授权帐号.txt <$USERID>
#act
messagebox 当前转区功能暂未开放
break


#if
#act
MOV S$转区信息1 
MOV S$转区信息2 
MOV S$转区信息3 
MOV N$转区获得元宝数 0
MOV N$可领取转区点数 0
MOV S$转区信息字符串 <$GETSTRVALUE(A88,<$USERACCOUNT>)>

#IF
not comparetext  <$GETSTRVALUE(A88,<$USERACCOUNT>)> 
#ACT 
GETVALIDSTRSUPER <$STR(S$转区信息字符串)>  |    S$转区信息  N$信息数量
MOV N$可领取转区点数 <$STR(S$转区信息2)>
; sendmsg 6 -----111---[<$STR(S$转区信息1)>]--[<$STR(S$转区信息2)>]---[<$STR(S$转区信息3)>]------

; 有转区情况,显示领取界面
#IF
large N$可领取转区点数 0
; not EQUAL S$转区信息1 <$SERVERIDX>
#SAY
<Img|x=30.0|y=11.0|width=539|height=416|show=4|scale9t=10|scale9r=10|bg=1|scale9b=10|scale9l=10|move=0|img=public/bg_bbgm_01.png|esc=1>
<Layout|x=552.0|y=-10.0|width=80|height=80|link=@exit>
<Button|x=568.0|y=12.0|color=255|size=18|pimg=public/1900000511.png|nimg=public/1900000510.png|link=@exit>
<Img|x=381.0|y=333.0|width=150|rotate=0|esc=0|img=public/1900000668.png>
<RText|x=80.0|y=57.0|color=254|size=18|text=转区规则：>
<RText|ax=0|x=86|y=95.0|color=250|size=16|text=1.<相同账号转区才可以领取/FCOLOR=251>>
<RText|ax=0|x=86|y=125|color=250|size=16|text=2.<转区点100元以上可以转区,1转 区点=5000元宝/FCOLOR=253>>
<RText|ax=0|x=86|y=155|color=250|size=16|text=3.<老区充值点可兑换20%转区点 兑换完成后充值点清空/FCOLOR=21>>
<RText|ax=0|x=86|y=185|color=250|size=16|text=4.<转区点只能领取元宝，无会员赠送/FCOLOR=242>>
<RText|ax=0|x=86|y=215|color=250|size=18|text=5.<转一笔领一笔，重复转区会覆盖，造成无法领取/FCOLOR=249>>
<Button|ay=1|x=121|y=260|width=120|height=40|pimg=public/image6.png|mimg=public/image5.png|size=18|nimg=public/image7.png|color=255|text=回收转区点|link=@回收转区点>
<Button|ay=1|x=306|y=260|width=120|height=40|pimg=public/image6.png|mimg=public/image5.png|size=18|nimg=public/image7.png|color=255|text=兑换转区点|link=@兑换转区点>
<Text|ax=0|x=66|y=350.0|outlinecolor=18|size=20|color=255|outline=2|text=可领转区点：<$STR(N$可领取转区点数)>>
<Button|x=388.0|y=370.0|color=161|size=18|nimg=public/bg_hhzy_01_1.png|text=领取充值|link=@领取转区充值>
<$STR(S$转区管理开关)>
<$STR(S$转区功能状态)>
<$STR(S$转区管理查询)>
#ACT
BREAK

; 无转区情况,显示转区界面
#IF
#SAY
<Img|x=30.0|y=11.0|width=539|height=416|show=4|scale9t=10|scale9r=10|bg=1|scale9b=10|scale9l=10|move=0|img=public/bg_bbgm_01.png|esc=1>
<Layout|x=552.0|y=-10.0|width=80|height=80|link=@exit>
<Button|x=568.0|y=12.0|color=255|size=18|pimg=public/1900000511.png|nimg=public/1900000510.png|link=@exit>
<Img|x=381.0|y=333.0|width=150|rotate=0|esc=0|img=public/1900000668.png>
<RText|x=80.0|y=57.0|color=254|size=18|text=转区规则：>
<RText|ax=0|x=86|y=95.0|color=250|size=16|text=1.<相同账号转区才可以领取/FCOLOR=251>>
<RText|ax=0|x=86|y=125|color=250|size=16|text=2.<转区点100元以上可以转区,1转 区点=5000元宝/FCOLOR=253>>
<RText|ax=0|x=86|y=155|color=250|size=16|text=3.<老区充值点可兑换20%转区点 兑换完成后充值点清空/FCOLOR=21>>
<RText|ax=0|x=86|y=185|color=250|size=16|text=4.<转区点只能领取元宝，无会员赠送/FCOLOR=242>>
<RText|ax=0|x=86|y=215|color=250|size=18|text=5.<转一笔领一笔，重复转区会覆盖，造成无法领取/FCOLOR=249>>
<Button|ay=1|x=121|y=260.0|width=120|height=40|pimg=public/image6.png|mimg=public/image5.png|size=18|nimg=public/image7.png|color=255|text=回收转区点|link=@回收转区点>
<Button|ay=1|x=306|y=260|width=120|height=40|pimg=public/image6.png|mimg=public/image5.png|size=18|nimg=public/image7.png|color=255|text=兑换转区点|link=@兑换转区点>
<Text|ax=0|x=66|y=340.0|outlinecolor=18|size=20|color=255|outline=2|text=充值点：<$GAMEGIRD>>
<Text|ax=0|x=66|y=375.0|outlinecolor=18|size=20|color=255|outline=2|text=转区点：<$Money(转区点)>>

<Input|x=385.0|y=336.0|width=140|height=25|rotate=0|mincount=3|outlinecolor=0|inputid=1|place=输入转区数量|maxcount=7|type=1|size=18|color=1037|placecolor=100>
<Button|x=388.0|y=370.0|color=161|size=18|submitInput=1|nimg=public/bg_hhzy_01_1.png|text=确定转区|link=@确定转区>
<$STR(S$转区管理开关)>
<$STR(S$转区功能状态)>
<$STR(S$转区管理查询)>

[@兑换转区点]
#if
#act 
messagebox \老区充值点可兑换20%转区点\兑换完成后充值点清空  @兑换转区点确定 @exit

[@兑换转区点确定]
#if
checkgamegird < 10
#act
messagebox 充值点不够10点,无法兑换!
break

#if 
checkgamegird > 0
#act 
; U88统计转区充值点兑换记
MOV N$充值点TO转区点 <$GAMEGIRD>
MUL N$充值点TO转区点     20
DIV N$充值点TO转区点    100
INC U88         <$STR(N$充值点TO转区点)> 
GAMEGIRD = 0
MONEY  转区点 + <$STR(N$充值点TO转区点)>
messagebox 成功兑换<$STR(N$充值点TO转区点)>转区点,可在新区领取充值!
goto @转区NPC实现
break



[@领取转区充值]
#if
#act
sendmsg 9 转区信息读取中
DELAYGOTO  3000  @领取转区充值跳转


[@领取转区充值跳转]
#if
#act
MOV S$转区信息1 
MOV S$转区信息2 
MOV S$转区信息3 
MOV N$转区获得元宝数 0
MOV N$可领取转区点数 0
MOV S$转区信息字符串 <$GETSTRVALUE(A88,<$USERACCOUNT>)>

#IF
not equal  <$STR(S$转区信息字符串)> 
#ACT 
GETVALIDSTRSUPER <$STR(S$转区信息字符串)>  |    S$转区信息  N$信息数量
MOV N$可领取转区点数 <$STR(S$转区信息2)>


#IF
equal  <$STR(S$转区信息字符串)> 
#ACT
SENDMSG 9 【系统】：没有查询到你的转区信息!
BREAK



; #IF
; EQUAL S$转区信息1 <$SERVERIDX>
; #ACT
; SENDMSG 9 【系统】：相同区无法转区
; BREAK


#if
not large N$可领取转区点数 0
#act 
SENDMSG 9 【系统】：可领取的转区点数为0.
BREAK

#IF
large N$可领取转区点数 0
#ACT
Mov N$转区获得元宝数 <$STR(N$可领取转区点数)>
Mul N$转区获得元宝数 5000 <$STR(N$可领取转区点数)>
MONEY 元宝 + <$STR(N$转区获得元宝数)>
SENDMSG 1 ★[系统]:恭喜玩家<$USERNAME>成功充值<$str(N$可领取转区点数)>元，获得<$STR(N$转区获得元宝数)>元宝，如果您也想获得，请赶快充值吧。
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转区信息3)> 领取区ID <$SERVERIDX>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转区信息3)> 领取区名 <$SERVERNAME>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转区信息3)> 领取名字 <$USERNAME>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转区信息3)> 领取元宝 <$STR(N$转区获得元宝数)>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转区信息3)> 领取变量 <$STR(S$转区信息字符串)>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转区信息3)> 领取时间 <$DATETIME>
DELSTRVALUE A88 <$USERACCOUNT>
UpdateTongVar A88
UpDateTongFile  ..\Questdiary\数据文件\转区数据\转区详细.TXT
SENDMSG 9 【系统】：恭喜您转区充值领取成功,获得<$STR(N$转区获得元宝数)>元宝
goto @转区NPC实现
break


[@确定转区]
#IF
EQUAL <$NPCINPUT(1)> 0
#ACT
SENDMSG 9 【系统】：输入转区点不可为空
BREAK

#IF
SMALL <$NPCINPUT(1)> 200
#ACT
SENDMSG 9 【系统】：输入转区点能低于200
BREAK

#IF
checkmoney 转区点 < <$NPCINPUT(1)>
#ACT
SENDMSG 9 【系统】：你的转区点不足<$NPCINPUT(1)>，无法转出
BREAK


#IF
not checkmoney 转区点 < <$NPCINPUT(1)>
#ACT
money 转区点 - <$NPCINPUT(1)>
MOV S$转出信息保存ID <$USERNAME>_<$UTCNOW>
MOV S$转区信息字符串  <$SERVERIDX>|<$NPCINPUT(1)>|<$STR(S$转出信息保存ID)>
ADDSTRVALUE A88 <$USERACCOUNT> <$STR(S$转区信息字符串)>
updatetongvar A88
addtextlistex ..\Questdiary\数据文件\转区数据\转区帐号.TXT <$STR(S$转出信息保存ID)> 0
; SENDMSG 6 -1--[<$SERVERIDX>]--[<$SERVERNAME>]---[<$USERNAME>]--------[<$NPCINPUT(1)>]----[<$STR(S$转区信息字符串)>]---[<$STR(S$转出信息保存ID)>]--------
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转出信息保存ID)> 转出区ID <$SERVERIDX>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转出信息保存ID)> 转出区名 <$SERVERNAME>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转出信息保存ID)> 充值兑换 <$STR(U88)>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转出信息保存ID)> 转出点数 <$NPCINPUT(1)>
writeconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT   <$STR(S$转出信息保存ID)> 转出变量 <$STR(S$转区信息字符串)>

UpDateTongFile  ..\Questdiary\数据文件\转区数据\转区帐号.TXT
UpDateTongFile  ..\Questdiary\数据文件\转区数据\转区详细.TXT
Messagebox 成功转出：<$NPCINPUT(1)>转区点，请在其它区领取
goto @转区NPC实现
break


#ELSEACT
SENDMSG 9 【系统】：你的转区点不足<$NPCINPUT(1)>，无法转出
BREAK


[@回收转区点]
#CALL [\系统功能\转区系统\装备回收转区点.txt] @装备回收转区点实现

[@转区管理加载]
#CALL [\系统功能\转区系统\转区查询后台.txt] @转区查询后台实现
}

meinvwudi

转区显示信息显示后台

[@转区查询后台实现]
{

[@查询转区玩家清单]
#If
#Act
Mov N$查看页数 0
Mov N$转区玩家行号0 0
Mov N$转区玩家行号1 1
Mov N$转区玩家行号2 2
Mov N$转区玩家行号3 3
Mov N$转区玩家行号4 4
Mov N$转区玩家行号5 5
Mov N$转区玩家行号6 6
Mov N$转区玩家行号7 7
Mov N$转区玩家行号8 8
Mov N$转区玩家行号9 9
Goto @转区玩家变量清理
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据0 <$Str(N$转区玩家行号0)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据1 <$Str(N$转区玩家行号1)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据2 <$Str(N$转区玩家行号2)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据3 <$Str(N$转区玩家行号3)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据4 <$Str(N$转区玩家行号4)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据5 <$Str(N$转区玩家行号5)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据6 <$Str(N$转区玩家行号6)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据7 <$Str(N$转区玩家行号7)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据8 <$Str(N$转区玩家行号8)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据9 <$Str(N$转区玩家行号9)>
Goto @转区玩家数据拼接
Goto @转区玩家数据明细main

[@转区玩家数据中转减a]
#If
Large N$查看页数 0
#Act
Goto @转区玩家变量清理
Goto @转区玩家行号减10
Dec N$查看页数 1
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据0 <$Str(N$转区玩家行号0)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据1 <$Str(N$转区玩家行号1)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据2 <$Str(N$转区玩家行号2)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据3 <$Str(N$转区玩家行号3)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据4 <$Str(N$转区玩家行号4)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据5 <$Str(N$转区玩家行号5)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据6 <$Str(N$转区玩家行号6)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据7 <$Str(N$转区玩家行号7)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据8 <$Str(N$转区玩家行号8)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据9 <$Str(N$转区玩家行号9)>
Goto @转区玩家数据拼接
Goto @转区玩家数据明细main

[@转区玩家数据中转加a]
#If
Equal S$转区玩家数据9
#Act
Messagebox 对不起！这已经是最后一页了，无法继续查看。
Break
#Elseact
Goto @转区玩家变量清理
Goto @转区玩家行号加10
Inc N$查看页数 1

Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据0 <$Str(N$转区玩家行号0)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据1 <$Str(N$转区玩家行号1)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据2 <$Str(N$转区玩家行号2)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据3 <$Str(N$转区玩家行号3)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据4 <$Str(N$转区玩家行号4)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据5 <$Str(N$转区玩家行号5)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据6 <$Str(N$转区玩家行号6)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据7 <$Str(N$转区玩家行号7)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据8 <$Str(N$转区玩家行号8)>
Getrandomtext ..\Questdiary\数据文件\转区数据\转区帐号.TXT  S$转区玩家数据9 <$Str(N$转区玩家行号9)>
Goto @转区玩家数据拼接
Goto @转区玩家数据明细main

[@转区玩家数据明细main]
#ACT 
GOTO @转区显示字串拼接
#SAY
<Img|x=0|y=0|width=1000|height=400|scale9r=10|scale9t=10|bg=1|scale9b=10|reset=1|move=0|img=custom/zh/bg_npc_01.png|scale9l=10>
<Layout|x=458|y=0|width=80|height=80|link=@exit>
<Button|x=998.0|y=-1.0|nimg=public/1900000510.png|pimg=public/1900000511.png|link=@exit>
<Text|x=438.0|y=14.0|color=239|size=18|outline=1|outlinecolor=0|text=转区信息>
<Img|x=350.0|y=19.0|width=246|esc=0|img=custom/zh/title4_0.png|opacity=255>
<Img|x=00|y=33.0|width=1000|esc=0|img=public/z_image_03.png>
<RText|x=15.0|y=40.0|color=254|size=16|text======转出玩家==转出分区==转区点=====转出时间======玩家===领取分区===领取元宝==============领取时间============充值点>
<$STR(S$转区信息字符串)>
<Img|x=00|y=317.0|width=1000|esc=0|img=public/z_image_03.png>
<Text|a=0|ay=1|x=56.0|y=344|tipsx=10|tipsy=80|size=18|color=251|text=上一页|link=@转区玩家数据中转减a>
<Text|a=0|ay=1|x=728.0|y=344|tipsx=10|tipsy=80|size=18|color=251|text=下一页|link=@转区玩家数据中转加a>
<Text|a=0|ay=1|x=900.0|y=344|tipsx=10|tipsy=80|size=18|color=251|text=返回|link=@Main>
<Text|a=0|ay=1|x=422.0|y=344|tipsx=10|tipsy=80|size=18|color=251|text=刷新|link=@查询转区玩家清单>

[@转区显示字串拼接]
#Act
MOV N$循环行数 0
MOV S$转区信息字符串
MOV N$每行Y坐标 60

WHILE N$循环行数 < 10
    INC S$转区信息字符串 <Text|ay=1|x=26.0|y=<$STR(N$每行Y坐标)>|color=250|size=16|text=<$Str(N$转区玩家行号<$STR(N$循环行数)>)>.>
    INC S$转区信息字符串 <Text|ay=1|x=54.0|y=<$STR(N$每行Y坐标)>|color=253|size=16|text=<$Str(S$转出玩家名字<$STR(N$循环行数)>)>>
    INC S$转区信息字符串 <Text|ay=1|x=135.0|y=<$STR(N$每行Y坐标)>|color=239|size=16|text=<$Str(S$转区转出区名<$STR(N$循环行数)>)>>
    INC S$转区信息字符串 <Text|ay=1|x=218.0|y=<$STR(N$每行Y坐标)>|color=249|size=16|text=<$Str(S$转区转出点数<$STR(N$循环行数)>)>>
    INC S$转区信息字符串 <Text|ay=1|x=274.0|y=<$STR(N$每行Y坐标)>|color=9|size=16|text=<$STR(S$转出时间格式<$STR(N$循环行数)>一)>>
    INC S$转区信息字符串 <Text|ay=1|x=423.0|y=<$STR(N$每行Y坐标)>|color=254|size=16|text=<$STR(S$转区领取名字<$STR(N$循环行数)>)>>
    INC S$转区信息字符串 <Text|ay=1|x=483.0|y=<$STR(N$每行Y坐标)>|color=251|size=16|text=<$STR(S$转区领取分区<$STR(N$循环行数)>)>>
    INC S$转区信息字符串 <Text|ay=1|x=559.0|y=<$STR(N$每行Y坐标)>|color=21|size=16|text=<$STR(S$转区领取元宝<$STR(N$循环行数)>)>>
    INC S$转区信息字符串 <Text|ay=1|x=683.0|y=<$STR(N$每行Y坐标)>|color=153|size=18|text=<$Str(S$转区领取时间<$STR(N$循环行数)>)>>
    INC S$转区信息字符串 <Text|ay=1|x=945.0|y=<$STR(N$每行Y坐标)>|color=22|size=18|text=<$Str(S$转区充值兑换<$STR(N$循环行数)>)>>
    INC N$每行Y坐标 25
    INC N$循环行数 1
ENDWHILE

[@转区玩家数据拼接]
#Act
MOV N$循环行数 0
WHILE N$循环行数 < 10
    goto @转区玩家数据拼接跳转
    INC N$循环行数 1
ENDWHILE

[@转区玩家数据拼接跳转]
#If
Not Equal S$转区玩家数据<$STR(N$循环行数)>
#Act
GetValidstr  <$STR(S$转区玩家数据<$STR(N$循环行数)>)>   _  S$转出玩家名字<$STR(N$循环行数)>  S$转出时间临时<$STR(N$循环行数)>
UNIXTOSTR <$STR(S$转出时间临时<$STR(N$循环行数)>)>  S$转出时间格式<$STR(N$循环行数)>一  S$转出时间格式<$STR(N$循环行数)>二
Readconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT  <$Str(S$转区玩家数据<$STR(N$循环行数)>)>  转出点数   S$转区转出点数<$STR(N$循环行数)>
Readconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT  <$Str(S$转区玩家数据<$STR(N$循环行数)>)>  转出区名   S$转区转出区名<$STR(N$循环行数)>
Readconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT  <$Str(S$转区玩家数据<$STR(N$循环行数)>)>  领取名字   S$转区领取名字<$STR(N$循环行数)>
Readconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT  <$Str(S$转区玩家数据<$STR(N$循环行数)>)>  领取元宝   S$转区领取元宝<$STR(N$循环行数)>
Readconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT  <$Str(S$转区玩家数据<$STR(N$循环行数)>)>  领取区名   S$转区领取分区<$STR(N$循环行数)>
Readconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT  <$Str(S$转区玩家数据<$STR(N$循环行数)>)>  领取时间   S$转区领取时间<$STR(N$循环行数)>
Readconfigfileitem ..\Questdiary\数据文件\转区数据\转区详细.TXT  <$Str(S$转区玩家数据<$STR(N$循环行数)>)>  充值兑换   S$转区充值兑换<$STR(N$循环行数)>
MOV  S$转区转出点数<$STR(N$循环行数)>  <$STR(S$转区转出点数<$STR(N$循环行数)>)>点 
MOV  S$转区领取元宝<$STR(N$循环行数)>  <$STR(S$转区领取元宝<$STR(N$循环行数)>)>元宝
MOV  S$转区充值兑换<$STR(N$循环行数)>  <$STR(S$转区充值兑换<$STR(N$循环行数)>)>点


[@转区玩家行号加10]
#Act
mov N$循环行数 0
WHILE N$循环行数 < 10
    Inc N$转区玩家行号<$STR(n$循环行数)> 10
    INC N$循环行数 1
ENDWHILE

[@转区玩家行号减10]
#Act
mov N$循环行数 0
WHILE N$循环行数 < 10
    DEC N$转区玩家行号<$STR(n$循环行数)> 10
    INC N$循环行数 1
ENDWHILE

[@转区玩家变量清理]
#Act
MOV N$循环行数 0
WHILE N$循环行数 < 10
    Mov S$转区玩家数据<$STR(N$循环行数)>
    Mov S$转出玩家名字<$STR(N$循环行数)> 
    Mov S$转区转出点数<$STR(N$循环行数)> 
    Mov S$转区转出区名<$STR(N$循环行数)> 
    Mov S$转出时间格式<$STR(N$循环行数)>一 
    Mov S$转区领取名字<$STR(N$循环行数)> 
    Mov S$转区领取元宝<$STR(N$循环行数)> 
    Mov S$转区领取分区<$STR(N$循环行数)> 
    Mov S$转区领取时间<$STR(N$循环行数)> 
    Mov S$转区充值兑换<$STR(N$循环行数)> 
    INC N$循环行数 1
ENDWHILE

[@转区通区开关]
#If
#Act
Readconfigfileitem ..\Questdiary\系统功能\转区系统\转区配置.Ini 开关     状态      S$转区功能开关

#if
Comparetext <$str(S$转区功能开关)> 开
#act
MOV S$转区功能开关 关
writeconfigfileitem ..\Questdiary\系统功能\转区系统\转区配置.Ini 开关     状态      关
messagebox 所有区转区功能状态为:关
UpDateTongFile ..\系统功能\转区系统\转区配置.Ini
goto @转区NPC实现
break
#elseact
writeconfigfileitem ..\Questdiary\系统功能\转区系统\转区配置.Ini 开关     状态      开
messagebox 所有区转区功能状态为:开
UpDateTongFile ..\系统功能\转区系统\转区配置.Ini
goto @转区NPC实现
break
}

meinvwudi

; 转区变量同步
SetOnTimer 3 30


[@OnTimer3]
;新区通知主区下发
#IF
EQUAL A205
#ACT
mov A205 1
mov A204 开区
UpdateTongVar A204

; 主区下发变量
#If
Equal A204 开区
equal <$MAINTONGSERVER> <$SERVERIDX>
#Act
mov A204
UpdateTongVar A204
UpdateTongVar A88
UpDateTongFile  ..\Questdiary\数据文件\转区数据\转区帐号.TXT
UpDateTongFile  ..\Questdiary\数据文件\转区数据\转区详细.TXT
UpDateTongFile  ..\系统功能\转区系统\转区配置.Ini