Floor66
2009-06-02 22:49:44
I've used R_XpTillNextLevel but it wasn't accurate in some way =S
UPDATE;
Added shut's formula.
UPDATE;
Added shut's formula.
{*******************************************************************************
Function R_XpTillNextLevelEx(Skill : Integer): Integer;
By: Floor66
Description: Returns the XP to the next level of Skill in a different way.
*******************************************************************************}
Function R_XpTillNextLevelEx(Skill : Integer): Integer;
Var
CurrLevel, i, x : Integer;
Begin
CurrLevel := GetMySkill(Skill, True);
For i := 1 To CurrLevel Do
x := x + Trunc(i + 300 * Pow(2, i / 7));
Result := ((x / 4) - GetMySkill(Skill, False));
End;