ReaImDown Posted March 16, 2008 Share Posted March 16, 2008 I was bored as shit... hah CODEHotKeySet("{ESC}", "_Quit") $oSp = ObjCreate("SAPI.SpVoice") for $x = 99 to 1 step -1 if $x = 1 Then $oSp.Speak($x & " bottle of beer on the wall, "& $x & " bottle of beer. take one down pass it around no more bottles of beer on the wall...send someone out for a couple more two fours.") Else $oSp.Speak($x & " bottles of beer on the wall, "& $x & " bottles of beer. take one down pass it around " & ($x -1) & " bottles of beer on the wall.") EndIf Next func _Quit() Exit EndFunc [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
JustinReno Posted March 16, 2008 Share Posted March 16, 2008 Haha, never would have thought of it! Link to comment Share on other sites More sharing options...
Tomb Posted March 16, 2008 Share Posted March 16, 2008 very nice! i was unaware that i could do speech with autoit. can the voice be customized? Link to comment Share on other sites More sharing options...
JustinReno Posted March 17, 2008 Share Posted March 17, 2008 Duh. Link to comment Share on other sites More sharing options...
ReaImDown Posted March 17, 2008 Author Share Posted March 17, 2008 Duh.hah, glad you like it, I told u, I was bored [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Bert Posted March 17, 2008 Share Posted March 17, 2008 (edited) expandcollapse popupGlobal $talk = ObjCreate("SAPI.SpVoice") _talk("hey dude?") sleep(400) _talk("I have a song I want to sing to you") sleep(400) _talk("Are you ready?") sleep(1000) For $i = 100 to 1 step -1 _Talk($i&" Bottles of beer on the wall") _Talk($i&" Bottles of beer! ") _Talk("Take-one down? passit around!") _Talk("now theres only"&$i-1&"Bottles of beer on the wall.") Sleep(100) if $i = 100 then sleep(1000) _talk("I bet you wish I stop singing this") sleep(1000) endif if $i = 99 then sleep(1000) _talk("I know") sleep(500) _talk("Shut the f up") sleep(500) _talk("too bad") sleep(1000) endif if $i = 98 then sleep(1000) _talk("You think I'm going to boar you to death") sleep(1000) _talk("Oh goody") sleep(1000) endif if $i = 97 then sleep(1000) _talk("Did I tell you how much beer I had?") sleep(1000) _talk("I didn't?") sleep(1000) _talk("Then let me tell you.") sleep(1000) endif if $i = 96 then sleep(1000) _Talk("I'm tarting to et drunk") sleep(2000) _Talk("ninty sixx fotlles of beeeeeer on the waaaaaaaaaaaaall") sleep(1500) _Talk("ninty sixx fotlles of beeeeeer") sleep(1000) _Talk(" Taaaaaaaaaaaaaaaaake one dowwwwwwn, , oh crap") sleep(500) _Talk(" IIIIIII whoped it") sleep(5000) _Talk("II hink II'mm foing to ye sick") sleep(2000) _talk("barf") exit EndIf Next Func _Talk($Text, $Rate, $Vol) $voice.Rate = $Rate $voice.Volume = $Vol $voice.Speak($Text) EndFunc ;==>Speak Edited March 20, 2008 by Volly The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
ReaImDown Posted March 18, 2008 Author Share Posted March 18, 2008 expandcollapse popupGlobal $talk = ObjCreate("SAPI.SpVoice") _talk("hey dude?") sleep(400) _talk("I have a song I want to sing to you") sleep(400) _talk("Are you ready?") sleep(1000) For $i = 100 to 1 step -1 _Talk($i&" Bottles of beer on the wall") _Talk($i&" Bottles of beer! ") _Talk("Take-one down? passit around!") _Talk("now theres only"&$i-1&"Bottles of beer on the wall.") Sleep(100) if $i = 100 then sleep(1000) _talk("I bet you wish I stop singing this") sleep(1000) endif if $i = 99 then sleep(1000) _talk("I know") sleep(500) _talk("Shut the f up") sleep(500) _talk("too bad") sleep(1000) endif if $i = 98 then sleep(1000) _talk("You think I'm going to boar you to death") sleep(1000) _talk("Oh goody") sleep(1000) endif if $i = 97 then sleep(1000) _talk("Did I tell you how much beer I had?") sleep(1000) _talk("I didn't?") sleep(1000) _talk("Then let me tell you.") sleep(1000) endif if $i = 96 then sleep(1000) _Talk("I'm tarting to et drunk") sleep(2000) _Talk("ninty sixx fotlles of beeeeeer on the waaaaaaaaaaaaall") sleep(1500) _Talk("ninty sixx fotlles of beeeeeer") sleep(1000) _Talk(" Taaaaaaaaaaaaaaaaake one dowwwwwwn, , oh crap") sleep(500) _Talk(" IIIIIII whoped it") sleep(5000) _Talk("II hink II'mm foing to ye sick") sleep(2000) _talk("barf") exit EndIf Next u missed func _talk() [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
BrettF Posted March 19, 2008 Share Posted March 19, 2008 Func _Talk ($text) $talk.Speak ($text) Endfunc should work Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
Kiesp Posted March 19, 2008 Share Posted March 19, 2008 something is wrong with my computer... i keeps saying blah blah blah xD i know it sounds like a joke.. but it actually does, i think its blah its says ^^ http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D Link to comment Share on other sites More sharing options...
ReaImDown Posted March 20, 2008 Author Share Posted March 20, 2008 Func _Talk ($text)$talk.Speak ($text)Endfuncshould workyup yup, [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
ludocus Posted March 20, 2008 Share Posted March 20, 2008 Wow cool,.. I made this: HotKeySet("{ESC}", "_Quit") global $praat $oSp = ObjCreate("SAPI.SpVoice") Input() Func Input() $praat = Inputbox ( "Text", "Please type a text to be spoken:" ) if @error then exit talk() EndFunc Func talk() $oSp.Speak($praat) if @error then exit Input() EndFunc func _Quit() Exit EndFunc Link to comment Share on other sites More sharing options...
Bert Posted March 20, 2008 Share Posted March 20, 2008 fixed. Forgot to put that in when I cut and pasted last time. The Vollatran project My blog: http://www.vollysinterestingshit.com/ Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now