saint patty's day.. 99 bottles of beer on the wall

[ReaImDown]

I was bored as shit... hah

CODE

HotKeySet("{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

[JustinReno]

Haha, never would have thought of it!

[Tomb]

very nice!

i was unaware that i could do speech with autoit.

can the voice be customized?

[JustinReno]

Duh.

[ReaImDown]

Duh.

hah, glad you like it, I told u, I was bored

[Bert]

expandcollapse popup

Global $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

[ReaImDown]

expandcollapse popup

Global $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()

[BrettF]

Func _Talk ($text)

$talk.Speak ($text)

Endfunc

should work

[Kiesp]

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 ^^

[ReaImDown]

Func _Talk ($text)

$talk.Speak ($text)

Endfunc

should work

yup yup,

[ludocus]

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

[Bert]

fixed. Forgot to put that in when I cut and pasted last time.