Changeset 1084 for trunk/plugins/en/complex_spoonerism.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_spoonerism.tcl (modified) (1 diff)

trunk/plugins/en/complex_spoonerism.tcl

@@ -72 +72 @@
 
         if [regexp -nocase {([a-z]+)less ([a-z]+)\M} $text matches one two] {
-                if [regexp -nocase "(un|use|b)" $one] {
+                if [regexp -nocase {^(un|use|b|regard)$} $one] {
                         return 0
                 }
 
-                if [regexp -nocase "(one)" $two] {
+                if [regexp -nocase {^(one|of|n)$} $two] {
                         return 0
                 }