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

Timestamp:

09/09/03 17:06:19 (9 years ago)

Author:

kevdadrum

Message:

Adds a handler for "Botname: do you need x?" and "do you want x botname?"
Currently buggy because it won't deal with "do you want" for no good reason.

File:

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

trunk/plugins/en/complex_questions.tcl

@@ -47 +47 @@
   }
 
+  ## Want question targetted at me
+  if { [regexp -nocase "^$botnicks,?:? do you (need|want) (a|these|this|some|the|those|that)" $text] ||
+        [regexp -nocase "^do you (want|need) (a|these|this|some|the|those|that) .* $botnicks ?\\?" $text] } {
+      bMotion_plugin_complex_question_want $nick $channel $host
+      return 1
+  }
+  
   ## Why question targeted at me
   if { [regexp -nocase "^$botnicks,?:? why" $text] ||
@@ -169 +176 @@
 }
 
+proc bMotion_plugin_complex_question_want { nick channel host } {
+    bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{question_want_reply_wrapper}"
+    return 1
+}
+
 proc bMotion_plugin_complex_question_why { nick channel host } {
   bMotionDoAction $channel [bMotionGetRealName $nick $host] "%VAR{answerWhys}"
@@ -196 +208 @@
   "%% i suppose"
 }
+
+set question_want_reply_wrapper {
+  "Why? I've got %VAR{sillyThings}"
+  "With %VAR{sillyThings} I have no need for anything else"
+  "Ooh yes please, I've had %VAR{sillyThings} for so long it's boring me"
+  "Will it feel as good as %VAR{sillyThings} from %ruser"
+  "Hell yes, %ruser's given me %VAR{sillyThings} and I can't wait to get away from it!"
+  "I don't know, %VAR{sillyThings} from %ruser just %VAR{fellOffs}"
+  "Yes, %VAR{confuciousStart} %VAR{confuciousEnd}"
+  "No, %VAR{confuciousStart} %VAR{confuciousEnd}"
+  "Can I have a %VAR{chocolates} too?"
+  "Yes please, I left %VAR{sillyThings} in %VAR{answerWheres}"
+  "Not until %VAR{answerWhens}"
+  "Yes please, the Borg Queen offered me %VAR{trekNouns} and I only got %VAR{sillyThings}"
+  "%VAR{sweet}"
+}