您现在的位置:首页 >> 传奇私服发布网 >> 内容

        传奇新服网

        时间:2018-9-26 18:34:35

         

        一个超等适用的全能通用NPC功效剧本 , 带有转职 , 变性 , 名字变色等常常使用的功效 , 任何版本可用 , 直接复制到版本中就可以了。

         (@storage @getback )
        %100
        [@MAIN]
        <改变职业/@改变职业> <改变性别/@性别改变> <名字变色/@名字变色> \ \
        <豪杰转职/@豪杰职转> <豪杰变性/@豪杰性变> <设备发光/@发光设备> \ \


        [@改变职业]
        <你在转职前请浏览以下阐明:>        <┏━━━━━━┓> \
        <┃人物转职服务┃> \
        1.转变职业后您的级别及心得不变     <┗━━━━━━┛> \
        2.转变职业后您的所学的职业技能将会所有删除 \
        3.转变职业后请立刻从新佩戴职业属性的设备 \
        <这种高难度手术 , 每次必要5万元宝用度>  \
        <转职为军人/@转武> <转职为法师/@转法> <转职为羽士/@转道> <返 回/@main>\ \

         假如你是VIP请用VIP技能转职 , 如许才可以保存VIP技能

        [@转武]
        #IF
        CHECKGAMEGOLD > 49999
        CHECKHEROONLINE
        #ACT
        CHANGEJOB warrior
        DELNOJOBSKILL
        GAMEGOLD - 50000
        $HERO.DELSKILL 火龙气焰
        $HERO.DELSKILL 末日审讯
        $HERO.DELSKILL 噬魂池沼
        $HERO.DELSKILL 破魂斩
        $HERO.DELSKILL 劈星斩
        $HERO.DELSKILL 雷霆一击
        GIVE 兵士技能包 1
        KILL 3
        KICK
        MESSAGEBOX 恭喜你转职胜利!壮大的转职体系将带给你无穷游戏刺激!请小退,继续PK
        #ElseAct
        MESSAGEBOX 学人玩刺激?你够格不?这岁首,富有才是老迈,拿50000元宝来吧!\或者你的豪杰不在线.必要肃清豪杰合击技能.

        [@转法]
        #IF
        CHECKGAMEGOLD > 49999
        CHECKHEROONLINE
        #ACT
        CHANGEJOB Wizard
        DELNOJOBSKILL
        GAMEGOLD - 50000
        $HERO.DELSKILL 火龙气焰
        $HERO.DELSKILL 末日审讯
        $HERO.DELSKILL 噬魂池沼
        $HERO.DELSKILL 破魂斩
        $HERO.DELSKILL 劈星斩
        $HERO.DELSKILL 雷霆一击
        GIVE 法师技能包 1
        KILL 3
        KICK
        MESSAGEBOX 恭喜你转职胜利!壮大的转职体系将带给你无穷游戏刺激!请小退,继续PK
        #ElseAct
        MESSAGEBOX 学人玩刺激?你够格不?这岁首,富有才是老迈,拿50000元宝来吧!\或者你的豪杰不在线.必要肃清豪杰合击技能.

        [@转道]
        #IF
        CHECKGAMEGOLD > 49999
        CHECKHEROONLINE
        #ACT
        CHANGEJOB Taoist
        DELNOJOBSKILL
        GAMEGOLD - 50000
        $HERO.DELSKILL 火龙气焰
        $HERO.DELSKILL 末日审讯
        $HERO.DELSKILL 噬魂池沼
        $HERO.DELSKILL 破魂斩
        $HERO.DELSKILL 劈星斩
        $HERO.DELSKILL 雷霆一击
        GIVE 羽士技能包 1
        KILL 3
        KICK
        MESSAGEBOX 恭喜你转职胜利!壮大的转职体系将带给你无穷游戏刺激!请小退,继续PK
        #ElseAct
        MESSAGEBOX 学人玩刺激?你够格不?这岁首,富有才是老迈,拿50000元宝来吧!\或者你的豪杰不在线.必要肃清豪杰合击技能.


        [@豪杰职转]
        ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
        ┃ 兵士豪杰太笨了? <┏━━━━━━┓> ┃\
        ┃ 法师豪杰太弱了? <┃豪杰转职服务┃> ┃\
        ┃ 羽士豪杰太没出路了? <┗━━━━━━┛> ┃\
        ┃ 那你必定要找我,在我这里可以帮你把你的豪杰调换职业. ┃\
        ┃ <不外豪杰转职后不属于本职业的技能将被所有删除/fcolor=250> ┃\
        ┃ <每次必要100000元宝手续费> ┃\
        ┃<转职为兵士/@英转战> <转职为法师/@英转法> <转职为羽士/@英转道> <返 回/@main> ┃\
        ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛\ \

        [@英转战]
        #IF
        checkgamegold > 99999
        CHECKHEROONLINE
        #act
        gamegold - 100000
        CHANGEHEROJOB warrior
        CLEARHEROSKILL
        $HERO.DELSKILL 火龙气焰
        $HERO.DELSKILL 末日审讯
        $HERO.DELSKILL 噬魂池沼
        $HERO.DELSKILL 破魂斩
        $HERO.DELSKILL 劈星斩
        $HERO.DELSKILL 雷霆一击
        ;ADDSKILL 白日门剑术 3 HERO
        ;ADDSKILL 白日门刺杀 3 HERO
        ;ADDSKILL 白日门半月 3 HERO
        ;ADDSKILL 白日门蛮横 3 HERO
        ;ADDSKILL 白日门猛火 3 HERO
        ;ADDSKILL 白日门狮子吼 3 HERO
        ;ADDSKILL 豪杰开天斩 1 HERO
        GIVE 兵士豪杰技能包 1
        Sendmsg 7 恭喜!你的豪杰已经转为兵士!
        #ElseAct
        MESSAGEBOX 负疚!你没有足够的元宝以付出本次服务用度!\必要你的豪杰在线.

        [@英转法]
        #IF
        checkgamegold > 99999
        CHECKHEROONLINE
        #act
        gamegold - 100000
        CHANGEHEROJOB WIZARD
        CLEARHEROSKILL
        $HERO.DELSKILL 火龙气焰
        $HERO.DELSKILL 末日审讯
        $HERO.DELSKILL 噬魂池沼
        $HERO.DELSKILL 破魂斩
        $HERO.DELSKILL 劈星斩
        $HERO.DELSKILL 雷霆一击
        ;ADDSKILL 白日门邪术盾 3 HERO
        ;ADDSKILL 白日门灭天火 3 HERO
        ;ADDSKILL 白日门冰呼啸 3 HERO
        ;ADDSKILL 白日门寒冰掌 3 HERO
        ;ADDSKILL 白日门火墙 3 HERO
        ;ADDSKILL 白日门疾光 3 HERO
        ;ADDSKILL 白日门雷光 3 HERO
        ;ADDSKILL 白日门诱惑术 3 HERO
        ;ADDSKILL 白日门抗拒 3 HERO
        ;ADDSKILL 白日门抗拒 3 HERO
        ;ADDSKILL 白日门圣言术 3 HERO
        ;ADDSKILL 豪杰两全术 3 HERO
        GIVE 法师豪杰技能包 1
        Sendmsg 7 恭喜!你的豪杰已经转为法师!
        #ElseAct
        MESSAGEBOX 负疚!你没有足够的元宝以付出本次服务用度!\必要你的豪杰在线.

        [@英转道]
        #IF
        checkgamegold > 99999
        CHECKHEROONLINE
        #act
        gamegold - 100000
        CHANGEHEROJOB Taoist
        CLEARHEROSKILL
        $HERO.DELSKILL 火龙气焰
        $HERO.DELSKILL 末日审讯
        $HERO.DELSKILL 噬魂池沼
        $HERO.DELSKILL 破魂斩
        $HERO.DELSKILL 劈星斩
        $HERO.DELSKILL 雷霆一击
        ;ADDSKILL 白日门治愈术 3 HERO
        ;ADDSKILL 白日门群隐 3 HERO
        ;ADDSKILL 白日门鬼魂盾 3 HERO
        ;ADDSKILL 白日门隐身 3 HERO
        ;ADDSKILL 白日门战法 3 HERO
        ;ADDSKILL 白日门施毒术 3 HERO
        ;ADDSKILL 白日门气功波 3 HERO
        ;ADDSKILL 白日门困魔咒 3 HERO
        ;ADDSKILL 白日门群疗 3 HERO
        ;ADDSKILL 白日门启示 3 HERO
        ;ADDSKILL 白日门战甲术 3 HERO
        GIVE 术士豪杰技能包 1
        Sendmsg 7 恭喜!你的豪杰已经转为羽士!
        #ElseAct
        MESSAGEBOX 负疚!你没有足够的元宝以付出本次服务用度!\必要你的豪杰在线.

        [@性别改变]
        ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓\
        ┃ <本身选错了性别?> ┃\
        ┃ 想做一次变性手术吗? ┃\
        ┃ 我的技术可是一流的,一次胜利,决无副作用及不良影响 ┃\
        ┃ 而且100%看不出来是做过变性手术的哦 ┃\
        ┃ ┃\
        ┃ <这种高难度手术 , 每次必要5万元宝用度>   ┃\
        ┃ <转变性别/@转变性别> <返 回/@main> ┃\
        ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛\ \
        [@转变性别]
        #IF
        checkmarry
        #act
        SENDMSG 6 对不起,你是已经有家室的人,恕我力所不及,请离婚后再来找我.
        #ElseAct
        goto @性别二检

        [@性别二检]
        #IF
        gender man
        #act
        goto @性别三检
        #ElseAct
        goto @性别二检女

        [@性别二检女]
        #IF
        CHECKGAMEGOLD > 49999
        #act
        CHANGEGENDER 0
        GAMEGOLD - 50000
        sendmsg 7 恭喜你!你如今已经酿成一位有鸡鸡的男士了.嘿嘿
        #ElseAct
        MESSAGEBOX 我这不是慈善堂,没钱别玩高科技.

        [@性别三检]
        #IF
        CHECKGAMEGOLD > 49999
        #act
        CHANGEGENDER 1
        GAMEGOLD - 50000
        sendmsg 7 恭喜你!你如今已经酿成一位有风情万种的骚妇了.嘿嘿
        #ElseAct
        MESSAGEBOX 我这不是慈善堂,没钱别玩高科技.

         

        [@设备发光]
        #CALL [\\热血制造\多功效剧本.txt] @发光设备

        [@名字变色]
        #CALL [\\热血制造\多功效剧本.txt] @变色名字

        [@仓库存取]
        #CALL [\\热血制造\多功效剧本.txt] @存取仓库


        [@豪杰性变]
        #CALL [\\热血制造\多功效剧本.txt] @豪杰变性

         


        [@盟重书店]
        #ACT
        MAPMOVE MZXC 63 67
        GIVE 回城卷 1
        BREAK


        [@申请世界第一啊]
        #IF
        CHECKLEVELEX > 600
        #act
        goto @bbf145
        #elsesay
        必要600级以上的勇士才可以申请世界第一\
        如今来申请世界第一生怕还嫌早点吧...加油!\
        <返回/@MAIN>

        [@bbf145]
        #IF
        CHECKLEVELEX > 1999
        #act
        goto @bbf876
        #ELSEACT
        GOTO @bbf

        [@bbf876]
        亲爱的玩家:<$USERNAME>\
        恭喜您已经2000级 , 已经有1个2000级的人先申请了世界第一 , 因为\
        本服务器<10000级>封顶 , 您想跨越他需<付出20万元宝> , 我帮您挤失落他! \
        <提醒:世界第一上线体系奉送5倍心得和世界第一保镖(疯狗)1条(群攻)/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
        <免费进出世界第一爆率3倍舆图,报酬超好/AUTOCOLOR=254,251,168,191,250,70,245,249,253> <封闭对话/@exit> \ \
        ╔┄┄┄-┄-┄╗ ╔┄┄┄┄--┄╗ ╔┄┄┄┄------┄╗\
        ┆<申请世界第一/@世界第一0909>┆ ┆<世界第一有哪个/@查看第一0909>┆ ┆<世界第一寻宝舆图/@世界第一专用舆图>┆\
        ╚┄┄-┄┄-┄╝ ╚┄┄┄┄--┄╝ ╚┄┄┄┄┄------╝\

        [@查看第一0909]
        <提醒:您可以点击下面选项查看> \ \
        <世界第一男兵士/@男战> \
        <世界第一女兵士/@女战> \
        <世界第一男羽士/@男道> \
        <世界第一女羽士/@女道> \
        <世界第一男法师/@男法> \
        <世界第一女法师/@女法> \
        <返回/@bbf876>

        [@世界第一0909]
        #IF
        checkgamegold > 199999
        #act
        goto @77887778787
        #elsesay
        \
        \
        \
        没有20万元宝 , 我决然毅然不会帮助的! \ \
        <返回/@MAIN>

        [@77887778787]
        #IF
        gender man
        checkjob warrior
        #act
        break
        mov A0 <$LEVEL>
        goto @男战申请235vv

        #IF
        gender man
        checkjob wizard
        #act
        break
        mov A1 <$LEVEL>
        goto @男法申请235vv

        #IF
        gender man
        checkjob taoist
        #act
        break
        mov A2 <$LEVEL>
        goto @男道申请235vv

        #IF
        checkjob warrior
        #act
        break
        mov A3 <$LEVEL>
        goto @女战申请235vv

        #IF
        checkjob wizard
        #act
        break
        mov A4 <$LEVEL>
        goto @女法申请235vv

        #IF
        checkjob taoist
        #act
        break
        mov A5 <$LEVEL>
        goto @女道申请235vv

        [@男战申请235vv]
        #IF
        #act
        mov G24 <$STR(A0)>
        mov s1 ↘世界第一男战↙\
        inc S1 <$USERNAME>
        inc S1 \
        mov A6 <$USERNAME>
        mov A7 <$GUILDNAME>
        mov A8 <$LEVEL>
        mov A9 <$DATETIME>
        SETRANKLEVELNAME <$STR(S1)>
        GAMEGOLD - 200000
        CLEARNAMELIST ..\QuestDiary\世界第一\男兵士名单.txt
        addnamelist ..\QuestDiary\世界第一\男兵士名单.txt
        SENDMSG 4 %s胜利申请了世界第一男兵士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男兵士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男兵士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>

        [@男法申请235vv]
        #IF
        #act
        mov G25 <$STR(A1)>
        mov s2 ↘世界第一男法↙\
        inc S2 <$USERNAME>
        inc S2 \
        mov A10 <$USERNAME>
        mov A11 <$GUILDNAME>
        mov A12 <$LEVEL>
        mov A13 <$DATETIME>
        SETRANKLEVELNAME <$STR(S2)>
        GAMEGOLD - 200000
        CLEARNAMELIST ..\QuestDiary\世界第一\男法师名单.txt
        addnamelist ..\QuestDiary\世界第一\男法师名单.txt
        SENDMSG 4 %s胜利申请了世界第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男法师是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>


        [@男道申请235vv]
        #IF
        #act
        mov G26 <$STR(A2)>
        mov s3 ↘世界第一男道↙\
        inc S3 <$USERNAME>
        inc S3 \
        mov A14 <$USERNAME>
        mov A15 <$GUILDNAME>
        mov A16 <$LEVEL>
        mov A17 <$DATETIME>
        SETRANKLEVELNAME <$STR(S3)>
        GAMEGOLD - 200000
        CLEARNAMELIST ..\QuestDiary\世界第一\男羽士名单.txt
        addnamelist ..\QuestDiary\世界第一\男羽士名单.txt
        SENDMSG 4 %s胜利申请了世界第一男羽士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男羽士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男羽士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>


        [@女战申请235vv]
        #IF
        #act
        mov G27 <$STR(A3)>
        mov s4 ↘世界第一女战↙\
        inc S4 <$USERNAME>
        inc S4 \
        mov A18 <$USERNAME>
        mov A19 <$GUILDNAME>
        mov A20 <$LEVEL>
        mov A21 <$DATETIME>
        SETRANKLEVELNAME <$STR(S4)>
        GAMEGOLD - 200000
        CLEARNAMELIST ..\QuestDiary\世界第一\女兵士名单.txt
        addnamelist ..\QuestDiary\世界第一\女兵士名单.txt
        SENDMSG 4 %s胜利申请了世界第一女兵士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女兵士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女兵士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>

        [@女法申请235vv]
        #IF
        #act
        mov G28 <$STR(A4)>
        mov s5 ↘世界第一女法↙\
        inc S5 <$USERNAME>
        inc S5 \
        mov A22 <$USERNAME>
        mov A23 <$GUILDNAME>
        mov A24 <$LEVEL>
        mov A25 <$DATETIME>
        SETRANKLEVELNAME <$STR(S5)>
        GAMEGOLD - 200000
        CLEARNAMELIST ..\QuestDiary\世界第一\女法师名单.txt
        addnamelist ..\QuestDiary\世界第一\女法师名单.txt
        SENDMSG 4 %s胜利申请了世界第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女法师是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>


        [@女道申请235vv]
        #IF
        #act
        mov G29 <$STR(A5)>
        mov s6 ↘世界第一女道↙\
        inc S6 <$USERNAME>
        inc S6 \
        mov A26 <$USERNAME>
        mov A27 <$GUILDNAME>
        mov A28 <$LEVEL>
        mov A29 <$DATETIME>
        SETRANKLEVELNAME <$STR(S6)>
        GAMEGOLD - 200000
        CLEARNAMELIST ..\QuestDiary\世界第一\女羽士名单.txt
        addnamelist ..\QuestDiary\世界第一\女羽士名单.txt
        SENDMSG 4 %s胜利申请了世界第一女羽士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女羽士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女羽士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>

        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================
        ;=========================================================================================

        [@bbf]
        亲爱的玩家:<$USERNAME>\
        国王有令:为世界最强的勇士们立名立万 , 彰显他们名号 , \
        <500级以上> 的世界群豪 <花50000元宝> 来我这里争取第一 ! \
        <提醒:世界第一上线体系奉送2倍心得1.5倍进击和世界第一保镖(疯狗)1条/AUTOCOLOR=254,251,168,191,250,70,245,249,253>\
        <免费进出世界第一爆率3倍舆图,报酬超好/AUTOCOLOR=254,251,168,191,250,70,245,249,253> <封闭对话/@exit> \ \
        ╔┄┄┄-┄-┄╗ ╔┄┄┄┄--┄╗ ╔┄┄┄┄------┄╗\
        ┆<申请世界第一/@世界第一ww>┆ ┆<世界第一有哪个/@查看第一>┆ ┆<世界第一寻宝舆图/@世界第一专用舆图>┆\
        ╚┄┄-┄┄-┄╝ ╚┄┄┄┄--┄╝ ╚┄┄┄┄┄------╝\
        ;---------------------------------------------------------
        [@世界第一专用舆图]
        #IF
        CheckJob Warrior
        checknamelist ..\QuestDiary\世界第一\男兵士名单.txt
        #ACT
        GOTO @世界第一2
        break
        #IF
        CheckJob Warrior
        checknamelist ..\QuestDiary\世界第一\女兵士名单.txt
        #ACT
        GOTO @世界第一2
        break
        #IF
        CheckJob Wizard
        checknamelist ..\QuestDiary\世界第一\男法师名单.txt
        #ACT
        GOTO @世界第一2
        break
        #IF
        CheckJob Wizard
        checknamelist ..\QuestDiary\世界第一\女法师名单.txt
        #ACT
        GOTO @世界第一2
        break
        #IF
        CheckJob Taoist
        checknamelist ..\QuestDiary\世界第一\男羽士名单.txt
        #ACT
        GOTO @世界第一2
        break
        #IF
        CheckJob Taoist
        checknamelist ..\QuestDiary\世界第一\女羽士名单.txt
        #ACT
        GOTO @世界第一2
        break
        #ELSEACT
        messagebox  \      负疚 , 只有世界第一玩家能力享此殊荣!!

        [@世界第一2]
        #IF
        #ACT
        map TXDY1
        give 回城卷
        SENDMSG 1 〖%s〗凭借〖世界第一〗的头衔进入了世界第一专用寻宝舆图 , 此舆图爆率为表面3倍

        [@查看第一]
        <提醒:您可以点击下面选项查看> \ \
        <世界第一男兵士/@男战> \
        <世界第一女兵士/@女战> \
        <世界第一男羽士/@男道> \
        <世界第一女羽士/@女道> \
        <世界第一男法师/@男法> \
        <世界第一女法师/@女法> \
        <返回/@MAIN>

        [@世界第一ww]
        #IF
        CHECKLEVELEX < 500
        CHECKGAMEGOLD < 50000
        #act
        break
        #say
        没有到达资历 , 你必要500级以上而且拥有50000元宝才可\
        以来我这里加入并证实本身的实力哦\
        如今来申请世界第一生怕还嫌早点吧...\
        <返回/@MAIN>

        #IF
        gender man
        checkjob warrior
        #act
        break
        mov A0 <$LEVEL>
        goto @男战申请
        #IF
        gender man
        checkjob wizard
        #act
        break
        mov A1 <$LEVEL>
        goto @男法申请
        #IF
        gender man
        checkjob taoist
        #act
        break
        mov A2 <$LEVEL>
        goto @男道申请
        #IF
        checkjob warrior
        #act
        break
        mov A3 <$LEVEL>
        goto @女战申请
        #IF
        checkjob wizard
        #act
        break
        mov A4 <$LEVEL>
        goto @女法申请
        #IF
        checkjob taoist
        #act
        break
        mov A5 <$LEVEL>
        goto @女道申请

        [@男战申请]
        #IF
        large G24 <$STR(A0)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        EQUAL G24 <$STR(A0)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        HAVEGUILD
        #act
        break
        mov G24 <$STR(A0)>
        mov s1 ↘世界第一男战↙\
        inc S1 <$USERNAME>
        inc S1 \
        mov A6 <$USERNAME>
        mov A7 <$GUILDNAME>
        mov A8 <$LEVEL>
        mov A9 <$DATETIME>
        SETRANKLEVELNAME <$STR(S1)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\男兵士名单.txt
        addnamelist ..\QuestDiary\世界第一\男兵士名单.txt
        SENDMSG 4 %s胜利申请了世界第一男兵士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男兵士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男兵士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        #IF
        #act
        mov G24 <$STR(A0)>
        mov s1 ↘世界第一男战↙\
        inc S1 <$USERNAME>
        inc S1 \
        mov A6 <$USERNAME>
        mov A7 暂无
        mov A8 <$LEVEL>
        mov A9 <$DATETIME>
        SETRANKLEVELNAME <$STR(S1)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\男兵士名单.txt
        addnamelist ..\QuestDiary\世界第一\男兵士名单.txt
        SENDMSG 4 %s胜利申请了世界第一男兵士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男兵士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男兵士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        [@男法申请]
        #IF
        large G25 <$STR(A1)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        EQUAL G25 <$STR(A1)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        HAVEGUILD
        #act
        break
        mov G25 <$STR(A1)>
        mov s2 ↘世界第一男法↙\
        inc S2 <$USERNAME>
        inc S2 \
        mov A10 <$USERNAME>
        mov A11 <$GUILDNAME>
        mov A12 <$LEVEL>
        mov A13 <$DATETIME>
        SETRANKLEVELNAME <$STR(S2)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\男法师名单.txt
        addnamelist ..\QuestDiary\世界第一\男法师名单.txt
        SENDMSG 4 %s胜利申请了世界第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男法师是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        #IF
        #act
        mov G25 <$STR(A1)>
        mov s2 ↘世界第一男法↙\
        inc S2 <$USERNAME>
        inc S2 \
        mov A10 <$USERNAME>
        mov A11 暂无
        mov A12 <$LEVEL>
        mov A13 <$DATETIME>
        SETRANKLEVELNAME <$STR(S2)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\男法师名单.txt
        addnamelist ..\QuestDiary\世界第一\男法师名单.txt
        SENDMSG 4 %s胜利申请了世界第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男法师!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男法师是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        [@男道申请]
        #IF
        large G26 <$STR(A2)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        EQUAL G26 <$STR(A2)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        HAVEGUILD
        #act
        break
        mov G26 <$STR(A2)>
        mov s3 ↘世界第一男道↙\
        inc S3 <$USERNAME>
        inc S3 \
        mov A14 <$USERNAME>
        mov A15 <$GUILDNAME>
        mov A16 <$LEVEL>
        mov A17 <$DATETIME>
        SETRANKLEVELNAME <$STR(S3)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\男羽士名单.txt
        addnamelist ..\QuestDiary\世界第一\男羽士名单.txt
        SENDMSG 4 %s胜利申请了世界第一男羽士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男羽士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男羽士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        #IF
        #act
        mov G26 <$STR(A2)>
        mov s3 ↘世界第一男道↙\
        inc S3 <$USERNAME>
        inc S3 \
        mov A14 <$USERNAME>
        mov A15 暂无
        mov A16 <$LEVEL>
        mov A17 <$DATETIME>
        SETRANKLEVELNAME <$STR(S3)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\男羽士名单.txt
        addnamelist ..\QuestDiary\世界第一\男羽士名单.txt
        SENDMSG 4 %s胜利申请了世界第一男羽士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一男羽士!他在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一男羽士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        [@女战申请]
        #IF
        large G27 <$STR(A3)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        EQUAL G27 <$STR(A3)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        HAVEGUILD
        #act
        break
        mov G27 <$STR(A3)>
        mov s4 ↘世界第一女战↙\
        inc S4 <$USERNAME>
        inc S4 \
        mov A18 <$USERNAME>
        mov A19 <$GUILDNAME>
        mov A20 <$LEVEL>
        mov A21 <$DATETIME>
        SETRANKLEVELNAME <$STR(S4)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\女兵士名单.txt
        addnamelist ..\QuestDiary\世界第一\女兵士名单.txt
        SENDMSG 4 %s胜利申请了世界第一女兵士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女兵士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女兵士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        #IF
        #act
        mov G27 <$STR(A3)>
        mov s4 ↘世界第一女战↙\
        inc S4 <$USERNAME>
        inc S4 \
        mov A18 <$USERNAME>
        mov A19 暂无
        mov A20 <$LEVEL>
        mov A21 <$DATETIME>
        SETRANKLEVELNAME <$STR(S4)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\女兵士名单.txt
        addnamelist ..\QuestDiary\世界第一\女兵士名单.txt
        SENDMSG 4 %s胜利申请了世界第一女兵士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女兵士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女兵士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        [@女法申请]
        #IF
        large G28 <$STR(A4)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        EQUAL G28 <$STR(A4)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        HAVEGUILD
        #act
        break
        mov G28 <$STR(A4)>
        mov s5 ↘世界第一女法↙\
        inc S5 <$USERNAME>
        inc S5 \
        mov A22 <$USERNAME>
        mov A23 <$GUILDNAME>
        mov A24 <$LEVEL>
        mov A25 <$DATETIME>
        SETRANKLEVELNAME <$STR(S5)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\女法师名单.txt
        addnamelist ..\QuestDiary\世界第一\女法师名单.txt
        SENDMSG 4 %s胜利申请了世界第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女法师是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        #IF
        #act
        mov G28 <$STR(A4)>
        mov s5 ↘世界第一女法↙\
        inc S5 <$USERNAME>
        inc S5 \
        mov A22 <$USERNAME>
        mov A23 暂无
        mov A24 <$LEVEL>
        mov A25 <$DATETIME>
        SETRANKLEVELNAME <$STR(S5)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\女法师名单.txt
        addnamelist ..\QuestDiary\世界第一\女法师名单.txt
        SENDMSG 4 %s胜利申请了世界第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女法师!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女法师是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        [@女道申请]
        #IF
        large G29 <$STR(A5)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        EQUAL G29 <$STR(A5)>
        #act
        break
        #say
        对不起!!你今朝还不是最高级别!\\\
        #IF
        HAVEGUILD
        #act
        break
        mov G29 <$STR(A5)>
        mov s6 ↘世界第一女道↙\
        inc S6 <$USERNAME>
        inc S6 \
        mov A26 <$USERNAME>
        mov A27 <$GUILDNAME>
        mov A28 <$LEVEL>
        mov A29 <$DATETIME>
        SETRANKLEVELNAME <$STR(S6)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\女羽士名单.txt
        addnamelist ..\QuestDiary\世界第一\女羽士名单.txt
        SENDMSG 4 %s胜利申请了世界第一女羽士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女羽士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女羽士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>
        #IF
        #act
        mov G29 <$STR(A5)>
        mov s6 ↘世界第一女道↙\
        inc S6 <$USERNAME>
        inc S6 \
        mov A26 <$USERNAME>
        mov A27 暂无
        mov A28 <$LEVEL>
        mov A29 <$DATETIME>
        SETRANKLEVELNAME <$STR(S6)>
        GAMEGOLD - 50000
        CLEARNAMELIST ..\QuestDiary\世界第一\女羽士名单.txt
        addnamelist ..\QuestDiary\世界第一\女羽士名单.txt
        SENDMSG 4 %s胜利申请了世界第一女羽士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        SENDMSG 0 %s胜利申请了世界第一女羽士!她在烽烟四起的<$SERVERNAME>中修炼成为世界第一 , 来日诰日的世界第一会是哪个?
        #say
        申请胜利!今朝本日的世界第一女羽士是<$USERNAME> , \
        来日诰日的世界第一会是哪个? \ \
        <分开/@exit>

        [@男战]
        #CALL [\\世界第一\男兵士.txt] @世界第一战男
        [@男法]
        #CALL [\\世界第一\男法师.txt] @世界第一法男
        [@男道]
        #CALL [\\世界第一\男羽士.txt] @世界第一道男
        [@女战]
        #CALL [\\世界第一\女兵士.txt] @世界第一战女
        [@女法]
        #CALL [\\世界第一\女法师.txt] @世界第一法女
        [@女道]
        #CALL [\\世界第一\女羽士.txt] @世界第一道女

         

         


        相关文章