Bad Boy JH
2010-06-01 07:53:33
Simba's Pow needs the 7 and/or 2 in these functions to be 7.0 and 2.0, So I made a few changes to get it working
function ConvertXpToLvl(xp: Integer): Integer;
var
level, exp: Integer;
begin
for level := 0 to 99 do
begin
exp := exp + Trunc(level + 300 * Pow(2.0, level / 7.0));
if ((exp / 4) > xp) then
begin
Result := level;
Exit;
end;
end;
Result := 99;
end;
function ConvertLvlToXP(Level: Integer): Integer;
var
I, exp: Integer;
Power, TPower:Extended;
begin
for i := 1 to Level-1 do
IncEx(Exp, Trunc(i + 300.0 * Pow(2.0, i / 7.0)));
Result := exp / 4;
end;