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";
trackback on 06/Feb/05 at 4:13 pm # :
Kikoo script pour xchat
Merci à Ozh pour son Kikoo script. Je viens de l'adapter pour xchat
#!/usr/bin/perl
# script original par Ozh
# http://planetozh.com/blog//archives/2003/07/18/kikoo-script-perl-version/
# Adapté pour xchat par Yoda-BZH