SRL Archive - Research & Development Lounge

RandomGameTab.
By Ilikepie1995.

I DON'T KNOW IF THIS HAS BEEN MADE IN SRL, IAM TOO LAZY TO CHECK LOL. BUT THIS PROCEDURE WAS MADE BY ME, YOU CAN ADD IT TO YOUR SRL :D. BUT CREDIT TO ME PLEASE :).

This Would Click A Random GameTab.
IF You Want This, Then Add It To AntiBan.Scar.

Procedure RandomGameTab;
begin
  if(not(LoggedIn))then
  Exit;
  Case Random(9) of

     0: begin
          GameTab(1);
          Wait(2000+random(400));
          GameTab(4);
        end;

     1: begin
          GameTab(2);
          Wait(2200+random(300));
          GameTab(4);
        end;

     3: begin
          GameTab(3);
          Wait(2100+random(350));
          GameTab(4)
        end;

     4: begin
          GameTab(5);
          Wait(2000+random(500));
          GameTab(4);
        end;

     5: begin
          GameTab(6);
          Wait(2000+random(450));
          GameTab(4);
        end;

     6: begin
          GameTab(7);
          Wait(2400+random(240));
          GameTab(4);
        end;

     7: begin
          GameTab(8);
          Wait(2300+random(290));
          GameTab(4);
        end;

     8: begin
          GameTab(9);
          Wait(2000+random(285));
          GameTab(4);
        end;

     9: begin
          GameTab(10);
          Wait(2000+random(500));
          GameTab(4);
        end;
    end;
end;

AGAIN, IF THIS HAS BEEN MADE BEFORE THEN WATEVER :).

How about this?

Procedure RandomGameTab;
begin
  GameTab(Random(10)+1);
end;

:D

Procedure RandomGameTab;
begin
GameTab(Random(10)+1);
end;

haha lawl



My gametab antibanz0r eat j00r f0r breakfast :p

procedure ImpatiencyEruption(Ms: Integer);
var FL: array[1..12] of Integer;
KMark, F: Integer;
begin
FL[1] := 112;
FL[2] := 113;
FL[3] := 114;
FL[4] := 115;
FL[5] := 116;
FL[6] := 117;
FL[7] := 118;
FL[8] := 119;
FL[9] := 120;
FL[10] := 121;
FL[11] := 122;
FL[12] := 123;
MarkTime(KMark);
while TimeFromMark(KMark) < MS do
begin
try
F := Random(12);
KeyDown(FL[F]);
Wait(50 + Random(20));
KeyUp(FL[F]);
Wait(100 + Random(25));
except
F := Random(10);
end;
end;
end;

n

procedure HumanTab2(Tabs, LastTab: Integer);
var RealMouseSpeed, I: Integer;
begin
RealMouseSpeed := MouseSpeed;
MouseSpeed := (7 + Random(3));
for i := 1 to Tabs do
begin
GameTab(1 + random(13));
end;
GameTab(LastTab);
MouseSpeed := RealMouseSpeed;
end;

and for n3ss3s:

procedure What(Ms:integer);
var
  i,a:integer;
begin
  i:=112+random(12);
  a:=getsystemtime
  repeat
    KeyDown(i)
    wait(10+random(50));
    KeyUp(i)
  until(getsystemtime-a>=ms)
end;

I think I beat you too.

I give you 1 rep and we never had this conversation? :D
Jk/Jk

Lol Ok OK lmao, stop showing off :P. Iam still a begginer in scripting :P i mean i dont know that stuff above but it looks cool lol.Watever, maybe some people like begginers mite use it in their scripts.

Nah its good Ilikepie :) Great way to start scripting.

Yes, nothing better than using me and JuKKas antiban functions.

From: Pentti
How about this?

Procedure RandomGameTab;
begin
  GameTab(Random(10)+1);
end;

:D

LMAO Pentti is a smart one ;)

lol i made a function kinda like that… then deleted it

Nah its good Ilikepie Great way to start scripting.

Thanks! :).

hey, im gonna use it, all credits to you of course