Code 1 min read

KIKOO script, perl version

By Ozh

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).

< View plain text >
perl

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

2 comments

  1. Par un d&amp;eacute;tour &amp;agrave; Yoda

    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

Comments are closed.