SRL Archive - Research & Development Lounge

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

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;

From: lordsaturn
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

From: lordsaturn
Does no one on these forums know standards?

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

Can i use this in my script ?

Sure thing, just rep me :D