- Oct 5, 2008
- 27
- 0
- 28
here ma prob the reb npc takes fp lvls an cash but it dunt take the integs it needs the amount of integ it sez but it dunt take any inteh wen u rebirth here the scirpt -
[@main]
#if
Checkfame
#act
mov d4 %p9
#say
-----------------------------------------------------------\
Welcome to {FCOLOR/1}Insane Mir3{FCOLOR/12} Rebirth System\
-----------------------------------------------------------\
Currently we offer 8 rebirths to our members.\
attaining all of them is not an easy task.\
<Rebirth/@rebirthmenu>\
[@rebirthmenu]
#say
< RebirthLevel 1 - 100 Integrals - 20 FamePoints - Level 100 - 30Million gold/@rebirth(1,100,20,100,30000000)>\
< RebirthLevel 2 - 250 Integrals - 50 FamePoints - Level 250 - 40Million gold/@rebirth(2,250,50,250,40000000)>\
< RebirthLevel 3 - 500 Integrals - 70 FamePoints - Level 500 - 50Million gold/@rebirth(3,500,70,500,50000000)>\
< RebirthLevel 4 - 750 Integrals - 100 FamePoints - Level 750 - 60Million gold/@rebirth(4,750,100,750,60000000)>\
< RebirthLevel 5 - 900 Integrals - 150 FamePoints- Level 900 - 80Million gold/@rebirth(5,900,150,900,80000000)>\
< RebirthLevel 6 - 1200 Integrals - 200 FamePoints - Level 1200 - 100Million gold/@rebirth(6,1200,200,1200,100000000)>\
< RebirthLevel 7 - 2000 Integrals - 300 FamePoints - Leve l2000 - 250Million gold/@rebirth(7,2000,300,2000,250000000)>\
< RebirthLevel 8 - 2500 Integrals - 500 FaemPoints - Level 2500 - 1Billion gold/@rebirth(8,2500,500,2500,1000000000)>\
[@rebirth()]
#act
mov d5 %arg(1)
mov d6 %arg(2)
mov d3 %arg(3)
mov d0 %arg(4)
mov d8 %arg(5)
goto @proceed
[@proceed]
#if
elarge d4 %d3
checkgold %d8
checklevel %d0
hlscriptcmd checkpoint %d6
!hlscriptcmd checkrelevel %d5
#act
dec d4 %d3
dec d0 %d3
dec d6 %d6
setfame %d4
take gold %d8
HLSCRIPTCMD CHANGELEVEL - %d3
hlscriptcmd setpoint %d6
hlscriptcmd reincarnation
hlscriptcmd clearexp
#say
You now have level <$hlreincarnation> Rebirth.\
and you now have <$output(d4)> FamePoints.\
#elsesay
You do not qualify for rebirth go away.\
<exit/@exit>\\
any help would b great thanks
[@main]
#if
Checkfame
#act
mov d4 %p9
#say
-----------------------------------------------------------\
Welcome to {FCOLOR/1}Insane Mir3{FCOLOR/12} Rebirth System\
-----------------------------------------------------------\
Currently we offer 8 rebirths to our members.\
attaining all of them is not an easy task.\
<Rebirth/@rebirthmenu>\
[@rebirthmenu]
#say
< RebirthLevel 1 - 100 Integrals - 20 FamePoints - Level 100 - 30Million gold/@rebirth(1,100,20,100,30000000)>\
< RebirthLevel 2 - 250 Integrals - 50 FamePoints - Level 250 - 40Million gold/@rebirth(2,250,50,250,40000000)>\
< RebirthLevel 3 - 500 Integrals - 70 FamePoints - Level 500 - 50Million gold/@rebirth(3,500,70,500,50000000)>\
< RebirthLevel 4 - 750 Integrals - 100 FamePoints - Level 750 - 60Million gold/@rebirth(4,750,100,750,60000000)>\
< RebirthLevel 5 - 900 Integrals - 150 FamePoints- Level 900 - 80Million gold/@rebirth(5,900,150,900,80000000)>\
< RebirthLevel 6 - 1200 Integrals - 200 FamePoints - Level 1200 - 100Million gold/@rebirth(6,1200,200,1200,100000000)>\
< RebirthLevel 7 - 2000 Integrals - 300 FamePoints - Leve l2000 - 250Million gold/@rebirth(7,2000,300,2000,250000000)>\
< RebirthLevel 8 - 2500 Integrals - 500 FaemPoints - Level 2500 - 1Billion gold/@rebirth(8,2500,500,2500,1000000000)>\
[@rebirth()]
#act
mov d5 %arg(1)
mov d6 %arg(2)
mov d3 %arg(3)
mov d0 %arg(4)
mov d8 %arg(5)
goto @proceed
[@proceed]
#if
elarge d4 %d3
checkgold %d8
checklevel %d0
hlscriptcmd checkpoint %d6
!hlscriptcmd checkrelevel %d5
#act
dec d4 %d3
dec d0 %d3
dec d6 %d6
setfame %d4
take gold %d8
HLSCRIPTCMD CHANGELEVEL - %d3
hlscriptcmd setpoint %d6
hlscriptcmd reincarnation
hlscriptcmd clearexp
#say
You now have level <$hlreincarnation> Rebirth.\
and you now have <$output(d4)> FamePoints.\
#elsesay
You do not qualify for rebirth go away.\
<exit/@exit>\\
any help would b great thanks