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