diamondhero5
2007-02-18 20:06:30
Ok here it is, this is very differant than my last 2 because it does just type it all at once then send, it types it letter by letter almost like a person. You can change the typing speed and slow it down. Here it is!
//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)//If you make this small it will type faster and bigger slower
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.