[@Main]
#IF
ISADMIN
#SAY
<[ Move NPC ]/@MovNP>\

#IF
checklevel 100
#ACT
Mov  A1 ""
#SAY
Would you like to be reincarnated?\\
{FCOLOR/1}PLEASE BE AWARE!!{FCOLOR/12}\
ALL Items you are wearing will be deleted!\\
<[ Yes Please! ]/@yenglish>\
<[ Tell me more first! ]/@eabout>\\
<[ Exit ]/@exit>\\\
#ELSESAY
Sorry but you're not at rebirth level yet.\
Please come back when you're at level 100!\\
<[ Exchange 500 FP's for Token ]/@Exchange500FP>\\
<[ Exchange 100 FP's for Token ]/@Exchange100FP>\\
<[ Exit ]/@exit>\\\

[@MovNP]
#ACT
movenpc "10,292,258,Rodney_(OldItems)" 10 293 259
#SAY
Done

[@Exchange500FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
#IF
ELARGE D0  500
#ACT
Dec  D0 500
SetFame  %D0
Give 500FPScroll
#SAY
Here is your 500FPScroll\
#ELSESAY
You don't have 500 FP's\

[@Exchange100FP]
#IF
CheckFame
#ACT
Mov  D0  %P9
#IF
ELARGE D0  100
#ACT
Dec  D0 100
SetFame  %D0
Give 100FPScroll
#SAY
Here is your 100FPScroll\
#ELSESAY
You don't have 100 FP's\


[@yenglish]
#IF
CheckLevel 100
#ACT
Goto @ReincarnationScript
#ELSESAY
You haven't reached the Reincarnation level yet!\\
<[ Exit ]/@exit>\\\

[@eabout]
#SAY
Once you have been reincarnated you will return to level 1\
and you have an additional 5 points on EVERY Stat.\
You have kept all your skills, but just be aware\
that some won't work as you won't have enough MP.\\
<[ Main ]/@Main>\\\


[@ReincarnationScript]
#IF
Gender  Man
#ACT
GiveW  0  NoobDress(M)
#ELSEACT
GiveW  0  NoobDress(F)


#IF
#ACT
HLSCRIPTCMD REINCARNATION
HLSCRIPTCMD CHANGELEVEL - 99
HLSCRIPTCMD CLEAREXP
GiveW  5  NoobBrace
GiveW  6  NoobBrace
GiveW  8  NoobRing
GiveW  4  NoobHelm
GiveW  10 StrawShoes
GiveW  3  NoobNecky
GiveW 1  NoobSword
Mov     A7  ""
AddStr  A7 %USERNAME
Savelog "QuestDiary\System\Logs\Reincarnation.txt" %A7
#SAY
You have been REINCARNATED!\\
<[ Exit ]/@exit>\\\
