Jump to content
Sign in to follow this  
ReaImDown

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

Recommended Posts

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


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

Share this post


Link to post
Share on other sites
JustinReno

Haha, never would have thought of it!

Share this post


Link to post
Share on other sites
Tomb

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
JustinReno

Duh.

Share this post


Link to post
Share on other sites
ReaImDown

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]

Share this post


Link to post
Share on other sites
Bert

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
ReaImDown

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


http://www.autoitscript.com/forum/index.php?showtopic=69911 <-- Best hacker ever :D

Share this post


Link to post
Share on other sites
ReaImDown

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  

×