SRL Archive - RS Scripts

Ok here it is, this is way easier than the last one and does not require putting the message in 1 by 1 if u saw my last one.lol. here it is:

//Directions
//Set what u would like it to say
//Set how long you would like it to wait until it says again
//hit play
program AutoTalk;

procedure SendText(text: string);
var  i: Integer;
begin
   for i := 1 to Length(Text) do
   begin
     SendKeys(Text[i]);
     Wait(50+random(50));
   end;
   SendKeys(Chr(13));
end;

procedure Talk;
begin
SendText('Hi Wazz Up Man?');//what you want it to say
wait(4000+random(147));//how long until typed again 1000= 1 second
end;

procedure ThankYou;
begin
writeln('-------Auto-Talker-------')
writeln('-----by Diamondhero5-----')
writeln('- I know u will like it -')
writeln('@@##$$  Thank you  $$##@@')
writeln('         ENJOY           ')
end;

begin
ActivateClient
Thankyou
repeat
Talk;
until(false)
end.

where it says SendText('Hi Wazz Up Man?'); with SendText(message);

then at the top, right under 'Program AutoTalk' put this:

const
message = 'Hi Wazz Up Man?';

if u put that then u wouldhave to put SendText(message)

yeah. It would send whatever the variable message is set to.

i dont see y u would do that it more work

yes but then the user doesn't have to look through the whole script to find the settings.

It really doesn't matter for a small script like that, but when they're a few hundred lines, it's quite exhausting to go through a whole script and change it.

o because when u do that it's at the top
ty o and is it more or when u hit change pic to string it takes rly long?

o

here take a look at mine and get some ideas ;)

{============================================================================*
|                                                                            |
| NAME        : Mjordans Simple Autotalker                                   |
| WRITER      : Mjordan                                                      |
| CATEGORY    : Talker                                                       |
| DESCRIPTION : Types So You Wont Have To                                    |
| USAGE       : To Type For You                                              |
| CONTACT     : MSN: [email]Mjordan7468@msn.com[/email]                                     |
|               AIM: mjordan7468                                             |
| NOTES       : To Stop Script Press F12                                     |
|                                                                            |
*============================================================================*
| ______    ___    __                         __                             |
|/\  __ \  / _ \  /\_\   ______   _ ____      \ \    ______     ___          |
|\ \ \ \ \/ / \ \ \/_/  /\  __ \ /\`'___\ _____\ \  /\  __ \  /' __`\        |
| \ \ \ \  / \ \ \   __ \ \ \ \ \\ \ \/  /\  __ \ \ \ \ \_\ \ /\ \/\ \       |
|  \ \ \ \/   \ \ \ /\ \ \ \ \_\ \\ \ \  \ \ \_\   \ \ \  __ \\ \ \ \ \      |
|   \ \_\      \ \_\\ \ \ \ \_____\\ \_\  \ \_____\ \ \ \_\ \_\\ \_\ \_\     |
|    \/_/       \/_/ \ \ \ \/_____/ \/_/   \/_____,\_\ \/_/\/_/ \/_/\/_/     |
|                 __  \ \ \                                                  |
|                /\ \__\/ /                                                  |
|                \ \_____/                                                   |
|                 \_____/                                                    |
|                                                                            |
*============================================================================*
|                                                                            |
|      ++++++++++++[Rs2][SRL] Autotalker [SRL][Rs2]++++++++++++              |
|                                                                            |
*============================================================================*
|                             INSTRUCTIONS                                   |
*============================================================================*
|                                                                            |
| 1.Type In What You want To Say On Lines 59-62                              |
| 2.Drag Crosshair To Runescape Client                                       |
| 3.Press Run Button                                                         |
|                                                                            |
*============================================================================*
|                             Version History                                |
*============================================================================*
|                                                                            |
|    Version 1.0 - Completed And Released                                    |
|    Version 2.0 - Reworked To Make It Less Dectable                         |
|                  And Made Using SRL                                        |
|    Version 2.5 - Just Added A Few Little Things Here And There             |
|                                                                            |
*============================================================================|
|                                                                            |
|        !!!I Am NOT Responsible If Any Of Your Characters Get Banned!!!     |
|                                                                            |
*============================================================================}


program Autotalker;
{.Include SRL/SRL.Scar}
{.include srl\srl\extended\xtext.scar}


const
 //type the messages you want to say here

 msg1 ='white:wave:selling coal 250ea';
  msg2 ='selling coal 250ea-mjordan';
   msg3 ='white:coal 250gp each!!!';
    msg4 ='selling coal~mjordan~';

procedure credits;
begin
writeln('<========================================================>')
  writeLn('             Thankyou for using Mjordans')
    writeLn('                  Simple Autotalker.')
   writeLn('Big thanks to Rons Autotalker Where I Got Some Ideas From,')
  writeLn('All Of The Tuts With Which I Used That Helped Me Lots,')
writeLn('And Most Of All Thanks To Kaitnieks For Creating SCAR')
writeLn('<========================================================>')
end;


//procedure SendMyText(Text: String);
//end;

procedure RandomTalk;
begin
  case Random(4) of
   0 : SendMyText(msg1);
   1 : SendMyText(msg2);//randomly types the messages. is very human like.
   2 : SendMyText(msg3);
   3 : SendMyText(msg4);
 End;
End;



begin
setupsrl;
 credits;
  activateclient;
   wait(200);
   repeat
 RandomTalk;
Wait(2000+Random(3000));
Until(IsFKeyDown(12))//if you want to end the script just press F12
End.

why is the SendMyText procedure commented out? Is it from SRL?

From: Smartzkid
why is the SendMyText procedure commented out? Is it from SRL?

yes its SendMyText is from SRL. its a very cool talking procedure

Ohh, I see. I'll test it out…
Are there any variables you need to set up for it? Typing speed, etc?

From: Smartzkid
Ohh, I see. I'll test it out…
Are there any variables you need to set up for it? Typing speed, etc?

nope, just read the instructions in the script ;) and it doesnt have any anti randoms because its meant for use when the player is at the computer. if you want to use it afk(say like spamming w/ a lvl 3 at the rimmington yew autoers) then i could add anti randoms in it if you want.

Mjordon ur talker is good, it was a good idea to have 4 messages and say them randomly