Would this be right for calculating exp per hour? cause Im getting 60k + exp per hour with my new fighter.
Note: these are just some of my procedures. Also Im multiplying strings[25] by 4 because it times the exp in the 15 MINUTE session to get the exp per hour.
SCAR Code:
procedure reportexp;
begin
writeln('Player Exp per hour (not including hp) : '+players[currentplayer].strings[25]);
end;
procedure expstarts;
begin
//att,str,def,hp exp starts
players[currentplayer].integers[16] := GetMySkill(0,false); //att
players[currentplayer].integers[17] := GetMySkill(2,false); //str
players[currentplayer].integers[18] := GetMySkill(1,false); // def
players[currentplayer].integers[28] := GetMySkill(3,false); // hp (not included in per hour.
end;
procedure calcexp;
begin
players[currentplayer].integers[9] := GetMySkill(0,false); //att new
players[currentplayer].integers[10] := GetMySkill(2,false); //str
players[currentplayer].integers[11] := GetMySkill(1,false); // def
players[currentplayer].integers[12] := players[currentplayer].integers[9] - players[currentplayer].integers[16]
players[currentplayer].integers[13] := players[currentplayer].integers[10] - players[currentplayer].integers[17]
players[currentplayer].integers[14] := players[currentplayer].integers[11] - players[currentplayer].integers[18]
players[currentplayer].strings[25] := inttostr(4 * (players[currentplayer].integers[12] +players[currentplayer].integers[13] + players[currentplayer].integers[18]));
end;