此脚本本人未对亲测，在线转移账号角色利用脚本使合区后的人物名字不再加a，大家可以加入游戏中测试下看看
1.建立一个NPC
()
%100
[@main]
尊敬的骨灰玩家您好.我能帮你在线转移等级,元宝,积分<$HEROLEVEL>。\
(首先请您注册一个新的游戏帐号,建一个新的游戏角色)\
请将新游戏角色登陆游戏后开始认真读取以下转移条件：\
1."<$USERNAME>"被称为“旧角色”，您的新角色被称“新角色”。\
2.“旧角色”和“新角色”加双方英雄一定要同时在线。\
3.“旧角色”和“新角色”的IP要一样。(您的IP：<$IPADDR>)\
4.转移后,“新角色”将会获得“旧角色”的等级,元宝,积分.\
5.转移后,“旧角色”的等级,元宝,积分,会变成0。\
<[设置转移密码]/@设置英雄删除密码>  <[开始转移等级,元宝,积分数据给另一个新角色]/@开始转移等级> 
[@设置英雄删除密码]
1.请不要把删除英雄的密码设置的和登陆密码一样\
2.合区之后就会清理您的英雄删除密码.\
3.请不要相信游戏中的老六，特别不要下载盗号的游戏附助工具\
4.设置英雄删除密码后不可以更改,请您一定要牢记\
5.<密码请使用8位以下的数字/FCOLOR=222> \
<提示：本密码和英雄删除密码一致>\
<如果您设置过英雄删除密码。那就无须设置了/FCOLOR=250> \ \
<[确定设置转移密码]/@@InPutInteger71|Title=请设置一个密码(8位以下的数字)>  <[返回上页]/@main>
[@@InPutInteger71]
#IF
CHECKVAR HUMAN 英雄删除密码 = 0
#Act
DelayGoto 500 ~InPutInteger71
#ELSEsay
您已经设置过删除密码了,请合区后再点我重新设置！  <[返回上页]/@main>
[~InPutInteger71]
#IF
CHECKVAR HUMAN 英雄删除密码 = 0
LARGE N71 0
SMALL N71 100000000
#Act
CALCVAR HUMAN 英雄删除密码 = <$STR(N71)>
SAVEVAR HUMAN 英雄删除密码 ..\QuestDiary\副本地图\是否开启.txt
#say
设置成功!       <[返回上页]/@main>
#ELSEact
messagebox 只能输入8位以下的纯数字！
goto @设置英雄删除密码
break
[@开始转移等级]
请您输入转移密码\ \
<[输入转移密码]/@@InPutInteger72|Title=请输入您的转移密码>\
<[返回上页]/@main>\
[@@InPutInteger72]
#IF
CHECKVAR HUMAN 英雄删除密码 > 0
#Act
DelayGoto 500 ~InPutInteger72
#ELSEsay
您并没有设置过删除密码，请您先设置删除密码后再来  <[返回上页]/@main>
[~InPutInteger72]
#IF
CHECKVAR HUMAN 英雄删除密码 = <$STR(N72)>
#Act
goto @开始转移等级1
break
#ELSEact
messagebox 密码输入错误！
goto @main
break
[@开始转移等级1]
恭喜您,密码输入正确。\
您好,您须清楚自己在做什么再使用本功能.否则后果请自负.\ \
<[输入新角色的名字]/@@InPutString1|Title=请输入您的新角色名字>\
<[返回上页]/@main>\
[@@InPutString1]
#IF
checklevelex < 190
#Act
close
MESSAGEBOX 对不起,您的等级不足190级,无法操作。
BREAK
#IF
#Act
DelayGoto 500 ~InPutString1
BREAK
[~InPutString1]
#IF
EQUAL S1
#ACT
MESSAGEBOX [错误]:输入内容为空,请重新输入!
GOTO @main
BREAK
#IF
EQUAL S1 <$USERNAME>
#ACT
MESSAGEBOX 我日。“<$USERNAME>”是旧角色，您须输入新角色的名字。
GOTO @main
BREAK
#ELSESAY
请您确认一下。\ \ \
您的新角色名字为：<$STR(s1)>\ \
您确定将“<$USERNAME>”的数据转移给“<$STR(s1)>”吗？\ \
为了避免恶意转移,每转移1次需要支付10万米宝\
<[确定支付10万米宝进行转移]/@确定转移111>   <[返回上页]/@main>\
[@确定转移111]
#if
HAVEHERO
#act
#ELSEACT
MESSAGEBOX 对不起，您还没有申请英雄！
goto @main
BREAK
#if
CHECKHEROONLINE
#act
#ELSEACT
close
MESSAGEBOX 对不起，您的英雄不在线！
BREAK
#IF
CHECKHEROLEVEL > 189
#ACT
#ELSEact
messagebox 对不起,您的英雄没有190级。无法操作
break
#IF
CHECKGAMEGOLD > 99999
#act
#ELSEact
messagebox 对不起,您的元宝不足10万个。
DelayGoto 100 ~InPutString1
break
#IF
CheckOnline <$STR(s1)>
#ACT
#ELSEact
messagebox 对不起,“<$STR(s1)>”不在线,操作失败。
DelayGoto 100 ~InPutString1
break
#IF
#ACT
mov a230
inc a230 <$USERNAME>
mov a231
inc a231 <$STR(s1)>
mov a232
inc a232 <$IPADDR>
mov g246 <$LEVEL>
mov g241 <$GOLDCOUNT>
mov g242 <$GAMEGOLD>
mov g243 <$GAMEPOINT>
mov g244 <$GAMEDIAMOND>
mov g245 <$GAMEGIRD>
GAMEGOLD - 100000
HCall <$STR(a231)> @转移检测IP
break

==============================分割线===================================
2.QManage.txt中添加以下内容

[@转移检测IP]
#if
HAVEHERO
#act
#ELSEACT
HCall <$STR(a230)> @转移检测英雄没通过
BREAK
#if
CHECKHEROONLINE
#act
#ELSEACT
HCall <$STR(a230)> @转移检测英雄没通过
BREAK
#IF
EQUAL a232 <$IPADDR>
#act
mov s1
inc s1 <$STR(a230)>
mov m0 <$STR(g246)>
mov m1 <$STR(g241)>
mov m2 <$STR(g242)>
mov m3 <$STR(g243)>
mov m4 <$STR(g244)>
mov m5 <$STR(g245)>
HCall <$STR(a230)> @转移检测IP通过
break
#say
重要提示：\ \
玩家“<$STR(a230)>”决定将数据转移给您,请问您是否确定转移？\ \ \
<[确定转移]/@确定转移数据>
#IF
#act
HCall <$STR(a230)> @转移检测IP没通过
break
[@转移检测IP没通过]
#IF
#act
messagebox 对不起,操作失败。“<$STR(s1)>”的IP与你不同。
break

[@确定转移数据]
#IF
#act
GMEXECUTE 级 <$STR(m0)>
;give 金币 <$STR(m1)>
GAMEGOLD + <$STR(m2)>
mov m2 0
GAMEPOINT + <$STR(m3)>
mov m3 0
GAMEDIAMOND + <$STR(m4)>
mov m4 0
GAMEGIRD + <$STR(m5)>
mov m5 0
CHANGEHEROLEVEL = 190
close
messagebox 恭喜您,转移成功！您获得了“<$STR(s1)>”转移给你的大部分能力。\声明：您的转移记录已经被保存,如果您是盗号的，那你就等死吧。
break

[@转移检测IP通过]
#IF
#act
changelevel = 1
CHANGEHEROLEVEL = 1
GAMEGOLD = 0
GAMEPOINT = 0
GAMEDIAMOND = 0
GAMEGIRD = 0
CHANGEHEROLEVEL = 1
close
SendCenterMsg 249 255 [公告]玩家“<$USERNAME>”将等级转移给了另一个新号. 1 15 1
messagebox 恭喜您,等级，元宝，积分转移成功！装备物品请自己交易转。
break
[@转移检测英雄没通过]
#IF
#act
close
messagebox 对不起,“<$STR(a230)>”的英雄不在线或没建立。
break