Changeset 386Tweet

Timestamp:

12/06/10 21:20:17 (2 years ago)

Author:

rucas

Message:

lol

File:

• trollforge/rucas/flops.pl (modified) (4 diffs)

trollforge/rucas/flops.pl

@@ -2 +2 @@
 use IO::Socket::INET;
 
-our $server                     = "irc.hardchats.com";
+our $server                     = "irc.encyclopediadramatica.com";
 our $port                       = "6667";
-our $channel            = "#gnaa";
-our $nick                       = "TheLoRez";
+our $channel            = "#freenode";
+our $nick                       = "Drew2338";
 our $phrases            = "autism.txt";
-our $chatdelay          = 500; #base chat delay, modified by "chattiness" of a channel
+our $chatdelay          = 1000; #base chat delay, modified by "chattiness" of a channel
 our $delaymodifier      = 10; #time subtracted from chatdelay every time a line is chatted
 
@@ -44 +44 @@
 while ( my $input = <$sock> ) {
         chop $input;
-        print "-> $input\n";
+        our $interval = ($chatdelay-(time()-$lastchat));        
+        our $Hours = int($interval/3600);
+        our $Minutes = int(($interval - $Hours * 3600) / 60);
+        our $Seconds = $interval % 60;
+        print "-> [Delay: ".$Hours."h".$Minutes."m".$Seconds."s] ".$input."\n";
         if ( $input =~ /^PING(.*)$/i ) {
                 print $sock "PONG $1\r\n";
-                print "<- PONG $1 \r\n";
+                print "<- PONG ".$1." \r\n";
         }
         if ( $input !~ /freenode\/staff/ ) {
@@ -58 +62 @@
                                 chop $randomline;
                                 print "*** Replying to ".$chatter[0]." in ".$delay." seconds with '".$randomline."'.\r\n";
-                                print "*** ".time()+$delay-$lastchat." second delay since last chat.\r\n";
                                 sleep $delay;
                                 print $sock "PRIVMSG ".$channel." :".$chatter[0].": ".$randomline."\r\n";
@@ -69 +72 @@
         }
 }
+