arab

# $Id: $## {{{ useuse strict;use Irssi qw(settings_add_str signal_add settings_get_str signal_add_first signal_stop);use vars qw($VERSION %IRSSI);# }}}# {{{ Irssi variables$VERSION = "14.88";%IRSSI = (	authors		=> 'vxp',	contact		=> 'irc.arabs.ps #arab',	name		=> 'flummi',	description	=> 'FLUMMI',	license		=> 'ARABIC FUCK YOU LICNESE',);# }}}my @channels = ();sub reload { @channels = split(/ /, settings_get_str("flummi_channels")); };settings_add_str("flummi", "flummi_channels", "");signal_add("setup changed", \&reload); reload();sub knubbze {	my (@c) = (int(rand(14) + 1), int(rand(14) + 1));	while($c[0] eq $c[1]) { $c[1] = int(rand(14) + 1); };	return @c;};signal_add_first('send text', sub {	my ($line, undef, $witem) = @_;	return unless ( length($line))	&& ("CHANNEL" eq $witem->{'type'})	&&  grep {lc($_) eq $witem->{'name'}} @channels;	my (@c) = ([knubbze()], [knubbze()]);	my ($nc, $msg) = (0, ""); foreach my $c (split(//, $line)) {		$msg .= sprintf("\003%.02d,%.02d%s", $c[$nc]->[0], $c[$nc]->[1], $c);		$nc = (!$nc or 0);	}; signal_stop(); $witem->command("say ". $msg);});# vim:ts=8 sw=8 tw=80 noexpandtab foldmethod=marker