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	=> 'duha',
	description	=> 'duha',
	license	=> 'BSD',
	url	=> 'http://netvor.sk/~johnny/',
);

sub cmd_duha {
	my ($data, $server, $witem) = @_;
	if (!$server || !$server->{connected}) {
		Irssi::print ("not connected");
		return;
	} 
	my $cmd;
	# 0 - white
	#1
	my @myColors = ("5","6","13","2","12","11","10","3","9","8","7","4","5");
	my $iter = 0;
	foreach (split("",$data)) {
		if (! ($_ =~  / /))  {
			$iter++;
		}
		$cmd .= "$myColors[$iter%12]$_";
	}

	$witem->command("/SAY $cmd");
}

Irssi::command_bind('duha','cmd_duha');