Changeset 252 for trunk/plugins/en/complex_questions.tcl

Timestamp:

09/10/03 06:59:14 (9 years ago)

Author:

kevdadrum

Message:

A "how're you" question handler, last commit threw a fit because I used ../ in the path to commit.

File:

• trunk/plugins/en/complex_questions.tcl (modified) (2 diffs)

trunk/plugins/en/complex_questions.tcl

@@ -30 +30 @@
     if {($term == "") && (![bMotionTalkingToMe $text])} { return 0 }
     bMotion_plugin_complex_question_what $nick $channel $host $question
+    return 1
+  }
+
+  bMotion_putloglev 3 * "Checking question for wellbeing"
+  ## wellbeing question targeted at me
+  if { [regexp -nocase "^$botnicks,?:? how( a|')?re (you|ya)" $text] ||
+       [regexp -nocase "^how( a|')?re (you|ya).*$botnicks ?\\?" $text] } {
+    bMotion_plugin_complex_question_wellbeing $nick $channel $host
     return 1
   }
@@ -176 +184 @@
 
 proc bMotion_plugin_complex_question_when { nick channel host } {
-    bMotion_putloglev 2 * "$nick When question"
+  bMotion_putloglev 2 * "$nick When question"
   bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{answerWhens}"
   return 1
 }
 
+proc bMotion_plugin_complex_question_wellbeing { nick channel host } {
+  bMotion_putloglev 2 * "$nick wellbeing question"
+  bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{answerWellbeing}"
+  return 1
+}
+
 proc bMotion_plugin_complex_question_with { nick channel host prop } {
-    bMotion_putloglev 2 * "$nick with question"
+  bMotion_putloglev 2 * "$nick with question"
   set answer "$prop %VAR{answerWithWhos}"
   bMotionDoAction $channel [bMotionGetRealName $nick $host] $answer