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