#!/usr/bin/perl
use utf8;
#use feature 'unicode_strings';

use Irssi;
use vars qw($VERSION %IRSSI);
#delete $INC{'Zilla.pm'};
use Zilla;
#delete $INC{'Evaluator.pm'};
use Evaluator;

$VERSION = "1.0";
%IRSSI = (
	authors => 'ed',
	contact => 'rizon.net',
	name => 'weeaboo',
	description => 'normalfag assistant',
	license => 'GNU GPL v2 explicitly',
	url => 'http://u3m.net/d/'
);

sub event_privmsg {
	my ($server, $data, $nick, $mask, $target) =@_;
	my ($target, $text) = $data =~ /^(\S*)\s:(.*)/;

	return if ($nick =~ /^hanyuu-/i);
	return if ($nick =~ /^saki`senhime/i);
	return if ($nick =~ /bot$/i);

	return if ($target !~ /^#/);

	if ($text =~ /(literally)/i)
	{
		$server->command("msg $target $1.");
		return;
	}
	if ($text eq 'krwa')
	{
		$server->command("msg $target spirdlaj");
		return;
	}
	if ($text eq 'rawk')
	{
		if ($rawken eq 'y')
		{
		$server->command("msg $target █▀▀▄  ▄▀▀▄  █   █  █ ▄▀     █▀▀▄  ▄▀▀▄  █     █▀▀▀");
		$server->command("msg $target █▄▄▀  █▄▄█  █ ▄ █  █▀▄   N  █▄▄▀  █▄▀█  █     █▀▀ ");
		$server->command("msg $target █  █  █  █   █ █   █  █     █  █  ▀▄▄▀  █▄▄▄  █▄▄▄ ");
		$rawken = 'nope';
		}
	}
	if ($text =~ /(sh|w|c)ould of /i)
	{
		$arg=uc($1);
		tx($server, "msg $target", "$nick, ${arg}OULD'VE as in ${arg}OULD HAVE, \cC4not \cBFUCKING ${arg}OULD OF");
	}
}
Irssi::signal_add('event privmsg', 'event_privmsg');

