source: trollforge/mao/dickbot/dick.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 = "fagot";
my $chan = "#gapp";
my $server = "irc.anonymuncule.com";
my $prob = 40; # 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 = ("a","e","i","o","u");

  my $ind = 255;
  my @positions = ();

  my $offset;

  foreach my $ch(@vowels) {
    $offset = -1;
    while(index($word, $ch, $offset+1)>-1 && $offset < length($word)) {
      $ind = index($word, $ch, $offset+1);
      say $ch." - ".$offset." - ".$ind;
      push @positions, $ind;
      last if ($offset == $ind);
      $offset = $ind;
    }
  }
  return $word if ($ind == 255);
  @positions = sort @positions;
  $ind = $positions[1] if ($#positions > 0);
  $word = substr($word, $ind);

  #say $word;
#    for (my $j = 0; $j < 5; $j++) {
#      if ((split // => $word)[0] eq $vowels[$j]) {
#          $word = substr($word,1);
#      }
#    }

  if($t =~ m/[A-Z]/) { return "Dick".$word; }
  return "dick".$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];
      my @words = grep { length($_) > 4 } 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, "dickbot here");
$client->connect (
   $server, 6667, { nick => $nick, user => $nick, real => 'DICKBOT [HEAD] :: http://www.gnaa.eu/browser/trollforge/mao/dickbot' }
);

$c->wait;