[@Main]
#SAY
Hello,That you wish?\
_<Rebirths/@Famemenu>\
_<Exit/@Exit>
[@FameMenu]
#IF
CheckFame
#ACT
Mov D4 %P9 ; Amount of FP
#SAY
Welcome to the Famepoint rebirth system.\
Currently we offer 8 rebirths to our members.\
Attaining all of them is not an easy task.\
Currently you have <$OUTPUT(D4)> FP's\
<Rebirth/@rebirthmenu>\
[@rebirthmenu]
#SAY
< Level 1 - 10 FP - Lvl100 - 60million gold/@rebirthauto(1,10,100,6000)>\
< Level 2 - 20 FP - Lvl200 - 80million gold/@rebirthauto(2,20,200,80000)>\
< Level 3 - 25 FP - Lvl300 - 100million gold/@rebirthauto(3,25,300,10000)>\
< Level 4 - 30 FP - Lvl400 - 120million gold/@rebirthauto(4,30,400,12000)>\
< Level 5 - 45 FP - Lvl500 - 150million gold/@rebirthauto(5,45,500,150000)>\
< Level 6 - 55 FP - Lvl850 - 200million gold/@rebirthauto(6,55,850,20000)>\
< Level 7 - 65 FP - Lvl1050 - 500million gold/@rebirthauto(7,65,1050,50000)>\
< Level 8 - 90 FP - Lvl1200 - 1Billion gold/@rebirthauto(8,90,1200,100000)>
[@rebirthauto()]
#ACT
Mov D5 %ARG(1)
Mov D6 %ARG(2)
Mov D0 %ARG(3)
Mov D8 %ARG(4)
goto @dorebirth
[@dorebirth]
#IF
ELARGE D4 %D6
checkgold %D8
checklevel %D0
!HLSCRIPTCMD CHECKRELEVEL %D5
#ACT
DEC D4 %D6
SetFame %D4
take gold %D8
HLSCRIPTCMD REINCARNATION
HLSCRIPTCMD CLEAREXP
#SAY
You got <$HLREINCARNATION> rebirth now.\
#ELSESAY
You are short on something to gain this Rebirth.\
<[ Exit ]/@exit>\\\
As says Alecs7k use the search.