SRL Archive - RS3 Outdated / Broken Scripts

Ok, so this is my first autotyper! Come to think of it, my first script! Fairly straight forward, its got a 100 milisecond random on each word/sentance!
Please Enjoy!
Any ideas for improvements would be great aswell!

//////////////////////////////////////////////////////
//////            First autotalker!                  //////
//////           Created by Bell1313             //////
//////           Credit to Bebemycat2           //////
//////           for the great tutorial!           //////
//////           Ilove8it aswell!                   //////
/////////////////////////////////////////////////////

v.0.1 - Could easily get banned
v.0.2 - Added 0.2 of a second randoms, same as above really
v.0.3 - Added the "f" keyes!!!!
More coming soon!

Look's good, good job

If you are using SRL and typesend, there is a random type speed, human like. And for your next version, maybe make it so once you hit a specified key, it will type the message.

Good job

1.5 sec is a bit less for typing for example:
"red:shake:buying 3 pray pots, 1 range pot and a bow string "
Don't you think? And like Fourscape said, try to make it send when pressing for ex. F2

procedure F2Message;
begin
if (IsFKeyDown(2)) then
begin
w1;
end;
end;

with this, when you press F2, the script is going to send the 'w1' >>> your const with the message.
Good luck!

Thanks for the comments! Ill fix it up ill be back!

Hey Ill make an auto talker just for you so you can learn from it… give me 20 minutes.

Ok, Thanks ;)

It's not very complicated…

program testautotalker;
{.include SRL\SRL.SCAR}


//---------------------------------------------------------------//
Const
Phrase1 = 'Replace'; //This would be phrase 1. Hit F5 to say.
Phrase2 = 'Replace'; //This would be phrase 2. Hit F6 to say.
//---------------------------------------------------------------//


//---------------------------------------------------------------//

Procedure AutoType;
Begin
 If (IsFKeyDown(5)=True) then
  Begin
   TypeSend(Phrase1)
    Wait(2000+random(1000))
     end;
     Begin
    If (IsFKeyDown(6)=True) then
   Begin
  TypeSend(Phrase2)
 Wait(2000+Random(1000))
end;
end;
end;
//---------------------------------------------------------------//

begin
SetupSrl;
//---------------//
Repeat
AutoType;      //This part will go on untill you stop script, so you can send as many messages as u want
Until(False);
//---------------//
end.

And, if you wanted to add simple colors to the text…

program testautotalker;
{.include SRL\SRL.SCAR}


//---------------------------------------------------------------//
Const
Phrase1 = 'Replace'; //This would be phrase 1. Hit F5 to say.
Phrase2 = 'Replace'; //This would be phrase 2. Hit F6 to say.
Color   = 'Cyan:'; //This is the color you will use, change or leave blank.

//---------------------------------------------------------------//


//---------------------------------------------------------------//

Procedure AutoType;
Begin
 If (IsFKeyDown(5)=True) then
  Begin
   TypeSend(Color+Phrase1)
    Wait(2000+random(1000))
     end;
     Begin
    If (IsFKeyDown(6)=True) then
   Begin
  TypeSend(Color+Phrase2)
 Wait(2000+Random(1000))
end;
end;
end;
//---------------------------------------------------------------//

Begin
 SetupSrl;
  Repeat
  AutoType;
 Until(False);
end.

Ok, ill put this sorta thing in my script and ill put it on in a few minutes! Thanks man!

Np. You have to start learning somewhere, might as well be from me, but remember, "I" am still learning =D

yeah, got it mate, check it out, i change the link so it should be v.0.3 :D

What sort of thing do i need to qualify as a SRL member, the guide is quite vague.

The guide is not vague… folow it and you will be an SRL member… An auto talker won't get you in though if THAT was the root of your question.

The guide is not vague… folow it and you will be an SRL member… An auto talker won't get you in though if THAT was the root of your question.

///Change to true below if you want it to say it only once///
 begin
 ActivateClient;
 repeat
 autotlk;
 until(false)//change to true if you want it to say only one time.
end.

If you changed False to True, it wouldn't type anything. Just to clarify. And since I helped you so much im SOOOO glad you added me to credits =P

Good luck on next version. What are your plans?

auto login and then autotype, it will log out on the f9 key, it needs help, its in the help section.

Here ya go, just read instructions in green =D

//////////////////////////////////////////////////////
//////            First autotalker!             //////
//////           Created by Bell1313            //////
//////           Credit to Bebemycat2           //////
//////           for the great tutorial!        //////
//////           Ilove8it aswell!               //////
//////////////////////////////////////////////////////
//Dont forget to drag the crosshair on at the beggining!
//Dont think it will ban! Ive used it and no bans so far!
//Read instuctions below. (in green) //
//FILL IN PLAYER FORM!!!
//F7 Logs in
//F8 logs out


program Autotalker;
{.include SRL/SRL.scar}
const
w1='';//type what ever you want it to say between the ''!!
w2='';//Same here! If you dont want it to say anything, dont put anything!
w3='';//Same here!
w4='';//same here

Procedure DeclarePlayers;
begin

     HowManyPlayers  := 2;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := 0;

     Players[0].Name      := 'UserName';
     Players[0].Pass      := 'Password';
     Players[0].Nick      := 'Nickname';
     Players[0].Active    := True;

 end;



//////////////////////Don't Change After here//////////////////////
procedure Autotlk;
begin
If (IsFkeyDown(1)=True) then
 Begin
  Typesend(w1)
   Wait(2000+random(1000))
    end;
  Begin
   If(IsfKeydown(2)=true) then
    begin
     Typesend(w2)
      Wait(2000+random(1000))
       end;
   Begin
    If(IsfKeydown(3)=true) then
      begin
       Typesend(w3)
        Wait(2000+random(1000))
         end;
     Begin
      If(IsfKeydown(4)=true) then
       begin
        Typesend(w4)
         Wait(2000+random(1000))
          end;
      Begin
       If(IsFKeyDown(7)) then
        Begin
Wait(100+random(100))        
        LogInPlayer;
          end;
           end;
       Begin
        If(IsFKeyDown(8)) then
         Begin
Wait(100+random(100))
          LogOut;
          end;
        end;
      end;
    end;
  end;
end;

 begin
 ActivateClient;
 SetupSrl;
 DeclarePlayers;
 repeat
 autotlk;
 until(false)
end.