use Irssi;
use strict;
use vars qw($VERSION %IRSSI); 
$VERSION = "0.1";
%IRSSI = (
        authors         => "Torbjörn \'Azoff\' Svensson",
	contact         => "azoff\@se.linux.org",
	name            => "play-wave",
	description     => "Plays wave when highlighted",
	license         => "GNU GPLv2",
	changed         => "Thu Aug 26 21:31:36 CET 2004"
						
);
my ($player, $options, $file) = ("aplay", "", "/home/azoff/untie.wav");

sub sig_play {
  my ($dest, $text, $stripped) = @_;

  my $window = Irssi::active_win();

  #if (($dest->{level} & MSGLEVEL_HILIGHT) && ($dest->{level} & MSGLEVEL_PUBLIC) && 
  #     ($window->{refnum} != $dest->{window}->{refnum}) && ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) {
  if (($dest->{level} & MSGLEVEL_HILIGHT) && ($dest->{level} & MSGLEVEL_PUBLIC) && 
       ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0) {
    #qw($player $options $file &);
    Irssi::print(">> puff puff");
  }
}

Irssi::signal_add('print text', 'sig_play');