lang praises too

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@762 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/files/blootbot.lang b/files/blootbot.lang
index d475fff5daf7cf9783b7fa52a5a05fb8443e30c6..8d20d5f39a2bb37069e281a4adacf8f292c5d6b2 100644 (file)
--- a/files/blootbot.lang
+++ b/files/blootbot.lang
@@ -95,3 +95,10 @@ qWord
   where
   where is
   where are
+
+# botsnack etc praise
+# TODO add ACTION support
+praise
+  :)
+  thanks
+  aw, gee

diff --git a/src/Process.pl b/src/Process.pl
index abe7d187943107a479672743a88d313e33942205..04189826d507e9cf2bfe31d546c37c2661143cd9 100644 (file)
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -262,10 +262,8 @@ sub process {
 
     # greetings.
     if ($message =~ /how (the hell )?are (ya|you)( doin\'?g?)?\?*$/) {
-       my $reply = &getRandom(keys %{ $lang{'howareyou'} });
 
-       &performReply($reply);
-        
+       &performReply(&getRandom(keys %{ $lang{'howareyou'} }));
        return;
     }
 
@@ -275,11 +273,7 @@ sub process {
     {
        return 'praise: no addr' unless ($addressed);
 
-       &status("random praise detected");
-
-       my $tmp = (rand() < 0.5) ? "thanks $who " : "";
-       &pSReply($tmp.":)");
-
+       &performReply(&getRandom(keys %{ $lang{'praise'} }));
        return;
     }