传奇私服万能通用NPC功能脚本配置

[@转变职业]
<你在转职前请阅读以下说明:>　　　　　　　 <┏━━━━━━┓> \
<┃人物转职服务┃> \
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 恭喜你转职成功!强大的转职系统将带给你无限游戏刺激！请小退,继续战斗
#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 恭喜你转职成功!强大的转职系统将带给你无限游戏刺激！请小退,继续战斗
#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 恭喜你转职成功!强大的转职系统将带给你无限游戏刺激！请小退,继续战斗
#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] @天下第一道女