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!
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)//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.


Reply With Quote