Changeset 1010 for trunk/plugins/en/action_complex_failsafe.tcl

Timestamp:

06/19/09 16:28:12 (3 years ago)

Author:

james

Message:

how do i committed changes

File:

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

trunk/plugins/en/action_complex_failsafe.tcl

@@ -15 +15 @@
 bMotion_plugin_add_action_complex "zzz-failsafe" {^(.+?)s?( at|with)? %botnicks} 100 bMotion_plugin_complex_action_failsafe "en"
 bMotion_plugin_add_action_complex "aaa-autogender" {[a-z]+s (his|her) } 100 bMotion_plugin_complex_action_autolearn_gender "en"
+bMotion_plugin_add_action_complex "aaa-verbcatch" {(\w+s)\M} 100 bMotion_plugin_complex_action_verb_catch "en"
 
 proc bMotion_plugin_complex_action_failsafe { nick host handle channel text } {
@@ -108 +109 @@
 }
 
+proc bMotion_plugin_complex_action_verb_catch { nick host handle channel text } {
+
+        set stem ""
+        if [regexp -nocase {^((\w+)s)\M} $text matches verb stem] {
+        }
+
+        if {$stem != ""} {
+                if [string match -nocase "*e" $stem] {
+                        set stem [string range $stem 0 end-1]
+                }
+                # TODO: Handle any obvious cases where the stem isn't just lopping off the s!
+                bMotion_putloglev 1 * "found verb $verb ($stem)"
+                bMotion_abstract_add "sillyVerbs" $stem
+        }
+
+        return 0
+}
+
 bMotion_abstract_register "failsafe_nice"
 bMotion_abstract_batchadd "failsafe_nice" [list "mmm" "%VAR{smiles}" "%VAR{smiles}%|/gives %% %VAR{sillyThings}" "i do love a good %2ing"]
@@ -134 +153 @@
 bMotion_abstract_batchadd "failsafe_niceactions" [list "wh%REPEAT{3:7:e} %VAR{smiles}" "%VAR{smiles}" "/bounces around" "*drool*" ]
 
-
+bMotion_abstract_register "sillyVerbs"