TViYH
09-24-2007, 11:44 PM
{************************************************* ******************************
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...
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...