Donnerstag Funktion
authorFabian Stahl <fabian@schurken-staat.de>
Mon, 7 Jul 2014 12:33:30 +0000 (14:33 +0200)
committerFabian Stahl <fabian@schurken-staat.de>
Mon, 7 Jul 2014 12:33:30 +0000 (14:33 +0200)
hans

diff --git a/hans b/hans
index 4c72b16..6aeeccd 100755 (executable)
--- a/hans
+++ b/hans
@@ -162,7 +162,8 @@ sub query_help {
        $conn->privmsg($nick, '!join [nick1 nick2]  - HQ betreten (und öffnen falls geschloßen)');
        $conn->privmsg($nick, '!leave [nick1 nick2] - HQ verlassen (alias: !part)');
        if ($all) {
-               $conn->privmsg($nick, '/![b]+[a]+[h]*[l]+[u]+/i, !press, !raspel, !darkwingduck');
+               $conn->privmsg($nick, '/![b]+[a]+[h]*[l]+[u]+/i, !press, !raspel, !darkwingduck, !donnerstag');
+               
        }
 }
 
@@ -235,6 +236,15 @@ sub on_public {
                $conn->privmsg($to, 'http://www.picpaste.de/press.jpg');
                return;
        }
+       
+       if ($arg =~ /^!donnerstag/i) {
+               my $text = 'Donnerstags ist ein öffentliches Treffen, bei dem jeder vorbeikommen kann.
+                                                   Ab 19:00 Uhr sollte jemand im HQ sein.';
+               $conn->privmsg($to, $text);
+               return;
+       }
+       
+       
        if ($arg =~ /^![b]+[a]+[h]*[l]+[u]+/i) {
                my @lines = (
                        'Hahahahaha - Balu! Bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm! Und seine Crew! Bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm bumm!',
@@ -383,6 +393,8 @@ sub on_public {
                $conn->privmsg($to, $start . $lines[rand @lines] . $end);
                return;
        }
+       
+       
                
        if ($to eq '#ccc-ffm-intern') {
                if ($arg =~ /^!help\sall/i) {
@@ -445,6 +457,7 @@ sub on_public {
                        hq_set_topic($conn);
                        return;
                }
+               
        }
     print Dumper($event), "\n" if ($debug);
 }