W
wmd911
Guest
Auto TalkerHere 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.
Don't blame me if I do anything wrong.
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.
Auto Talker