Auto Talker

Here is a pretty dumb auto-talker. This is my first script so please don't laugh. I added a link if you would like to use that instead.

Code:

{Ananymous's Auto Talker
Version 1
Created by Ananymous
This just talks, and does nothing else.
Set up lines 14, 15, and 16.
this can be distributed for free
!!!!!!THIS IS NOT UNDETECTABLE!!!!DO NOT USE IT ON YOUR MAINS!!!!}
program AutoTalker;
var
   times:Integer;
   letters:String;
   current:Integer;
   w:Integer;
procedure start;
begin
Cleardebug;
          letters:=('Hello!');     // Put here wat you want is to say
          times:=5 + random (3);   // Put here how many times the script should say things
          w:=3000;                 // put here the time delay between each time it says things(Hint: this is im milliseconds so 1 sec equals 1000 millisec).
          current:=0;              // DONT MESS WITH THIS!
writeln (' _   _   _ _ _   _ ');
writeln ('| |_| | |_   _| | |');
writeln ('|  _  |  _| |_  |_|');
writeln ('|_| |_| |_ _ _| |_|');
end;
procedure type1;
begin
Clickmouse (200, 200, true)
SendKeys (chr(13));
repeat
SendKeys (letters);
wait (300 + random (300))
SendKeys (chr (13))
current:= current + 1;
wait (w + random (500));
until (times=current);
end;

begin
start
wait (300)
type1
end.

Don't blame me if I do anything wrong.

 

um this guy told me send keys was detectable so use TypeSend instead good script btw

 

Lol yea uhm i also used it once, because TypeSend doesn't types numbers for me...

 

Wow thx amn your script was very help full its great!!!!

 

Sorry to say but it's actually not that good...