Changeset 339 for trollforge/mao

Timestamp:

04/30/10 19:07:31 (3 years ago)

Author:

mao

Message:

.

Location:

trollforge/mao/dickbot

Files:

• chlen.pl (added)
• condvar (added)
• dick.pl (modified) (4 diffs)

trollforge/mao/dickbot/dick.pl

@@ -11 +11 @@
 use AnyEvent::IRC::Client;
 
-my $nick = "DiCKbot";
-my $chan = "#flashsupport";
-my $server = "irc.buttes.org";
-my $prob = 50; # probability, in %
+my $nick = "fagot";
+my $chan = "#gapp";
+my $server = "irc.anonymuncule.com";
+my $prob = 40; # probability, in %
 
 
@@ -39 +39 @@
       say $ch." - ".$offset." - ".$ind;
       push @positions, $ind;
-      last if ($offset+1 == $ind);
+      last if ($offset == $ind);
       $offset = $ind;
     }
@@ -88 +88 @@
       my ($self, $msg) = @_;
       my $from = $msg->{params}->[0];
-      my @words = split " " => $msg->{params}->[-1];
+      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 = $words[rand @words];
+      my $word = "";
+      $word = $words[rand @words];
       $client->send_chan($from, "PRIVMSG", $from, chlen_word($word));
     });
@@ -98 +100 @@
 
 $client->send_srv ("JOIN", $chan);
-$client->send_chan ($chan, "PRIVMSG", $chan, "dickbot here");
+#$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' }