use Irssi;
use Irssi::Irc;
use strict;
use warnings;
use vars qw($VERSION %IRSSI);
$VERSION="0.0.1";
%IRSSI = (
	authors	=> 'johnny',
	contact	=> 'johnny@netvor.sk',
	name	=> 'luigi',
	description	=> 'want some pizza? ;p',
	license	=> 'BSD',
	url	=> 'http://netvor.sk/~johnny/',
);

sub get_pizza {
	my ($server, $msg, $nick, $addr, $target) = @_;
	
	$target = $nick if ( ! $target );
	$nick = $server->{'nick'} if ($nick =~ /^#/);
	$target = lc($target);

	if ( ($msg =~ /\!pizza/ ) ) {
		my $cmd;
		my $uid;
		my @myPizza = (
			"Margerita [1] - zaklad,syr",
			"Cardinale [2] - zaklad,syr,sunka",
			"Funghi [3] - zaklad,syr,samiony",
			"Salami [4] - zaklad,syr,salama ",
			"Prosciuto Funghi [5] - zaklad,syr,sunka,sampiony ",
			"Vegetariana [6] - zaklad,syr,sampiony,articoky,zelenina ",
			"Bolognese [7] - zaklad,syr,mäsova omacka ",
			"Hawai [8] - zaklad,syr,sunka,ananas ",
			"Quatro Stagione [9] - zaklad,syr,sunka,sampiony,articoky ",
			"Prosciutto Uovo [10] - zaklad,syr,sunka,kukurica,vajicko ",
			"Provinciale [11] - zaklad,syr,sunka,slanina,kukurica,feferony ",
			"Capriciosa [12] - zaklad,syr,sunka,sardinky,sampiony,olivy,articoky ",
			"Al Tono [13] - zaklad,syr,tuniak,cibula ",
			"Calzone-prelozena [14] - zaklad,syr,sunka,articoky,olivy ",
			"Niva [15] - zaklad,syr,syr niva,sunka,sampiony ",
			"Rusticana [16] - zaklad,syr,sunka,articoky,olivy,vajce ",
			"Fruity di Mare [17] - zaklad,syr,morsky koktail ",
			"Udinise [18] - zaklad,syr,udeny syr,olivy,spargla ",
			"California [19] - zaklad,syr,sunka,kukurica,kapari ",
			"Party [20] - zaklad,syr,klobasa,uhorky,cibula,vajce ",
			"Luigi [21] - zaklad,syr,sunka,salama,olivy,articoky,bar. rohy,kukurica,kapari ",
			"Diavola [22] - zaklad,syr,sunka,leco,tabasco ",
			"Americana [23] - zaklad,syr,sunka,articoky,feferony,sampiony,kukurica ",
			"Quatro Formagi [24] - zaklad,syr - 4 druhy ",
			"Chiken [25] - zaklad,syr,kuracie mäso,kukurica,sampiony ",
			"Sombrero [26] - zaklad,syr,mexicka omacka ",
			"Rodendo [27] - zaklad,syr,klobasa,sampiony,olivy ",
			"Valencia [28] - zaklad,mozzarela,paradajky,sunka,cierne olivy ",
			"Ital Speck [29] - zaklad,syr gorgonzola,talian. spek,olivy ",
			"Brokolica [30] - zaklad,brokolica,kukurica,syr,paradajky ",
			"ZOMG11111... Liguere (50cm) [31] -  zaklad,syr,3x pridavok podla vyberu (1800g)"
		);

		my $t_ord = ord($nick);
		my $t_salt = int(`date "+%Y%m%d"`);
		my $t_srand = ($t_ord * $t_salt);
		srand($t_srand);

		my $t_rand1 = int(rand(31));
		my $t_rand2 = int(rand(31));
		my $t_rand3 = int(rand(31));
		#$server->command("/MSG $target DEBUG: ord=$t_ord salt=$t_salt srand=$t_srand rand={ $t_rand1 $t_rand2 $t_rand3 }");

		$cmd = $myPizza [$t_rand1];

		$server->command("/MSG $target $nick, dnes si daj $cmd");
	}


}

Irssi::signal_add_last("message own_public", "get_pizza");
Irssi::signal_add_last("message public", "get_pizza");