一休论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 262|回复: 0

[常用脚本] 在线转移账号角色利用脚本使合区后的人物名字不再加a

[复制链接]
  • TA的每日心情
    开心
    2015-2-10 22:09
  • 签到天数: 1 天

    [LV.1]初来乍到

    发表于 2014-9-12 14:59:00 | 显示全部楼层 |阅读模式
    网络广告风险自担 网络广告风险自担
    网络广告风险自担
    此脚本本人未对亲测,在线转移账号角色利用脚本使合区后的人物名字不再加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



    上一篇:诛仙阵10层每层挑战10个怪30分钟时间限制脚本
    下一篇:盟重红名村_商店-3脚本
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    网络广告风险自担

    小黑屋|传奇一条龙|GM基地|GM版本库|一休论坛

    GMT+8, 2016-12-11 19:53 , Processed in 0.639602 second(s), 81 queries , Gzip On.

    传奇一条龙 GM基地 版本库 传奇论坛 传奇漏洞论坛 传奇服务端下载 传奇版本

    站长QQ:1921249589 一休论坛资料来自网络仅供学习交流之用,用于商业后果自负

    快速回复 返回顶部 返回列表