GetAmtNeeded

[TViYH]

{************************************************* ******************************
function GetAmtNeeded(Skill:string; XPPerItem : integer) : integer;
By: Elkins121
Description: Returns amount of items needed to advance to next level.
Ex. WriteLn('Amount Needed := ' + GetAmtNeeded('Mining', 65));
************************************************** *****************************}
function GetAmtNeeded(Skill:string; XPPerItem : integer) : integer;
var
SkillLvlCurr, SkillLvlNxt,SkillXPNeeded,AmtNeeded : integer;
begin
SkillLvlCurr:=GetXP(Skill);
ClearDebug;
SkillLvlNxt:=NextLevelAt(Skill);
ClearDebug;
SkillXPNeeded:=SkillLvlNxt - SkillLvlCurr;
ClearDebug;
AmtNeeded:=SkillXPNeeded/XPPerItem;
ClearDebug;
Result := AmtNeeded;
end;


Tell me what you think...

[The Claw]

Could be useful if you wanted to make a script that would do an action until the next level up or something :)

[R0b0t1]

Standards....

[Pancakes]

Thats a nice idea actually, I like it :)

Kinda shorted, untested.


function ItemsNeededForLevel(Skill : String; XPPerItem : Integer) : Integer;
begin
Result := Ceil((NextLevelAt(Skill) - GetXP(Skill)) / XPPerItem);
end;

[TViYH]

Thanks for the shortenedness Pancakes!!


Thats a nice idea actually, I like it :)

Kinda shorted, untested.





function ItemsNeededForLevel(Skill : String; XPPerItem : Integer) : Integer;
begin
Result := Ceil((NextLevelAt(Skill) - GetXP(Skill)) / XPPerItem);
end;

[Sir R. M8gic1an]

looks good, but what is up with all the ClearDebugs?
you only need one at the beginning, because when your doing those calculations it doesn't write anything into the debug box. :)
RMagician

[TViYH]

Just my way of fixing something that isn't broken...