Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: (nrd) St. Valentine's Day preperation script

by newrisedesigns (Curate)
on Jan 28, 2003 at 13:51 UTC ( #230577=note: print w/ replies, xml ) Need Help??


in reply to St. Valentine's Day preperation script

Using batkins' pearl of wisdom...

#tested - works for me (win2k) use Win32::OLE qw( EVENTS ); my $lovespeak = new Win32::OLE( "{EEE78591-FE22-11D0-8BEF-0060081841DE +}" ) or die "$!"; my $self = 'Monk'; # you my $chicks_name = 'Chick'; # her my @cheese = ( "hey $chicks_name\n\n I hope everythings going well today.\n I just wa +nted to drop you a line.\n\nLove always,\n\t$self", "Baby,\n I just w +anted you to know how much I love you. Youre great!\n\nLove,\n\t$self +", "I've been thinking about you all day. I can't wait to come home t +o you.\n talk to ya later,\n\t$self", ); my @subjects = ( "hey babe...", "just wanted to say hi...", "oh I love you...", ); my $random = int(rand($#subjects)); my $say = $subjects[$random]; $random = int(rand($#cheese)); $say .= $cheese[$random]; $lovespeak->Speak($say); while( $lovespeak->{Speaking} ){ Win32::OLE->SpinMessageLoop(); Win32::Sleep( 100 ); }

Nothing says "I wuv you" like a robotic voice!

"What is this emotion you call 'wuv'?"
"Surely you mean, 'love'?"
"No, 'wuv', with an Earth double-u."
"This confuses and enrages us!"
-Futurama

Happy St. Valentine's Day.

Update: removed the "+ 1" from the int rand.

John J Reiser
newrisedesigns.com


Comment on Re: (nrd) St. Valentine's Day preperation script
Download Code
Re: Re: (nrd) St. Valentine's Day preperation script
by KyleYankan (Acolyte) on Jan 29, 2003 at 21:57 UTC
    Hey is there a way i can use that on win98se computers? I dunno if it's my compiler, or what..

      I guess you do not have the "DirectSpeechSynthesis Module" (%Systemroot%\speech\XVoice.dll) on the win98se. GOK if you can install that there and what is that part of. (Search for that {EEE785...} in your registry).

      Jenda

        I have it isntalled there, and the registry key exists. I'm going to go look on the M$ knowledge base for something. None of the examples that came with the software work either.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://230577]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2014-10-24 11:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (131 votes), past polls