Changeset 1118 for trunk

Timestamp:

08/25/11 06:47:56 (9 months ago)

Author:

james

Message:

add stoplist

File:

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

trunk/plugins/en/complex_fry.tcl

@@ -23 +23 @@
         if [regexp -nocase "technically (not )?(an? )?(\[a-z\]+)\\M" $text matches a b thing] {
                 putlog "thing=$thing, a=$a, b=$b"
+
+                #check stoplist
+                if [regexp -nocase "(at)" $thing] {
+                        return 0
+                }
+
                 set response "The best kind of $thing"
                 if {$a == "not "} {