PDA

View Full Version : RandomGameTab.



Ilikepie1995
08-03-2007, 03:08 PM
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 :).

Pentti
08-03-2007, 03:13 PM
How about this?
Procedure RandomGameTab;
begin
GameTab(Random(10)+1);
end;
:D

n3ss3s
08-03-2007, 03:14 PM
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;

Pentti
08-03-2007, 03:23 PM
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.

n3ss3s
08-03-2007, 03:42 PM
I give you 1 rep and we never had this conversation? :D
Jk/Jk

Ilikepie1995
08-03-2007, 10:40 PM
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.

The Claw
08-04-2007, 08:21 AM
Nah its good Ilikepie :) Great way to start scripting.

n3ss3s
08-04-2007, 09:06 PM
Yes, nothing better than using me and JuKKas antiban functions.

BobboHobbo
08-06-2007, 12:35 PM
How about this?
Procedure RandomGameTab;
begin
GameTab(Random(10)+1);
end;
:D

LMAO Pentti is a smart one ;)

Lalaji
08-06-2007, 05:30 PM
lol i made a function kinda like that... then deleted it

Ilikepie1995
08-08-2007, 04:27 AM
Nah its good Ilikepie Great way to start scripting.

Thanks! :).

tylerw2239
08-08-2007, 09:42 PM
hey, im gonna use it, all credits to you of course