Sign in to follow this  
Followers 0
ReaImDown

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

12 posts in this topic

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


[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]

Share this post


Link to post
Share on other sites



Haha, never would have thought of it!

Share this post


Link to post
Share on other sites

very nice!

i was unaware that i could do speech with autoit.

can the voice be customized? :)

Share this post


Link to post
Share on other sites

Duh.

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

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 by Volly

Share this post


Link to post
Share on other sites

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


[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Func _Talk ($text)

$talk.Speak ($text)

Endfunc

should work

yup yup,


[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0