SRL Archive - OSR Help

i need a progress report for the xp/hour for gilded altar prayer script

procedure XPPerHour;
 Begin
  XPPH := Round((XP * 3600) / (GetTimeRunning / 1000));
end;

Remember to add something to add to your XP variable, I forgot to do that mysrlf.

function XPPerHour : integer;
 Begin
  Result := Round((XP * 3600) / (GetTimeRunning / 1000));
end;

This would be better, no need for the variable then


Then just something like:

WriteLn('--------------------------------')
WriteLn('|      My Script                        ')
WriteLn('--------------------------------')
WriteLn('XP Per Hour: '+IntToStr(XPPerHour))

From: putonajonny

function XPPerHour : integer;
 Begin
  Result := Round((XP * 3600) / (GetTimeRunning / 1000));
end;

This would be better, no need for the variable then


Then just something like:

WriteLn('--------------------------------')
WriteLn('|      My Script                        ')
WriteLn('--------------------------------')
WriteLn('XP Per Hour: '+IntToStr(XPPerHour))

This will overflow with only 596k XP. So after a few hour your XP/hour will be broken and display negative values.

Instead do this:

function XPPerHour : integer;
Begin
  Result:= Round((XP / (GetTimeRunning / 1000)) * 3600);
end;

how i do the var?
sorry im learning this stuff :)

var
  XPhour:Integer;

Check my guide here

That should explain everything.