#!/usr/bin/perl

Xchat::hook_command( "kikoo", \&kikoo);
sub kikoo {
$rand = int(rand(13-4))+4;
$rand2 = int(rand(13-4))+4;
$rand3 = int(rand(13-4))+4;
$rand4 = int(rand(13-4))+4;
$rand5 = int(rand(13-4))+4;
$rand6 = int(rand(13-4))+4;
$rand7 = int(rand(13-4))+4;
$rand8 = int(rand(13-4))+4;
$rand9 = int(rand(13-4))+4;
$rand10 = int(rand(13-4))+4;
$rand11 = int(rand(13-4))+4;
$rand12 = int(rand(13-4))+4;
$rand13 = int(rand(13-4))+4;
$rand14 = int(rand(13-4))+4;
$rand15 = int(rand(13-4))+4;
$txt = $_[1][1];
IRC::command("/say $rand,$rand2 K!KoOoOoOoOoOoO  $txt !!!!!!!!!!! :o))) ");
IRC::command("/say %11,0%0,11%11,11%10,12%12,12%2,12%12,2%2,2%1,2%2,1%1,1% 12,1 K!KoOoOoOoOoOoOoOoOoOoOoOoO $txt !!!!! 8)))))))2,1%1,2%2,2%12,2%2,12%12,12%10,12%0,11%11,0%0,0%");
IRC::command("/say 12,2 YoOoOoOoOoOoOoO $txt !!!!! :-PPPPP ");
IRC::command("/say H 12,2 E 11,10 L 13,6 L 9,3 O  BAK0U  !!!!! :PPPPP 4,5 H 12,2 E 11,10 L 13,6 L 9,3 O
#6,3 SaLuUuUuUuUuUuUuUuUuU $txt !!!!! :DDDDDDDD ");
IRC::command("/say 0,8%,4,8`%8,4%,5,4`%4,5%,17,5`%5,17%, K!KoOoOoOoO $txt !!!!! 8))))))) 5,1`%17,5%,4,5 %5,4%,8,4`%4,8%,0,8`%");
IRC::command("/say 9,14 HeLLoOoOoO $txt !!!!! ;-)))) ");
IRC::command("/say 8,0% 0,8% 7,8% 8,7% 1,7% 7,1% 0,1 YoOoOoOoOoOoOoOoOoOoO $txt !!!!! :DDDDDDDD 7,1% 1,7% 8,7% 7,8% 0,8% 8,0%");
IRC::command("/say 13,14 YouuuuuuuuuHouuuuuuuuu $txt !!!!! \o/\o/\o/\o/\o/\o/\o/\o/\o/\o/ ");
IRC::command("/say ©©©© 4141 QUIQUO 1©©©© $txt !!!!!! :o))) ");
IRC::command("/say 13K03!04K13o13O08o09O09o03O09o11O11o12O03o13O13o10O03o11O12o03O07o07O 09 13>04>   $txt");
}