一个超等适用的全能通用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] @世界第一道女
