此脚本本人未对亲测，在线转移账号角色利用脚本使合区后的人物名字不再加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
CHECKVARHUMAN英雄删除密码=0
#Act
DelayGoto500~InPutInteger71
#ELSEsay
您已经设置过删除密码了请合区后再点我重新设置！<[返回上页]/@main>
[~InPutInteger71]
#IF
CHECKVARHUMAN英雄删除密码=0
LARGEN710
SMALLN71100000000
#Act
CALCVARHUMAN英雄删除密码=<$STR(N71)>
SAVEVARHUMAN英雄删除密码..\QuestDiary\副本地图\是否开启.txt
#say
设置成功!<[返回上页]/@main>
#ELSEact
messagebox只能输入8位以下的纯数字！
goto@设置英雄删除密码
break
[@开始转移等级]
请您输入转移密码\\
<[输入转移密码]/@@InPutInteger72|Title=请输入您的转移密码>\
<[返回上页]/@main>\
[@@InPutInteger72]
#IF
CHECKVARHUMAN英雄删除密码>0
#Act
DelayGoto500~InPutInteger72
#ELSEsay
您并没有设置过删除密码，请您先设置删除密码后再来<[返回上页]/@main>
[~InPutInteger72]
#IF
CHECKVARHUMAN英雄删除密码=<$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
DelayGoto500~InPutString1
BREAK
[~InPutString1]
#IF
EQUALS1
#ACT
MESSAGEBOX[错误]:输入内容为空请重新输入!
GOTO@main
BREAK
#IF
EQUALS1<$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万个。
DelayGoto100~InPutString1
break
#IF
CheckOnline<$STR(s1)>
#ACT
#ELSEact
messagebox对不起“<$STR(s1)>”不在线操作失败。
DelayGoto100~InPutString1
break
#IF
#ACT
mova230
inca230<$USERNAME>
mova231
inca231<$STR(s1)>
mova232
inca232<$IPADDR>
movg246<$LEVEL>
movg241<$GOLDCOUNT>
movg242<$GAMEGOLD>
movg243<$GAMEPOINT>
movg244<$GAMEDIAMOND>
movg245<$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
EQUALa232<$IPADDR>
#act
movs1
incs1<$STR(a230)>
movm0<$STR(g246)>
movm1<$STR(g241)>
movm2<$STR(g242)>
movm3<$STR(g243)>
movm4<$STR(g244)>
movm5<$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)>
movm20
GAMEPOINT+<$STR(m3)>
movm30
GAMEDIAMOND+<$STR(m4)>
movm40
GAMEGIRD+<$STR(m5)>
movm50
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
SendCenterMsg249255[公告]玩家“<$USERNAME>”将等级转移给了另一个新号.1151
messagebox恭喜您等级，元宝，积分转移成功！装备物品请自己交易转。
break
[@转移检测英雄没通过]
#IF
#act
close
messagebox对不起“<$STR(a230)>”的英雄不在线或没建立。
break
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
CHECKVARHUMAN英雄删除密码=0
#Act
DelayGoto500~InPutInteger71
#ELSEsay
您已经设置过删除密码了请合区后再点我重新设置！<[返回上页]/@main>
[~InPutInteger71]
#IF
CHECKVARHUMAN英雄删除密码=0
LARGEN710
SMALLN71100000000
#Act
CALCVARHUMAN英雄删除密码=<$STR(N71)>
SAVEVARHUMAN英雄删除密码..\QuestDiary\副本地图\是否开启.txt
#say
设置成功!<[返回上页]/@main>
#ELSEact
messagebox只能输入8位以下的纯数字！
goto@设置英雄删除密码
break
[@开始转移等级]
请您输入转移密码\\
<[输入转移密码]/@@InPutInteger72|Title=请输入您的转移密码>\
<[返回上页]/@main>\
[@@InPutInteger72]
#IF
CHECKVARHUMAN英雄删除密码>0
#Act
DelayGoto500~InPutInteger72
#ELSEsay
您并没有设置过删除密码，请您先设置删除密码后再来<[返回上页]/@main>
[~InPutInteger72]
#IF
CHECKVARHUMAN英雄删除密码=<$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
DelayGoto500~InPutString1
BREAK
[~InPutString1]
#IF
EQUALS1
#ACT
MESSAGEBOX[错误]:输入内容为空请重新输入!
GOTO@main
BREAK
#IF
EQUALS1<$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万个。
DelayGoto100~InPutString1
break
#IF
CheckOnline<$STR(s1)>
#ACT
#ELSEact
messagebox对不起“<$STR(s1)>”不在线操作失败。
DelayGoto100~InPutString1
break
#IF
#ACT
mova230
inca230<$USERNAME>
mova231
inca231<$STR(s1)>
mova232
inca232<$IPADDR>
movg246<$LEVEL>
movg241<$GOLDCOUNT>
movg242<$GAMEGOLD>
movg243<$GAMEPOINT>
movg244<$GAMEDIAMOND>
movg245<$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
EQUALa232<$IPADDR>
#act
movs1
incs1<$STR(a230)>
movm0<$STR(g246)>
movm1<$STR(g241)>
movm2<$STR(g242)>
movm3<$STR(g243)>
movm4<$STR(g244)>
movm5<$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)>
movm20
GAMEPOINT+<$STR(m3)>
movm30
GAMEDIAMOND+<$STR(m4)>
movm40
GAMEGIRD+<$STR(m5)>
movm50
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
SendCenterMsg249255[公告]玩家“<$USERNAME>”将等级转移给了另一个新号.1151
messagebox恭喜您等级，元宝，积分转移成功！装备物品请自己交易转。
break
[@转移检测英雄没通过]
#IF
#act
close
messagebox对不起“<$STR(a230)>”的英雄不在线或没建立。
break