You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
379 B
20 lines
379 B
package Speak; |
|
|
|
use Milkbone; |
|
use Win32::OLE qw( EVENTS ); |
|
|
|
my $DirectSS = new Win32::OLE( "{EEE78591-FE22-11D0-8BEF-0060081841DE}" ) or die "$!"; |
|
|
|
sub say |
|
{ |
|
my $say = shift; |
|
$DirectSS->Speak($say); |
|
|
|
while( $DirectSS->{Speaking} ) |
|
{ |
|
Win32::OLE->SpinMessageLoop(); |
|
Win32::Sleep( 100 ); |
|
} |
|
} |
|
|
|
register_hook("msg_in", sub { say("You have a message from $ARGS{-user}"); }); |