A few things:
Simba Code:
wait(2) //Wait time is in milliseconds, there may as well not be a wait here..
Lets say you want it to proggy every minute yoy would:
Simba Code:
repeat
Antiban
Findspell
Castspell
ProgressReport //Just add this procedure into the loop
until(false)
However that would make it proggy every time the spell is cast, so lets use the "MarkTime" and "TimeFromMark" procedures to only call it say every 1 minute.
Before the loop starts we want to MarkTime so add something like:
Simba Code:
SetUpSRL;
DeclarePlayers;
LogInPlayer;
StartTime:=GetSystemTime;
ProgressReport;
MarkTime(Proggy) //This is the line I added
repeat
Antiban
Findspell
Castspell
ProgressReport
until(false)
Proggy is a variable so we need to declare that
Simba Code:
Var
stun, x, y, StartTime, Proggy : Integer;
We are storing in "Proggy" the time the script started, then in your progress report we add:
Simba Code:
procedure ProgressReport;
var
Sec:integer;
begin
SRLRandomsReport;
If(TimeFromMark(Proggy) < 60000) then
exit;
What this says is "if the time since 'proggy' is less than 60000 miliseconds (1minute) then we exit the procedure,
However then 1 minute into the script it will continuously proggy so we need to tell it when to measure the 60seconds from again so we do this:
Simba Code:
procedure ProgressReport;
var
Sec:integer;
begin
SRLRandomsReport;
If(TimeFromMark(Proggy) < 60000) then
exit;
Sec:= (1+((Getsystemtime-StartTime)/1000));
Writeln(' ');
Writeln ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
Writeln ('| --> L0sers Stunn0r '+ Version +' <-- |');
Writeln ('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
Writeln('|' + PadR(' Worked for '+ (TimeRunning) , 49) + '|');
Writeln('|' + PadR(' Stuns cast '+ IntToStr(stun) , 49) + '|');
Writeln('|' + PadR(' Location:' + Players[CurrentPlayer].Loc, 49) + '|');
Writeln ('\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/');
MarkTime(Proggy) //This is the important line
end;
Hope this helped