html/alame.pl

• package main
  • cmd_lamer
• EOF

   1 use Irssi;
   2 use Irssi::Irc;
   3 use strict;
   4 use warnings;
   5 use vars qw($VERSION %IRSSI);
   6 $VERSION="0.0.1";
   7 %IRSSI = (
   8 	authors	=> 'Christian \'mordeth\' Weber',
   9 	contact	=> 'mordeth\@mac.com',
  10 	name	=> 'alame',
  11 	description	=> 'Converts towards lame speech',
  12 	license	=> 'GPL v2',
  13 	url	=> 'http://',
  14 );
  15 
  16 
  17 # USAGE:
  18 # /alame <text>
  19 # writes "text" in lamespeech to the current channel
  20 
  21 sub cmd_lamer {
  22   my ($data, $server, $witem) = @_;
  23   if (!$server || !$server->{connected}) {
  24     Irssi::print("Not connected to server");
  25     return;
  26   }
  27   if ($data) {
  28     my $x; $_=$data; s/./$x=rand(6); $x>3?lc($&):uc($&)/eg; s/a/4/gi; s/c/(/gi;
  29     s/d/|)/gi; s/e/3/gi; s/f/|=/gi; s/h/|-|/gi; s/i/1/gi; s/k/|</gi;
  30     s/l/|_/gi; s!m!/\\/\\!gi; s!n!/\\/!gi; s/o/0/gi; s/s/Z/gi; s/t/7/gi;
  31     s/u/|_|/gi; s!v!\\/!gi; s!w!\\/\\/!gi; #s/w/\/\//gi;
  32     $witem->command("/SAY $_");
  33   }
  34 }
  35 
  36 Irssi::command_bind('alamer', 'cmd_lamer');