SRL Archive - RS Scripts

~~~Hey321's Auto-Talker~~~
~~~Works with RS2~~~
~~~Squig.TxT Required~~~

program MessageWriter;
{.include Squig.txt}

const
Message1=('~~~This is Hey321s Auto-Talker~~~');// how many times to repeat
waittime=(3000);//how long to wait
NumLoops=1;//how many times to repeat
{Hi this is Hey321 here and this is Hey321's Auto-Talker SCAR (Shit Compared To
AutoRune) This is a free script! If you bought it you got RIPPED OFF. Also i am
currently learning how to script with SRL (Scar Resource Library). If you have
a SRL TuT then it would be greatly appriecated if you could PM me where you got
this from! Ehora.co.nr GO NOW!}

var
 MessagesTyped: Integer;

procedure MessageSender;
begin
SendKeysHuman (Message1 + chr (13));
end;

procedure TimeToWait;
begin
     wait (waittime + random (250));
end;

procedure Thanks;
begin
writeln('~~~Thanks for using ~~~Hey321s~~~ Talker~~~');
writeln('~~~~~~Hey321~~~ thanks you for using this Auto-Talker');
end;

begin
repeat
     MessageSender;
     TimeToWait;
     Thanks;
     MessagesTyped:= MessagesTyped + 1;wait(WaitTime + random (50));
     writeln('~~~Typed '+inttostr(MessagesTyped)+' Messages For You~~~');
     until(MessagesTyped = NumLoops);
     wait(WaitTime + random (50));
end.

LOL… Nowadays, autotalkers are simple… Urs too complcated… Check this out
//M Family's product//
//Edit messages, put effects easily//
//best & shortest auto talkers in the world!!//
//By 11 year old boy…That;s why it sucks
program OBautotalkerv11;
begin
writeln('Thank You for using M Familys product…')
repeat
wait(1000);
sendkeys('');
wait(200);
sendkeysvb('{ENTER}',true)
wait(1000);
sendkeys('');
wait(200);
sendkeysvb('{ENTER}',true)
until(false)
end.

i took like 10secs to make a script shorter and same as urs!
But good job!@!

sendkeys is very detectable. I'm not using a very detectable key sender. Infact if i wanted to i could post an updated version thats even less detecable.

It's no difference adding a sendkeyshuman… I don really use much includes :)