SRL Archive - Research & Development Lounge

{*******************************************************************************
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…

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

Standards….

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;

Thanks for the shortenedness Pancakes!!

From: Pancakes
Thats a nice idea actually, I like it :)

Kinda shorted, untested.




[LEFT]

function ItemsNeededForLevel(Skill : [COLOR=#000000][B]String[/B][/COLOR]; XPPerItem : Integer) : Integer;
begin
 Result := Ceil((NextLevelAt(Skill) - GetXP(Skill)) / XPPerItem);
end;

[/LEFT]

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

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