Changeset 1060

Timestamp:

01/16/10 07:27:42 (2 years ago)

Author:

james

Message:

fix complex_questions.tclOWNER user

File:

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

trunk/plugins/en/complex_questions.tcl

@@ -37 +37 @@
                 bMotion_putloglev 3 * "it's a sound question"
                 bMotionDoAction $channel $nick "%VAR{sound_answer}"
+                return 1
+        }
+
+        if {[regexp -nocase "^$botnicks,?:? what did you do to" $text] || [regexp -nocase "what did you do to .+${botnicks}\\?$" $text]} {
+                bMotion_putloglev 3 * "it's a what did you do question"
+                bMotionDoAction $channel $nick "%VAR{whatdiddos}"
                 return 1
         }
@@ -355 +361 @@
     bMotion_putloglev 2 * "$nick who question"
   if {$owner == "se"} {
-    set line "%OWNER{%VAR{answerWhos}}"
+    set line "%VAR{answerWhos:owner}"
   } else {
     set line "%VAR{answerWhos}"
@@ -594 +600 @@
         "not a chance"
 }
+
+bMotion_abstract_register "whatdiddos" {
+        "i %VAR{sillyVerbs:past} it %VAR{smiles}"
+        "i %VAR{sillyVerbs:past} it %VAR{unsmiles}"
+}