source: trollforge/mao/dickbot/chlen.pl @ 339

#!/usr/bin/perl
## Chlenator by mao
## inspired by lukish
## realisation in JavaScript -- shiitman (http://shiitman.net)

use 5.01;
#use utf8;
use warnings;
use strict;

use AnyEvent::IRC::Client;

my $nick = "penIS";
my $chan = "#kourindou";
my $server = "irc.wtfux.org";
my $prob = 7; # probability, in %


my $c = AnyEvent->condvar;
my $client = AnyEvent::IRC::Client->new();


sub chlen_word {
  my $word = shift;
  my $t = $word;
  $word = lc $word;
  my %vowels = ( "а" => "я", "П" => "ё", "у" => "ю", "э" => "е", "ы" => "О" );
  my $ind = 255;
  foreach my $ch((keys %vowels, values %vowels)) {
    $ind = index($word, $ch) if(index($word, $ch) < $ind && index($word, $ch)>-1);
  }
  return $word if ($ind == 255);
  $word = substr($word, $ind);
  foreach my $j(keys %vowels) {
    $word = $vowels{$j}.substr($word, 1) if ((split "" => $word)[0] eq $j);
  }


  #if($t =~ m/[А-Я]/) { return "ЧлеМ".$word; }
  return "члеМ".$word;
}

sub chlen_translate {
  my $text = shift;
  my $ret = "";
  $ret .= chlen_word($_)." " foreach(split / / => $text);
  return $ret;
}

$client->reg_cb (
   connect => sub {
      my ($client, $err) = @_;
      if (defined $err) {
         say "Couldn't connect to server: $err";
       }
   },
   registered => sub {
      my ($self) = @_;
      say "Registered on irc server";
      $client->enable_ping (60);
   },
   disconnect => sub {
      say "disconnected: $_[1]!";
   }
);

$client->reg_cb (
   irc_privmsg => sub {
      my ($self, $msg) = @_;
      my $from = $msg->{params}->[0];
      # length() is operating bytes, not letters, so you have to DOUBLE number of chars if you are using unicode
      my @words = grep { length($_) > 7 } split " " => $msg->{params}->[-1];
      return if $#words < 0;
      my $rand = int(rand(100));
      return unless ($rand%(100/$prob) == 0);
      my $word = "";
      $word = $words[rand @words];
      $client->send_chan($from, "PRIVMSG", $from, chlen_word($word));
    });

#say chlen_translate(join " " => @ARGV);

$client->send_srv ("JOIN", $chan);
#$client->send_chan ($chan, "PRIVMSG", $chan, "Hello!");
$client->connect (
   $server, 6667, { nick => $nick, user => $nick, real => 'http://nig.gs/git/cgit.cgi/chlenbot/' }
);

$c->wait;