Changeset 1082 for trunk/plugins/en/complex_nazi.tcl

Timestamp:

08/26/10 11:32:47 (21 months ago)

Author:

james

Message:

reduced lolcats chance
added output to "and then"
trigger fixes for r, luggage combination and look robot
fix priority on typos plugin
new "triplet" macro filter which gets a const-vowel-const triplet from the word
new "pretriplet" macro filter to use with "triplet"
fixed output_append to actually fire
make "cool" a stopwor for spoonerism
more grammar nazism
fix broken output being sent to IRC
adjust lower friendship limit slightly
many updates to abstracts
fix queue not adding last output to cache
guard code in interbot

File:

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

trunk/plugins/en/complex_nazi.tcl

@@ -14 +14 @@
 
 bMotion_plugin_add_complex "nazi-your" "^your (a|the) \[a-z\]+$" 60 bMotion_plugin_complex_nazi1 "en"
-bMotion_plugin_add_complex "nazi-regexp" "^s/\[^/\]+/\[^/\]+$" 80 bMotion_plugin_complex_nazi2 "en"
+bMotion_plugin_add_complex "nazi-regexp" "^s/\[^/\]+/\[^/\]+$" 30 bMotion_plugin_complex_nazi2 "en"
+bMotion_plugin_add_complex "nazi-meand" "\\mme and \[a-z\]+" 60 bMotion_plugin_complex_nazi3 "en"
+bMotion_plugin_add_complex "nazi-meand2" "\[a-z\]+ and me\\M" 60 bMotion_plugin_complex_nazi4 "en"
 
 proc bMotion_plugin_complex_nazi1 {nick host handle channel text} {
@@ -39 +41 @@
 }
 
+proc bMotion_plugin_complex_nazi3 {nick host handle channel text} {
+
+        if [regexp -nocase "\\mme and (\[a-z\]+)( \[a-z\]+)?" $text matches other verb] {
+                if {$verb == ""} {
+                        if {![bMotion_interbot_me_next $channel]} {
+                                return 0
+                        }
+                        bMotionDoAction $channel $nick "%%: %2 and me" $other
+                        return 1
+                } else {
+                        regsub -nocase "me and $other" $text "$other and me" text
+                        return [bMotion_plugin_complex_nazi4 $nick $host $handle $channel $text]
+                }
+                return 0
+        }
+}
+
+proc bMotion_plugin_complex_nazi4 {nick host handle channel text} {
+        if {![bMotion_interbot_me_next $channel]} {
+                return 0
+        }
+        
+        #TODO: extend this list
+        if [regexp -nocase "\\m(\[a-z\]+ and \)me\\M (were|did)\\M" $text matches other verb] {
+                bMotionDoAction $channel $nick "%%: $other I"
+                return 1
+        }
+        return 0
+}
+
+
 bMotion_abstract_register "nazi1"
 bMotion_abstract_batchadd "nazi1" [list "%%: \"you're\"" "their what?" "s/your/you're/"]