use Irssi;
use vars qw($VERSION %IRSSI);

$VERSION = "1.0";
%IRSSI = (
    author => 'Maxime Ritter',
    contact => 'ritter\@efrei.fr',
    name => 'rms',
    description => 'Un simulateur de RMS',
    license => 'GNU GPL v2 or later',
    url => 'http://maxime.ritter.eu.org/'
);

sub event_privmsg {
my ($server, $data, $nick, $maskr, $target) =@_;

	sleep 1;
	
	if( $data =~ /(java|qmail|flash|mp3)/i )	{
		Irssi::active_win->command( "/say $1 ça pue c'est pas libre");
	}
	
	if( $data =~ /(aol|caramail)/i )	{
		Irssi::active_win->command( "/say $1 sucks");
	}
	
	if( $data =~ /(sgi|ipv6)/i )	{
		Irssi::active_win->command( "/say $1 > ces geeks on devrait les empecher de vivre");
	}
	
	if( $data =~ /est.ce que|comment|où|dites/i )	{
		Irssi::active_win->command( "/say http://www.google.com est ton ami");
	}


}


Irssi::signal_add('event privmsg', 'event_privmsg');