SRL Archive - RS3 Outdated / Broken Scripts

//You need to include the SRL scar files where the antibannage funtions are in. Just search a bit
//in the SRL folder and include them. Or just put the functions in your script.

{.include SRL/SRL.scar}
procedure BoredTeleporting;
begin
TypeSend('here you can do something like omg i need 1000 teleports to next mining lvl')
TypeSend('or this is sooooooo boring')
end;

procedure AntiBannage;  //WT-Fakawi edited by Fearlesssss(Dont forget to give me credits also plz :D)
var
  DBanMe: Integer;
begin
  DBanMe := Random(14);
  case DBanMe of
    0: RandomRClickEvery(2 + Random(13));
    1: HoverSkill('Magic', False);
    2: RotateEvery(20 + Random(10));
    3: LeaveScreenEvery(5 + Random(5));
    4: BoredEvery(15 + Random(5))
    5: PickUpMouse;
    6: BoredEvery(9 + Random(24));
    7: DragItem(1, 1 + Random(18));
    8: GameTab(1 + Random(12));
    9: RotateEvery(7 + random(4));
    10: MouseBox(MSX1, MMY1, MMX2, MMY2, 3);
    11: SleepAndMoveMouse(600000 + random(300000))
    12: IdleTime(1000 + Random(350),500,1.0);
    13: BoredTeleporting;
  end;
end;

From: remy
What version of SRL/Scar should I use for this?

From: Aje
I strongly believe SRL 3.6 / Scar 2.03

NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);

function FindFastRandoms: Boolean; //By WT-Fakawi.
var
  i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
          Result := True;
      2: if FindMod then
          Result := True;
      3: if FindMime then
          Result := True;
      4: if FindMaze then
          Result := True;
      5: if FindQuiz then
          Result := True;
      6: if FindDemon then
          Result := True;
      7: begin  /// ! 7 ! Look below
          if NoGameTab then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'No GameTab';
            Logout;
            Exit;
          end;
        end;
      7: begin  /// <---- 7 again! :S
          if InBlack then
          begin
            Result := True;
            Players[CurrentPlayer].loc := 'InBlack';
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure MyAntiBan;
var
  DBanMe: Integer;
begin
  DBanMe := Random(8);
  case DBanMe of
    0: RandomRClick;
    1: HoverSkill('Magic', False);
    2: AlmostLogout
    3: PickUpMouse;
    4: BoredHuman;
    5: Wait2(10000 + Random(20000), True);
    6: FTWait(40 + Random(80));
    7: DragItem(1, 1 + Random(18));
    8: GameTab(1 + Random(12));
    9: MouseBox(MSX1, MMY1, MMX2, MMY2, 3);
   10: IdleTime(1000 + Random(350),500,1.0);
  end;
end;

From: stone warior
[Runtime Error] : Out Of Range in line 1095 in script