sub kikoo
{
   my $args = shift;
   my $i = 0;
   my $max;
   my $os = "KIKOOO";
   my $ex = "!!!";
   my $foo = ":o)))";
   for ($max=rand(10);$i<$max;$i++) { $os .= "O" } $i = 0;
   for ($max=rand(10);$i<$max;$i++) { $ex .= "!" } $i = 0;
        for ($max=rand(10);$i<$max;$i++) { $foo .= ")"; }

   # colors
   my $c1 = int(rand(15));
   my $c2 = int(rand(15));
   my $window = Irssi::active_win();

   $window->command("say $c1,$c2$os ".uc($args)." $ex $foo");
}

Irssi::command_bind("kikoo",    "kikoo");