[CD3.55] GamePoints To Famepoints...........

[dagras]

i decided to bring back gamepoints system into new part of server and i reloaded an old one i had which i thought was working.

however i can change fame to GP but soon as i change GP to FP i get booted from server.

[@main]
{
#IF
Checkfame
MOV D4 %P9
#SAY
Hello {FCOLOR/1}<$USERNAME>{FCOLOR/12},\
You Have {FCOLOR/10}<$output(P9)>{FCOLOR/12} fame.\
You Have {FCOLOR/10}<$HLPOINT>{FCOLOR/12} GamePoints.\\
GamePoints to FamePoints\
<1000 GP : 250 FP/@gametofame(1000,250)>\
<1500 GP : 275 FP/@gametofame(1500,275)>\
<2500 GP : 300 FP/@gametofame(2500,300)>\\
FamePoints to GamePoints\
<1000 FP : 3000 GP/@fametogame(1000,3000)>\
<2000 FP : 5000 GP/@fametogame(2000,5000)>\
<5000 FP : 10000 GP/@fametogame(5000,10000)>\\
<Guild Bank And Shop/@guildbank>\\
<Exit/@exit>\
[@fametogame()]
#ACT
Mov D2 %ARG(1)
Mov D3 %ARG(2)
goto @f2ggo
[@f2ggo]
#IF
CHECKFAME %D2
MOV D4 %P9
#ACT
HLSCRIPTCMD SETPOINT + %D3
DEC D1 %D2
SETFAME %D1
SYSMSG "You have changed <$OUTPUT(D2)> FP to <$OUTPUT(D3)> GP"
#ELSEACT
SYSMSG "You do not have <$OUTPUT(D2)> FamePoints"

[@gametofame()]
#ACT
MOV D2 %ARG(1)
MOV D3 %ARG(2)
goto @g2fgo
[@g2fgo]
#IF
HLSCRIPTCMD CHECKPOINT %D3
#ACT
HLSCRIPTCMD SETPOINT - %D3
INC D1 %D2
SETFAME %D1
SYSMSG "You have changed <$OUTPUT(D3)> GP to <$OUTPUT(D2)> FP"
#ELSEACT
SYSMSG "You do not have <$OUTPUT(D3)> GamePoints"

 

[Finality]

[@main]
{
#IF
Checkfame
MOV D4 %P9
#SAY
Hello {FCOLOR/1}<$USERNAME>{FCOLOR/12},\
You Have {FCOLOR/10}<$output(D4)>{FCOLOR/12} fame.\
You Have {FCOLOR/10}<$HLPOINT>{FCOLOR/12} GamePoints.\\
GamePoints to FamePoints\
<1000 GP : 250 FP/@gametofame(1000,250)>\
<1500 GP : 275 FP/@gametofame(1500,275)>\
<2500 GP : 300 FP/@gametofame(2500,300)>\\
FamePoints to GamePoints\
<1000 FP : 3000 GP/@fametogame(1000,3000)>\
<2000 FP : 5000 GP/@fametogame(2000,5000)>\
<5000 FP : 10000 GP/@fametogame(5000,10000)>\\
<Guild Bank And Shop/@guildbank>\\
<Exit/@exit>\

[@fametogame()]
#ACT
Mov D2 %ARG(1)
Mov D3 %ARG(2)
goto @f2ggo ;OUT
[@f2ggo] ;OUT
#IF
CHECKFAME %D2
MOV D4 %P9 ;OUT
#ACT
HLSCRIPTCMD SETPOINT + %D3
DEC D1 %D2 ;IS D4...
SETFAME %D1 ;IS D4...
SYSMSG "You have changed <$OUTPUT(D2)> FP to <$OUTPUT(D3)> GP"
#ELSEACT
SYSMSG "You do not have <$OUTPUT(D2)> FamePoints"

[@gametofame()]
#ACT
MOV D2 %ARG(1)
MOV D3 %ARG(2)
got @fgo ;OUT
[@g2fgo] ;OUT
#IF
HLSCRIPTCMD CHECKPOINT %D3
#ACT
HLSCRIPTCMD SETPOINT - %D3
INC D1 %D2 ;D4
SETFAME %D1 ;D4
SYSMSG "You have changed <$OUTPUT(D3)> GP to <$OUTPUT(D2)> FP"
#ELSEACT
SYSMSG "You do not have <$OUTPUT(D3)> GamePoints"

Here have a fix release! +Rep, if have any problem post renew.