Ok here it is best one i've made in all my years of doing this(lol like 2 days).
Code://Directions //Set what u would like it to say(line 34) //Set how long you would like it to wait until it says again(line 35) //hit play program AutoTalk; procedure SendText(text: string); var i: Integer; begin for i := 1 to Length(Text) do begin SendKeys(Text[i]); Wait(50+random(50)); end; SendKeys(Chr(13)); end; procedure namechange(wstatus :String); begin status(wstatus); GetApplication.Title:=wstatus; GetSelf.Caption:=wstatus; end; procedure nc4(wstatus:String; time:Integer); begin namechange(wstatus); wait(time); end; procedure Talk; begin SendText('cyan:slide:dude i rok!!!');//what you want it to say wait(4000+random(147));//how long until typed again 1000= 1 second end; procedure nc(wstatus:String); begin nc4(wstatus, 250); end; procedure flashx; begin nc4('Auto-Talker',200); Wait(383) nc4('By Diamondhero5',200); Wait(383) nc4('Auto-Talker',200); Wait(383) nc4('By Diamondhero5',200); Wait(383) nc4('Auto-Talker',200); Wait(383) nc4('By Diamondhero5',200); Wait(383) nc4('Auto-Talker',200); Wait(383) nc4('By Diamondhero5',200); Wait(383) nc4('Auto-Talker',200); Wait(383) nc4('By Diamondhero5',200); end; procedure Animate; begin nc(' '); nc('A'); nc('Au'); nc('Aut'); nc('Auto'); nc('Auto- '); nc('Auto-T'); nc('Auto-Ta'); nc('Auto-Tal'); nc('Auto-Talk'); nc('Auto-Talke'); nc('Auto-Talker'); nc('--------------'); nc('Auto-Talker'); nc('--------------'); nc('By Diamondhero5'); flashx; nc4('Auto-Talker - By Diamondhero5',5); end; procedure ThankYou; begin writeln('-------Auto-Talker-------') writeln('-----by Diamondhero5-----') writeln('- I know u will like it -') writeln('@@##$$ Thank you $$##@@') writeln(' ENJOY ') end; begin Animate ActivateClient Thankyou repeat Talk; until(false) end.


Reply With Quote









Please stop making new threads and heed Mjordan's warning
