SRL Archive - First Scripts

What does this do?
- This script automatically types in messages of your choosing onto Runescape over and over again if you are to lazy to do it yourself. This is good for selling items on Runescape or maybe advertising on a different account.

How do you set it up?
- It is actually very simple. All you do is fill in the blank, pink spaces in between the green lines with the messages that you want to send. If you only want to send one message, type the same message in the blank spaces.

Nice start,
Now add more anti ban, like moving the mouse randomly, going into different Gametabs.

T~M

I made it so that it goes to the Skills Tab. I don't know how to do any other anti-bans. If there is a tutorial on how, please tell.

Go to AntiBan.scar in your SRL folder.

That anti-ban is more like pro-ban. Having it change the compass the same ways every time is going to increase the chance of getting banned.

To stop it doing the actions every time, you want to add cases. You use cases like this:

case Random(50) of
  0: anti-ban1
  1: anti-ban2
  2: anti-ban3

Let's break this down…

case Random (50) of

I'm referring to maths here…All you really need to know is that the 50 is the denominator of a fraction. This means that there is a 1 in 50 chance of them happening. So there is a 1 in 50 chance of anti-ban1, anti-ban2, and anti-ban3 all happening. So that's a 3 in 50 chance of any anti-ban happening. This means that it will not always perform anti-ban when it comes to that procedure.

Also, there are many more anti-ban functions which are widely used. Here are the most common ones:
- PickUpMouse ~ Acts like a human picking up their mouse
- BoredHuman ~ Performs actions a bored human would do
- RandomMovement ~ Moves the mouse randomly
- HoverSkill(Skill, Click) ~ Hovers or clicks on the skill specified. If you want a random skill looked at, put 'random' under Skill Used like HoverSkill('magic', False);

Of course, you can still use the compass functions in anti-ban.

So a good anti-ban procedure would look something like

procedure AntiBan;
var
  X, Y : Integer;
  S : TStringArray;
begin
  S:= ['E', 'S', 'W'];
  case Random(150) of
    0: BoredHuman;
    1: RandomMovement;
    2: PickUpMouse;
    3,4: HoverSkill('random', False); //Hovers over a random skill. You will notice instead of a 1 in 150 chance, this has a 2 in 150 chance, because of the 3,4
    5: MMouse(Random(X), Random(Y), 0, 0);
    6: begin
         MakeCompass(Random(S));
         Wait(2500 + Random(1000);
         MakeCompass('M');
       end;
end;

That's quite simple, but if you don't understand any of it, please let me know.

Richard.

EDIT: Also, in you're typing procedure, you could use

AddMistakes(Orig: string; Chance: Integer)

What is does is randomly add mistakes to the text you are typing. It would be used like

TypeSend(AddMistakes(Message1, 20));

For Chance, 20 - 30 is a good number. The higher the number, the less likely it is that mistakes will be added.

One last thing, you should change your main loop to this:

begin
  SetupSRL;
  ActivateClient;
  repeat
    Autotalker;
  until(IsFKeyDown(9));
  ProgressReport;
end.

What I've done is added SetupSRL so that SRL will work properly, and ActivateClient so that you do not have to change to the RS window yourself. Also, you'll notice I've taken AntiBan; out. Just call this in your Autotalker; procedure. And I've moved ProgressReport; down so that it doesn't get called every time the messages have been typed. I also changed the (False); to (IsFKeyDown(9)); so it will stop once the F9 key has been pressed.

Richard

Thanks Dude.

EDIT: I figured it out.

Now it says:

Line 35: [Error] (16792:23): Type mismatch in script 

Script:

{==================================================}
{================= AutoTalker V1.0 ================}
{==================================================}
{ Press the F9 key to stop the script.             }
{ Thanks to R1ch for help with fixing script.      }
{==================================================}

Program AutoTalker;
{.include SRL/SRL.Scar}

Var
  Messages : Integer;

Const
{=========================================}
  Message1 = (' ');
  Message2 = (' ');
  Message3 = (' ');
  
{=========================================}

Procedure AntiBan;
Var
  X, Y : Integer;
  S : TStringArray;
Begin
  S := ['E', 'S', 'W'];
  Case Random(100) Of
    0: BoredHuman;
    1: RandomMovement;
    2: PickUpMouse;
    3,4: HoverSkill('random', False);
    5: MMouse(Random(X), Random(Y), 0, 0);
    6: begin
         MakeCompass(Random(S));
         Wait(2500 + Random(1000);
         MakeCompass('M');
      end;
end;

Procedure AutoTalker;
Begin
  TypeSend(AddMistakes(Message1, 20));
  Wait(2000 + Random(1000));
  inc(Messages);
  TypeSend(AddMistakes(Message2, 20));
  Wait(1500 + Random(1000));
  inc(Messages);
  TypeSend(AddMistakes(Message3, 20));
  Wait(1750 + Random(1000));
  inc(Messages);
  AntiBan;
End;

Procedure ProgressReport;
Begin
  ClearDebug;
  WriteLn('|==================================================|');
  WriteLn('|               Willow Cutter Report               |');
  WriteLn('|==================================================|');
  WriteLn(' Time Running: ' + TimeRunning );
  WriteLn(' Messages Said: ' + IntToStr(Messages));
  WriteLn('|==================================================|');
  WriteLn('|               Created By: Devoker.               |');
  WriteLn('|==================================================|');
End;

Begin
  SetupSRL;
  ActivateClient;
  repeat
    Autotalker;
  until(IsFKeyDown(9));
  ProgressReport;
End.

I think this is the problem:

Procedure AntiBan;
var
  x, y : Integer;
  S : TStringArray;
begin
  S := ['E', 'S', 'W'];
  case Random(100) of
    0: BoredHuman;
    1: RandomMovement;
    2: PickUpMouse;
    3,4: HoverSkill('random', False);
    5: MMouse(Random(X), Random(Y), 0, 0);
    6: begin
         MakeCompass(S); //you don't need random
         Wait(2500 + Random(1000)); //you forgot another )
         MakeCompass('N');//you shouldn't M be N?
      end;
   end;
end; //You forgot and end;

Edit: I also saw this on the scipt

 WriteLn('|               Willow Cutter Report               |');

?

There we go. All fixed. Version 1 Complete.

I typed that all up on the forum, not in SCAR, so it was inevitable to be a few errors.

procedure AntiBan;
var
  X, Y : Integer;
  C : string;
  
begin
  case Random(150) of
    0: RandomRClick;
    1: BoredHuman;
    2, 5, 7, 35, 143: HoverSkill('Attack', False);
    3: PickUpMouse;
    4: begin
         case Random(3) of
           0: C:= 'E';
           1: C:= 'S';
           2: C:= 'W';
         end;
         MakeCompass(C);
         Wait(2500 + Random(2500));
         MakeCompass('N');
       end;
    6: MMouse(Random(X), Random(Y), 0, 0);
    8: RandomMovement;
  end;
end;

There's a working AntiBan procedure.

EDIT: You need anti-randoms in there.

From: Dark Arcana

Edit: I also saw this on the scipt

 WriteLn('|               Willow Cutter Report               |');

?

what's wrong with that? :o

From: 99_
what's wrong with that? :o

Kind of wierd because this is a Auto Talker.

oh :p ahahha I think he made a willow cutter so he just used the same layout ;]

Yea, I was making a Willow Cutter and then I did use the same layout.

you should differentiate the message 1-3 seconds so it doesn't seem like a bot + some more anti-bans.

Nice script, but for a first script i would have done, like a rs script that actually did a skill or something :D.