procedure HoldTimer(H, M, S: Integer; OnTimer: procedure);

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

scar Code:

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?

Quote:

---

Originally Posted by 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]()

SCAR Code:

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;

Quote:

---

Originally Posted by 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 ;)

Quote:

---

Originally Posted by 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.

Quote:

---

Originally Posted by Quickmarch

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

SCAR Code:

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 :(

Quote:

---

Originally Posted by 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:

---

Originally Posted by Dan's The Man

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. :)

Quote:

---

Originally Posted by 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