SRL Archive - RS3 Outdated / Broken Scripts

ok first off i tried to make my own but i failed. i have also searched and either they are out dated or don't work right. this is perfect for some skills like fishing. all it has to do is move mouse at a random time set then go idle when the mouse is being moved by me. no clicking is needed to stay logged in any more.

i failed at the marktime. my script is in the script help section if anyone can fix it up.

Thank You

dude what your looking for is called an antiban, to do an antiban you can either,
1. follow my advice(which is good)
2. Just look at another scripts antiban procedure to get my drift

to make an antiban make a procedure called antiban, make a case,
such as

Procedure AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(20) of//doesn't really matter the case number, it's just how much the action is preformed.

then number it 1-whatever in this case 1-4,
then put things in like

0: begin
         HoverSkill('Woodcutting', false);
         wait(2453+Random(432));
       end;
1: PickUpMouse;

2: begin
         MakeCompass('N');
         wait(100+random(5));
         MakeCompass('S');
         wait(100+random(5));
         MakeCompass('N');
       end;
3: begin
        RandomRClick;
        wait(500 + random(500));
        end;
4: begin
    IdleTime(1000 + Random(750), 500, 0.5);
        Wait(300 + random(700));
       end;
  end;
   end;

so in the end your antiban should look something like this,

Procedure AntiBan;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(20) of
0: begin
         HoverSkill('Woodcutting', false);
         wait(2453+Random(432));
       end;
1: PickUpMouse;

2: begin
         MakeCompass('N');
         wait(100+random(5));
         MakeCompass('S');
         wait(100+random(5));
         MakeCompass('N');
       end;
3: begin
        RandomRClick;
        wait(500 + random(500));
        end;
4: begin
    IdleTime(1000 + Random(750), 500, 0.5);
        Wait(300 + random(700));
       end;
  end;
   end;

this will keep your mouse moving and stop you from logging out, while also making the player look less bot like. to make this preform during your fishing function just put in

antiban;

into either the main loop, or in your fishing procedure

I hoped that helped(it probably didn't but hey I'm hoping). If it didn't help then someone smarter should try to explain it to you or you should just take a look at someone else's script, or even better take a look at mine.(follow lijnk in sig). Look at the anti ban procedure and the chopping procedure if you do and you'll see how i get it to preform while he's chopping. If that helped feel free to ++rep me, :D

-blumblebee

You are sooooo lucky I'm a nice guy.

program New;
{.include srl/srl.scar}

const
  Seconds = 40; //Time To wait after mouse is staying stationary

var

  x1, x2, y1, y2, a, b: integer;
  Key1, Key2 : byte;
  
begin
  SetupSRL;
  ActivateClient;
  repeat
    GetMousePos(x1, y1);
    Wait(100+random(25));
    GetMousePos(x2, y2);
    if (x1 = x2) and (y1 = y2) then
    begin
      GetMousePos(x1, y1);
      a := (Seconds*1000) mod 10;
      repeat
        Wait(a);
        GetMousePos(x2, y2);
        Inc(b);
      until (x1 <> x2) or (y1 <> y2) or (b = 10);
      if b = 10 then
      begin
        case Random(2) of
          0: begin
               Key1 := Vk_left; Key2 := Vk_Right;
             end;
          1: begin
               Key1 := Vk_Right; Key2 := Vk_Left;
             end;
        end;
        KeyDown(Key1);
        Wait(400+random(300));
        KeyUp(Key1);
        Wait(300+random(50));
        KeyDown(Key2);
        Wait(400+random(300));
        KeyUp(Key2);
      end;
    end;
  until IsFKeyDown(2);
end.

Test it, should work. It moves the camera instead of clicking the mouse though. So yeah, make sure you define the client. It will activate it. You SHOULD be able to move the mouse etc. This will keep the screen active though.

Tell me you wub me <3

Nava2

I do wub you <3 :D you spent yesterday trying to help me fix mine and then you make me a complete new one is just incredible.

well the script starts and moves the camera and then does nothing

From: roboroofer1
I do wub you <3 :D you spent yesterday trying to help me fix mine and then you make me a complete new one is just incredible.

well the script starts and moves the camera and then does nothing

That's normal, he made it so it will do that.
What it basicly does is, taking your mouse pos 2 times very fast after eachother, and checks the coords. If the coords aren't changed (the same => you didn't moved the mouse) then it'll move the camera, else it does nothing;)

-Tsn.

That's normal, he made it so it will do that.
What it basicly does is, taking your mouse pos 2 times very fast after eachother, and checks the coords. If the coords aren't changed (the same => you didn't moved the mouse) then it'll move the camera, else it does nothing

right …but when the mouse stops its not checking the coords so im logging off

hmm I guess my repeat didnt work :)

I forgot to redeclare b as 0! Try this:

program New;

const
  Seconds = 40; //Time To wait after mouse is staying stationary

var

  x1, x2, y1, y2, a, b: integer;
  Key1, Key2 : byte;
  
begin
  ActivateClient;
  repeat
    GetMousePos(x1, y1);
    Wait(100+random(25));
    GetMousePos(x2, y2);
    if (x1 = x2) and (y1 = y2) then
    begin
      //GetMousePos(x1, y1); <- Uneeded
      a := Seconds * 100;
      repeat
        Wait(a);
        GetMousePos(x2, y2);
        Inc(b);
      until (x1 <> x2) or (y1 <> y2) or (b = 10);
      if ((b = 10) and (x1 = x2) and (y1 = y2)) then
      begin
        case Random(2) of
          0: begin
               Key1 := Vk_left; Key2 := Vk_Right;
             end;
          1: begin
               Key1 := Vk_Right; Key2 := Vk_Left;
             end;
        end;
        KeyDown(Key1);
        Wait(400+random(300));
        KeyUp(Key1);
        Wait(300+random(50));
        KeyDown(Key2);
        Wait(400+random(300));
        KeyUp(Key2);
      end;
      b := 0;
    end;
  until IsFKeyDown(2);
end.

Nava2

THAT'S IT!!! you are the man Thank You very much!


1 question…fist is the camera movement time random? (detectable)

I don't really know, but does this fix your "problem" ?

program New;

const
  Seconds = 40; //Time To wait after mouse is staying stationary

var

  x1, x2, y1, y2, a, b: integer;
  Key1, Key2 : byte;

begin
  ActivateClient;
  repeat
    GetMousePos(x1, y1);
    Wait(100+random(25));
    GetMousePos(x2, y2);
    if (x1 = x2) and (y1 = y2) then
    begin
      //GetMousePos(x1, y1); <- Uneeded
      a := Seconds * (100 + random(25));
      repeat
        Wait(a + random(500));
        GetMousePos(x2, y2);
        Inc(b);
      until (x1 <> x2) or (y1 <> y2) or (b = 10);
      if ((b = 10) and (x1 = x2) and (y1 = y2)) then
      begin
        case Random(2) of
          0: begin
               Key1 := Vk_left; Key2 := Vk_Right;
             end;
          1: begin
               Key1 := Vk_Right; Key2 := Vk_Left;
             end;
        end;
        KeyDown(Key1);
        Wait(400+random(300));
        KeyUp(Key1);
        Wait(300+random(50));
        KeyDown(Key2);
        Wait(400+random(300));
        KeyUp(Key2);
      end;
      b := 0;
    end;
  until IsFKeyDown(2);
end.