Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

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!"

Happy St. Valentine's Day.

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

John J Reiser

Replies are listed 'Best First'.
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).


        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?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://230577]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2017-10-17 21:34 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (238 votes). Check out past polls.