Changeset 1084 for trunk/plugins/en/complex_sucks.tcl

Timestamp:

08/28/10 19:46:27 (21 months ago)

Author:

james

Message:

updated stoplist for append plugin
added support for forcing female and male mixing (:malemixin and :femalemixin)
use ultraprefix for some plurals
more fixes in output_english
more stoplist for complex_spoonerism
stoplist for complex_ass
simple_calls plugin
simple_countries plugin
support for how much question types
fixed action_simple loading
a lot of abstract changes

File:

• trunk/plugins/en/complex_sucks.tcl (modified) (1 diff)

trunk/plugins/en/complex_sucks.tcl

@@ -17 +17 @@
         global botnicks
 
+        set stoplist "^(t|teh|the|that|you|which|that|it|what|they)$"
+
         if [regexp -nocase {([a-z0-9]+) (all )?suck[.!]*$} $text matches item] {
-                bMotionDoAction $channel $item "%VAR{sucks}"
-                return 1
+                if {![regexp -nocase $stoplist $item]} {
+                        bMotionDoAction $channel $item "%VAR{sucks}"
+                        return 1
+                }
         }
 
         if [regexp -nocase {^([a-z0-9]+) sucks} $text matches item] {
-                if [regexp -nocase "^(teh|the|that|you|which|that|it|what)$" $item] {
+                if [regexp -nocase $stoplist $item] {
                         return 0
                 }