SRL Archive - RS3 Outdated / Broken Scripts

Well here it is!

This script part is made for anti ban and also checks randoms, tell me how you like it.

Version

1.0: First version.

procedure AntiBanForMe
//////////////////////////////////////////
//AntiBannage By Lolislol               //
//Simply DOES NOT get your character    //
//banned by performing human like acts  //
//like examining objects when bored.    //
//////////////////////////////////////////

begin
  if not LoggedIn then
    Exit;
    FindNormalRandoms;
  case Random(140) of //Make the number 140 bigger if you don't want it to perform an act so often, or decrease it (not below 101) to make it perform one of the acts almost everytime the procedure is called.

   0:
    begin
      GameTab(3);
      wait(100 + Random(50));
      GameTab(2);
      wait(400 + Random(300);
      GameTab(4);
    end;
   1:BoredHuman;
   2:RandomMovement;
   3:
    begin
      GameTab(8);
      wait(600 + Random(100));
      GameTab(4);
    end;
   4:RandomMovement;
   9:BoredHuman;
   12:HoverSkill('woodcutting', False); //You can change the woodcutting to whatever skill you want it to hover the mouse upon and check the exp.
   18:RandomRClick;
   26:BoredHuman;
   31:FTWait(2);
   36:PickUpMouse;
   42:AlmostLogout;
   47:BoredHuman;
   49:RandomMovement;
   53:
    begin
     GameTab(1 + Random(12));
     wait(400 + Random(400));
     GameTab(4);
    end;
   59:HoverSkill('mining', False); //Same as case 12.
   64:AlmostLogout;
   72:RandomRClick;
   76:BoredHuman;
   82:Disguise('Three Days Grace - Animal i have become');
   83:Disguise('Bullet For My Valentine - The poison');
   91:Disguise('Linkin Park - Given up');
   92:Disguise('Linkin Park - Somewhere i belong');
   96:
     begin
       GameTab(3);
       wait(100 + Random(50));
       GameTab(2);
       wait(400 + Random(300);
       GameTab(4);
     end;
   100:
     begin
       GameTab(2);
       wait(600 + Random(400));
       GameTab(4);
     end;
   101:BoredHuman;
  FindNormalRandoms;
 end;
end;

you forgot

sleepandmovemouse(time);

yeah, i saw it but thought not to put it in… well i'll fit it in :D

Btw, think it's good?

And then where are you really from?

 59:HoverSkill('mining', False); //Same as case 12.

Then do

12,59 : hoverskill('mining, false);

Or better yet

12,59: hoverskill('[B]random[/B]'), false);

  53:
    begin
     GameTab(1 + Random(12));
     wait(400 + Random(400));
     GameTab(4);
    end;

I don't know if this is a good 'example' :\ But i would do :

  53,89,100:
    begin
     GameTab(1 + Random(12));
     wait(200+random(400)+random(300));
     GameTab(1+random(12));
    end;

   82:Disguise('Three Days Grace - Animal i have become');
   83:Disguise('Bullet For My Valentine - The poison');
   91:Disguise('Linkin Park - Given up');
   92:Disguise('Linkin Park - Somewhere i belong');

Isn't needed as they don't check what progs are being run.

case Random(140) of //Make the number 140 bigger if you don't want it to perform an act so often, or decrease it (not below 101) to make it perform one of the acts almost everytime the procedure is called.

Random(140) CAN return 101 :S Shouldn't you do, 101+random(39); lol >.<!

lol i think the songs are just so parents dont notice on comp

that thing about 101 is just so that it doesnt ever skip one of the numbers in his antiban permanently because of a too low random number threshold. It is fine as is.

This AntiBan is nothing special at the moment, sorry, but its true. You need to add tons more options :D.

Also make the numbers go in order. You skip around a ton from like 1, 2, 3, 4, 9, 12. Since the number is random you can just make them in order because it won't matter. It just makes it a lot easier to read and that way you can also increase decrease the occurences alot easier because you can see exactly how many there are.

Also, if you have like 1: PickUpMouse, 7: PickupMouse, 9, PickupMouse; then just do something like 1..3: PickupMouse or 1, 7, 9: PickupMouse.

Instead of always returning to GameTab 4. Get what tab they are on and then go back to that tab when you are finished.

Here are some other things you can add:

One of your things could just be a simple Wait(1000+random(500)) or something

TypeSend(RandomTalk+RandomDots);

function RandomTalk : String;
begin
  case random(17) of
    0: Result := 'yawn';
    1: Result := 'la dee da';
    2: Result := 'la di da';
    3: Result := '';
    4: Result := 'bored';
    5: Result := 'boredd';
    6: Result := 'borred';
    7: Result := 'bbored';
    8: Result := 'lol';
    9: Result := 'loll';
    10: Result := 'lool';
    11: Result := 'sigh';
    12: Result := 'sihg';
    13: Result := 'hmm';
    14: Result := 'hmmm';
    15: Result := 'ugh';
    16: Result := 'uhg';
  end;
end;

function RandomDots : String;
var
  i, o : Integer;
begin
  i := RandomRange(0,11);
  Result := '';
  if i>=6 then Exit else
  for o:=0 to i do Result := Result + '.';
end;

//Rotates The Camera In Random Direction (Left/Right) For Random Time//
procedure SpinCamera;
var
  z : Integer;
begin
  if not LoggedIn then Exit;
  Wait(50+random(50));
  z := Random(2);
  case z of
    0: KeyDown(VK_LEFT);
    1: KeyDown(VK_RIGHT);
  end;
  Wait(2500+random(750));
  case z of
    0: KeyUp(VK_LEFT);
    1: KeyUp(VK_RIGHT);
  end;
  Wait(50+random(50));
end;

//Rotates The Camera In Random Direction (Up/Down) For Random Time//
//MakeAngleHigh: True- Makes Angle Highest, False- Does Nothing//
procedure UpDownCamera(MakeAngleHigh : Boolean);
var
  x, Time : Integer;
begin
  if not LoggedIn then Exit;
  Wait(50+random(50));
  MarkTime(Time);
  x := Random(2);
  repeat
  case x of
    0: KeyDown(VK_UP);
    1: KeyDown(VK_DOWN);
  end;
  Wait(400+random(200));
  case x of
    0: KeyUp(VK_UP);
    1: KeyUp(VK_DOWN);
  end;
  if x=0 then x:=1 else x:=0;
  until(TimeFromMark(Time)>=3300+random(100));
  if MakeAngleHigh then SetAngle(True);
  Wait(50+random(50));
end;

//Rotates The Camera In Random Direction For Time (Left/Right) And Does Random Up And Down Movements//
//MakeAngleHigh: True- Makes Angle Highest, False- Does Nothing//
procedure RandomCamera(MakeAngleHigh : Boolean);
var
  z, x, Time : Integer;
begin
  if not LoggedIn then Exit;
  Wait(50+random(50));
  z := Random(2);
  case z of
    0: KeyDown(VK_LEFT);
    1: KeyDown(VK_RIGHT);
  end;
  MarkTime(Time);
  x := Random(2);
  repeat
  case x of
    0: KeyDown(VK_UP);
    1: KeyDown(VK_DOWN);
  end;
  Wait(400+random(150));
  case x of
    0: KeyUp(VK_UP);
    1: KeyUp(VK_DOWN);
  end;
  if x=0 then x:=1 else x:=0;
  until(TimeFromMark(Time)>=3300+random(100));
  case z of
    0: KeyUp(VK_LEFT);
    1: KeyUp(VK_RIGHT);
  end;
  if MakeAngleHigh then SetAngle(True);
  Wait(50+random(50));
end;

{*******************************************************************************
procedure ClanChatAntiBan;
By: Dusk412 (Stole Concept From Trollvete)
Description: Joins Random Popular Clan Chat
- add/edit clan chats at will :D
*******************************************************************************}

procedure ClanChatAntiBan;
begin
  case Random(6) of
    0: ChatName := 'runescape'
    1: ChatName := 'zezima'
    2: ChatName := 'kingduffy 1'
    3: ChatName := 'Lightning'
    4: ChatName := 'Atlantisblue'
    5: ChatName := 'cygopat'
  end;
  JoinClanChat(ChatName);
  SetChat('friends', 3);
end;

This is pathetic. You have 3 syntax errors in it, did you even try and compile it? also you dont have to use more than 1 line for each antiban effect thing. you can use a range of cases. i.e 10 to 15

From: Metagen
This is pathetic. You have 3 syntax errors in it, did you even try and compile it? also you dont have to use more than 1 line for each antiban effect thing. you can use a range of cases. i.e 10 to 15

[sarcasm]Nice constructive criticism Metagen. Keep it up. [/sarcasm]

82:Disguise('Three Days Grace - Animal i have become');
   83:Disguise('Bullet For My Valentine - The poison');
   91:Disguise('Linkin Park - Given up');
   92:Disguise('Linkin Park - Somewhere i belong');

hows that antiban…

@Pinky: if jackex reads ur taskbar (which is illegal) they might see SMART v3 1/3 or something..

They don't though and that is his point. Otherwise they would see SCAR running and every one of us would be banned.