use strict;
use Irssi qw( settings_add_str settings_get_str );
use vars qw($VERSION %IRSSI);

$VERSION = "0.1";
%IRSSI = (
	  authors     => "Ilkka Kaakkola",
	  contact     => "xenic\@saunalahti.fi",
	  name        => "AutoWat9000",
	  description => "Kilo wat, Mega wat?",
	  license     => "Public Domain"
	  );

sub wat {
    my ($server, $data, $nick, $mask, $target) = @_;
    unless ($target eq Irssi::settings_get_str('autowat')) {
	return;
    }
    my $rand = int(rand(100));
    unless ($rand < Irssi::settings_get_str('autowat_chance')) {
	return;
    }
    if ($data =~ /wat\?/i) {
	return;
    }
    $server->command("/msg $target $nick: wat?");
}
Irssi::settings_add_str( 'autowat', 'autowat', 'Please set channel' );
Irssi::settings_add_str( 'autowat', 'autowat_chance','5' );
Irssi::signal_add('message public', 'wat');
Irssi::print("AutoWat9000.pl by xenic loaded. Please use /set autowat #channel to enable. Use /set autowat_chance to increase/reduce wats.");