dude i made it type it one by one, test it out if u dont get what i mean it rox!!!
Code:
//Directions
//Set what u would like it to say(line 16)
//Set how long you would like it to wait until it says again(line 17)
//hit play
program AutoTalk;
procedure OpenRSWindow;//this is to open the rs window(it must be the one to left)
begin
MoveMouse(106,650);
Wait(534);
ClickMouse(169,751,true);
end;
procedure Talk;
begin
SendKeys('H');// what you would like it to say letter by letter use spaces
wait(284)
SendKeys('e')
wait(284)
SendKeys('l')
wait(284)
SendKeys('l')
wait(284)
SendKeys('o')
wait(284)
SendKeys(',')
wait(284)
SendKeys('h')
wait(284)
SendKeys('o')
wait(284)
SendKeys('w')
wait(284)
SendKeys(' ')
wait(284)
SendKeys('r')
wait(284)
SendKeys(' ')
wait(284)
SendKeys('u')
wait(284)
SendKeys('?'+chr(13))
wait(5000+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
OpenRSWindow
Thankyou
repeat
Talk;
until(false)
end.