1use Irssi; 2use Irssi::Irc; 3use strict; 4use warnings; 5use 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 21sub 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 36Irssi::command_bind('alamer', 'cmd_lamer'); 37