SRL Archive - SRL Archives

Place in SRL\SRL\Core\Timing.scar:

procedure HoldTimer(H, M, S: Integer; OnTimer: procedure);
var
  MS: Integer;
begin
  MS := GetTimeRunning + (H * 60 * 60 * 1000) + (M * 60 * 1000) + (S * 1000);
  while (MS > GetTimeRunning) do
    OnTimer();
end;

What does this do? Instead of waiting every X milliseconds it can wait hours, minutes and seconds.. Also, while it is stopping the time, you can let it call the procedure OnTimer.

This may or may not be useful, but i made this a while back and found it sitting in my scripts directory :D

Have fun :p

=p it looks neat.

i smell a farming script?

From: Awkwardsaw
=p it looks neat.

i smell a farming script?

Sorry, not P2P :(

BTW, could this be used in Farming?

You should add a wait in the loop to avoid lagging. At least a Wait(15).

yes, like after you go through your runs, set the amount of time to wait, and log back in to do it over. :p

I would get rid if OnTimer() and put SRL_Procs[srl_AntiBan]()

procedure HoldTimer(H, M, S: Integer);
var
  MS: Integer;
begin
  MS := GetTimeRunning + (H * 60 * 60 * 1000) + (M * 60 * 1000) + (S * 1000);
  while (MS > GetTimeRunning) do
    if SRL_Procs[srl_AntiBan] <> nil then
     SRL_Procs[srl_AntiBan]();
end;

From: Cazax
You should add a wait in the loop to avoid lagging. At least a Wait(15).

Hasn't lagged for me at all during my testing ;)

From: Awkwardsaw
yes, like after you go through your runs, set the amount of time to wait, and log back in to do it over. :p

Oh kewl.

From: Quickmarch
I would get rid if OnTimer() and put SRL_Procs[srl_AntiBan]()

procedure HoldTimer(H, M, S: Integer);
var
  MS: Integer;
begin
  MS := GetTimeRunning + (H * 60 * 60 * 1000) + (M * 60 * 1000) + (S * 1000);
  while (MS > GetTimeRunning) do
    if SRL_Procs[srl_AntiBan] <> nil then
     SRL_Procs[srl_AntiBan]();
end;

So you would want it to do AntiBan every single millisecond? For one, i wouldn't like that :(

From: Quickmarch
I would get rid if OnTimer() and put SRL_Procs[srl_AntiBan]()

That kinda kills the idea of the procedure. The idea is that the user can choose the procedure, it doesn't always have to be antiban. Besides, everyone makes their own antiban procedures.

[QUOTE=Dan's The Man;603784]Hasn't lagged for me at all during my testing ;)


Oh kewl.


So you would want it to do AntiBan every single millisecond? For one, i wouldn't like that :(

You could put a WaitTime parameter and in the loop put Wait(WaitTime); - Just a suggestion. :)

From: Quickmarch
You could put a WaitTime parameter and in the loop put Wait(WaitTime); - Just a suggestion. :)

Meh, the users can do what they want with it if they implement it into their scripts. Or, if the devs can modify it to their hearts content if they do add it to SRL ;)

i like the wait thing :p

how about a different version of this, but instead of doing a procedure for a set amount of time, make it wait a set amount of time and then do the said procedure