Anonymous

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

$VERSION = "1.0";
%IRSSI = (
        authors => 'Jonas Bolldén',
        contact => 'jonas.bollden@gmail.com',
        name => 'OnSay',
        description => 'This script answers to specific sentences',
        license => 'GNU GPL v2 or later',
        url => ''
    );

sub event_onsay {
      my ($server, $data, $nick, $mask, $target) = @_;
      my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;
      if($text =~ /var (är|e|ä) fjant/i) {
              $response = "HÄÄR MAMMA!";
            } elsif($text =~ /tomte/i) {
                    $response = "ööhh hööh en hel tomtearmé!";
                  } elsif($text =~ /archangel rule(s|z)/i) {
                          $response = "Jag vet!";
                        }
      $server->command("msg $target $response");
      $response = "";
    }
Irssi::signal_add('event privmsg', 'event_onsay');