PDA

View Full Version : Simple Wait



mat_de_b
08-21-2007, 03:27 AM
procedure RWait(time, rand: integer);
var
real:integer;
begin
if not(LoggedIn)then exit;
real := time +random(rand);
wait(real/2);
FindNormalRandoms;
if(real >= 1000)then
begin
case random(9) of
1:MouseBox(MSX1,MSY1,MSX2,MSY2,False);
2:MouseBox(MIX1,MIY1,MIX2,MIY2,False);
3:IdleTime(1000,500,1);
end;
end;
wait(real/2);
end;


EDIT: Tried to keep up with lordsaturns standards :D and put in an If and idle time

Just thought i'd put this up here cause im nice and lazy and feel it just speeds stuff up a bit... its nothing complicated :D

if i get bored i might try and time the functions to get the correct wait, but for now it'll do

Mat

lordsaturn
08-21-2007, 04:07 AM
Does no one on these forums know standards?


procedure RWait(time, rand : integer);
var
Real : integer;
begin
if not(LoggedIn)then
Exit;
Real := time + Random(rand);
Wait(real/2);
FindNormalRandoms;
case Random(9) of
1: MouseBox(MSX1,MSY1,MSX2,MSY2,False);
2: MouseBox(MIX1,MIY1,MIX2,MIY2,False);
3: MouseBox(MMX1,MMY1,MMX2,MMY2,False);
end;
Wait(real/2);
end;

mat_de_b
08-21-2007, 03:22 PM
Does no one on these forums know standards?


procedure RWait(time, rand : integer);
var
Real : integer;
begin
if not(LoggedIn)then
Exit;
Real := time + Random(rand);
Wait(real/2);
FindNormalRandoms;
case Random(9) of
1: MouseBox(MSX1,MSY1,MSX2,MSY2,False);
2: MouseBox(MIX1,MIY1,MIX2,MIY2,False);
3: MouseBox(MMX1,MMY1,MMX2,MMY2,False);
end;
Wait(real/2);
end;


If people here prefer it i'll use them from now on, however i still like to keep an if state ment with one response on one line, like the exit one there

Sp0rky
08-21-2007, 03:27 PM
Does no one on these forums know standards?


Don't be mean =P He's contributing.

hardman
08-21-2007, 04:47 PM
Can i use this in my script ?

mat_de_b
08-21-2007, 06:15 PM
Sure thing, just rep me :D