{"id":32,"date":"2003-07-18T13:51:35","date_gmt":"2003-07-18T11:51:35","guid":{"rendered":"http:\/\/frenchfragfactory.net\/ozh\/archives\/2003\/07\/18\/kikoo-script-perl-version\/"},"modified":"2007-05-10T00:00:22","modified_gmt":"2007-05-09T22:00:22","slug":"kikoo-script-perl-version","status":"publish","type":"post","link":"https:\/\/planetozh.com\/blog\/2003\/07\/kikoo-script-perl-version\/","title":{"rendered":"KIKOO script, perl version"},"content":{"rendered":"

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<\/a>).<\/p>\n

\n\n\t\t
\n\n\t\t
\n\t\t\t\t\t\t< View plain text<\/span> ><\/a>\n\t\t\t\t\t<\/div>\n\n\t\t
perl<\/div>\n\n\t\t\n\t\t
\n\n\t<\/div>\n\t\n\t
\n\t\t
  1. #!\/usr\/bin\/perl<\/span><\/div><\/li>\n
  2. $nick<\/span> =<\/span> uc<\/span> join<\/span>(<\/span>' '<\/span>,<\/span> @<\/span>ARGV<\/span>)<\/span>;<\/span><\/div><\/li>\n
  3. $front<\/span> =<\/span> int<\/span>(<\/span>rand<\/span>(<\/span>13<\/span>)<\/span>)<\/span>+<\/span>1<\/span>;<\/span><\/div><\/li>\n
  4. $back<\/span> =<\/span> int<\/span>(<\/span>rand<\/span>(<\/span>13<\/span>)<\/span>)<\/span>+<\/span>1<\/span>;<\/span><\/div><\/li>\n
  5. while<\/span>(<\/span>$back<\/span> ==<\/span> $front<\/span>)<\/span> {<\/span><\/div><\/li>\n
  6.         $back<\/span> =<\/span> int<\/span>(<\/span>rand<\/span>(<\/span>13<\/span>)<\/span>)<\/span>+<\/span>1<\/span>;<\/span><\/div><\/li>\n
  7. }<\/span><\/div><\/li>\n
  8. $xclam<\/span> =<\/span> int<\/span>(<\/span>rand<\/span>(<\/span>11<\/span>)<\/span>)<\/span>+<\/span>2<\/span>;<\/span><\/div><\/li>\n
  9. $oo<\/span> =<\/span> int<\/span>(<\/span>rand<\/span>(<\/span>11<\/span>)<\/span>)<\/span>+<\/span>2<\/span>;<\/span><\/div><\/li>\n
  10. $par<\/span> =<\/span> int<\/span>(<\/span>rand<\/span>(<\/span>11<\/span>)<\/span>)<\/span>+<\/span>2<\/span>;<\/span><\/div><\/li>\n
  11.  <\/div><\/li>\n
  12. $output<\/span> =<\/span> "\\0<\/span>02\\0<\/span>03"<\/span> .<\/span> "$front,$back"<\/span> .<\/span> " KIKOO"<\/span> .<\/span> "O"<\/span> x $oo<\/span> .<\/span> " $nick "<\/span> .<\/span> "!"<\/span> x $xclam<\/span> .<\/span> " :o"<\/span> .<\/span> ")"<\/span> x $par<\/span> .<\/span>" "<\/span>;<\/span><\/div><\/li>\n
  13. print<\/span> "PRIVMSG &&partyline :$output\\n<\/span>"<\/span>;<\/span><\/div><\/li>\n<\/ol>\t<\/div>\n\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"

    KIKOO script in perl (mostly for XChat or a psybnc bouncer)<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[2,41,40,9],"class_list":["post-32","post","type-post","status-publish","format-standard","hentry","tag-code","tag-irc","tag-kikoo","tag-perl"],"_links":{"self":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/32","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/comments?post=32"}],"version-history":[{"count":0,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/posts\/32\/revisions"}],"wp:attachment":[{"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/media?parent=32"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/categories?post=32"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/planetozh.com\/blog\/wp-json\/wp\/v2\/tags?post=32"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}