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).
- #!/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";
Shorter URL
Want to share or tweet this post? Please use this short URL: http://ozh.in/b
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