EDIT:CHANGED TO VERSION 7.0(ADDED RANDOMNESS)Here is my lastest Auto talker, able to say up to 4 things!
Code://Directions //Set what u would like it to say(lines 9-12) //Set how long until says next message(line 47) //hit play //press F12 to stop program AutoTalk; const message1='cyan:selling full rune'; message2='white:selling full rune'; message3='Green:selling fulll rune'; message4='red:selling full rune'; 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 case random(4) of 0:SendText(message1); 1:SendText(message2); 2:SendText(message3); 3:SendText(message4); end; wait(2124+random(241)); end; procedure nc(wstatus:String); begin nc4(wstatus, 250); end; procedure flashx; begin nc4('Auto-Talker',200); nc4('By Diamondhero5',200); nc4('Auto-Talker',200); nc4('By Diamondhero5',200); nc4('Auto-Talker',200); nc4('By Diamondhero5',200); nc4('Auto-Talker',200); nc4('By Diamondhero5',200); nc4('Auto-Talker',200); 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(IsFKeyDown(12)) end.


Reply With Quote
















