[@元神排名]
{
#IF
checkys
#ACT
MOV P0 $YSLEVEL
MOV S20 $YSGENDER
MOV S21 $YSJOB
goto @判斷大小
break
#ELSESAY
你還沒有元神呢！

[@判斷大小]
#IF
SMALL P0 40
#SAY
看來你很有信心，不過你的元神進入名人堂的資格還沒有達到，\
需要40級來證明他的實力，現在來申請天下第一恐怕還嫌早。\
<離開/@exit>\
#ACT
break
#IF
EQUAL S20 女
EQUAL S21 戰士
LARGE P0 $STR(G51)
#ACT
MOV S5 天下第一元神女戰士：<COLOR=green[]
INC S5 $YSNAME
INC S5 >\她是<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神，目前等級為：<COLOR=green[]
INC S5 $YSLEVEL
INC S5 >。\紛擾亂世群雄追鹿。<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神<COLOR=green[]
INC S5 $YSNAME
INC S5 >\資質甚高，領悟非凡，勇闖鐵血魔宮，奮戰修羅魔族，在\
INC S5 戰火四起的傳世大陸中成為了天下第一，至今沒人可以超\
INC S5 越。\
INC S5 今天的天下第一元神是<COLOR=green[]
INC S5 $YSNAME
INC S5 >，明天將會是誰呢？\申請天下第一名號，請速到中州魔法陣祭祀處申請。\
INC S5 <離開/@exit>\
CALCVAR GLOBAL F45 = $STR(S5)
SAVEVAR GLOBAL F45 ..\QuestDiary\數據文件\F類變量\F45Save.txt
MOV G51 $YSLEVEL
SENDMSG 2 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女戰士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 8 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女戰士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 10 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女戰士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
goto @通過第一
break
#IF
EQUAL S20 女
EQUAL S21 法師
LARGE P0 $STR(G46)
#ACT
MOV S5 天下第一元神女法師：<COLOR=green[]
INC S5 $YSNAME
INC S5 >\她是<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神，目前等級為：<COLOR=green[]
INC S5 $YSLEVEL
INC S5 >。\紛擾亂世群雄追鹿。<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神<COLOR=green[]
INC S5 $YSNAME
INC S5 >\資質甚高，領悟非凡，勇闖鐵血魔宮，奮戰修羅魔族，在\
INC S5 戰火四起的傳世大陸中成為了天下第一，至今沒人可以超\
INC S5 越。\
INC S5 今天的天下第一元神是<COLOR=green[]
INC S5 $YSNAME
INC S5 >，明天將會是誰呢？\申請天下第一名號，請速到中州魔法陣祭祀處申請。\
INC S5 <離開/@exit>\
CALCVAR GLOBAL F46 = $STR(S5)
SAVEVAR GLOBAL F46 ..\QuestDiary\數據文件\F類變量\F46Save.txt
MOV G46 $YSLEVEL
SENDMSG 2 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女法師，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 8 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女法師，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 10 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女法師，想要申請元神天下第一速到中州魔法陣祭祀處申請。
goto @通過第一
break
#IF
EQUAL S20 女
EQUAL S21 道士
LARGE P0 $STR(G47)
#ACT
MOV S5 天下第一元神女道士：<COLOR=green[]
INC S5 $YSNAME
INC S5 >\她是<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神，目前等級為：<COLOR=green[]
INC S5 $YSLEVEL
INC S5 >。\紛擾亂世群雄追鹿。<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神<COLOR=green[]
INC S5 $YSNAME
INC S5 >\資質甚高，領悟非凡，勇闖鐵血魔宮，奮戰修羅魔族，在\
INC S5 戰火四起的傳世大陸中成為了天下第一，至今沒人可以超\
INC S5 越。\
INC S5 今天的天下第一元神是<COLOR=green[]
INC S5 $YSNAME
INC S5 >，明天將會是誰呢？\申請天下第一名號，請速到中州魔法陣祭祀處申請。\
INC S5 <離開/@exit>\
CALCVAR GLOBAL F47 = $STR(S5)
SAVEVAR GLOBAL F47 ..\QuestDiary\數據文件\F類變量\F47Save.txt
MOV G47 $YSLEVEL
SENDMSG 2 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女道士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 8 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女道士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 10 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神女道士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
goto @通過第一
break
#IF
EQUAL S20 男
EQUAL S21 戰士
LARGE P0 $STR(G48)
#ACT
MOV S5 天下第一元神男戰士：<COLOR=green[]
INC S5 $YSNAME
INC S5 >\他是<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神，目前等級為：<COLOR=green[]
INC S5 $YSLEVEL
INC S5 >。\紛擾亂世群雄追鹿。<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神<COLOR=green[]
INC S5 $YSNAME
INC S5 >\資質甚高，領悟非凡，勇闖鐵血魔宮，奮戰修羅魔族，在\
INC S5 戰火四起的傳世大陸中成為了天下第一，至今沒人可以超\
INC S5 越。\
INC S5 今天的天下第一元神是<COLOR=green[]
INC S5 $YSNAME
INC S5 >，明天將會是誰呢？\申請天下第一名號，請速到中州魔法陣祭祀處申請。\
INC S5 <離開/@exit>\
CALCVAR GLOBAL F48 = $STR(S5)
SAVEVAR GLOBAL F48 ..\QuestDiary\數據文件\F類變量\F48Save.txt
MOV G48 $YSLEVEL
SENDMSG 2 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男戰士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 8 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男戰士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 10 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男戰士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
goto @通過第一
break
#IF
EQUAL S20 男
EQUAL S21 法師
LARGE P0 $STR(G49)
#ACT
MOV S5 天下第一元神男法師：<COLOR=green[]
INC S5 $YSNAME
INC S5 >\他是<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神，目前等級為：<COLOR=green[]
INC S5 $YSLEVEL
INC S5 >。\紛擾亂世群雄追鹿。<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神<COLOR=green[]
INC S5 $YSNAME
INC S5 >\資質甚高，領悟非凡，勇闖鐵血魔宮，奮戰修羅魔族，在\
INC S5 戰火四起的傳世大陸中成為了天下第一，至今沒人可以超\
INC S5 越。\
INC S5 今天的天下第一元神是<COLOR=green[]
INC S5 $YSNAME
INC S5 >，明天將會是誰呢？\申請天下第一名號，請速到中州魔法陣祭祀處申請。\
INC S5 <離開/@exit>\
CALCVAR GLOBAL F49 = $STR(S5)
SAVEVAR GLOBAL F49 ..\QuestDiary\數據文件\F類變量\F49Save.txt
MOV G49 $YSLEVEL
SENDMSG 2 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男法師，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 8 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男法師，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 10 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男法師，想要申請元神天下第一速到中州魔法陣祭祀處申請。
goto @通過第一
break
#IF
EQUAL S20 男
EQUAL S21 道士
LARGE P0 $STR(G50)
#ACT
MOV S5 天下第一元神男道士：<COLOR=green[]
INC S5 $YSNAME
INC S5 >\他是<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神，目前等級為：<COLOR=green[]
INC S5 $YSLEVEL
INC S5 >。\紛擾亂世群雄追鹿。<COLOR=green[]
INC S5 $USERNAME
INC S5 >的元神<COLOR=green[]
INC S5 $YSNAME
INC S5 >\資質甚高，領悟非凡，勇闖鐵血魔宮，奮戰修羅魔族，在\
INC S5 戰火四起的傳世大陸中成為了天下第一，至今沒人可以超\
INC S5 越。\
INC S5 今天的天下第一元神是<COLOR=green[]
INC S5 $YSNAME
INC S5 >，明天將會是誰呢？\申請天下第一名號，請速到中州魔法陣祭祀處申請。\
INC S5 <離開/@exit>\
CALCVAR GLOBAL F50 = $STR(S5)
SAVEVAR GLOBAL F50 ..\QuestDiary\數據文件\F類變量\F50Save.txt
MOV G50 $YSLEVEL
SENDMSG 2 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男道士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 8 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男道士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
SENDMSG 10 [<$STR(S34)>]的元神[<$YSNAME>]以<$YSLEVEL>級證實了他才是天下第一元神男道士，想要申請元神天下第一速到中州魔法陣祭祀處申請。
goto @通過第一
break

[@通過第一]
你的元神已經通過他的實力證明了他才是天下第一\
但是，想要保持你元神現在的地位你還得努力。\
你元神的偉績我已經幫你記錄下來了。\\
<返回/@exit>\
}