From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 30 Jan 2003 23:47:36 +0000 (+0000)
Subject: lang praises too
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2fca2515803531eff84807faa725a5658d76b7c0;hp=2ff74dfe7ba06ae0c2e461ebaf09a8fffe77389d;p=infobot.git

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 d475fff..8d20d5f 100644
--- 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 abe7d18..0418982 100644
--- 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;
     }