KIKOO script, perl version

In: Code, IRC, kikoo, Perl
2 blablas On: 2003 / 07 / 18 Viewed: 58413 times
Shorter URL for this post: http://ozh.in/b

This is the perl version of my "famous" KIKOO Script for mIRC. Written for a psybnc bouncer, you can adapt it for XChat (see the kikoo script).

PERL:

#!/usr/bin/perl
$nick = uc join(' ', @ARGV);
$front = int(rand(13))+1;
$back = int(rand(13))+1;
while($back == $front) {
$back = int(rand(13))+1;
}
$xclam = int(rand(11))+2;
$oo = int(rand(11))+2;
$par = int(rand(11))+2;
$output = "\002\003" . "$front,$back" . " KIKOO" . "O" x $oo . " $nick " . "!" x $xclam . " :o" . ")" x $par ." ";
print "PRIVMSG &&partyline :$output\n";

Want to share or tweet this post? Please use this short URL: http://ozh.in/b

This entry "KIKOO script, perl version" was posted on 18/07/2003 at 1:51 pm and is tagged with Code, IRC, kikoo, Perl
Watch this discussion : Comments RSS 2.0.

KIKOO script, perl version « planetOzh