Changeset 1113

Timestamp:

08/03/11 05:54:12 (10 months ago)

Author:

james

Message:

Add filter for bad word at and of sentence for sillyThings

File:

• trunk/modules/system.tcl (modified) (2 diffs)

trunk/modules/system.tcl

@@ -1269 +1269 @@
 
         if [regexp -nocase {^(for|i|but)\M} $item] {
-                bMotion_putloglev 2 * "sillyThing $item rejected for bad ending"
+                bMotion_putloglev 2 * "sillyThing $item rejected for bad start"
                 return 0
         }
@@ -1282 +1282 @@
         if [regexp -nocase {(ful|est|ly|ive| he|edible|icable|tty)$} $item] {
                 bMotion_putloglev 2 * "sillyThing $item rejected for word ending"
+                return 0
+        }
+
+        if [regexp -nocase {\m(is)$} $item] {
+                bMotion_putloglev 2 * "sillyThing $item rejected for bad sentence end"
                 return 0
         }