Changeset 1136 for trunk/modules

Timestamp:

01/26/12 16:21:40 (4 months ago)

Author:

james

Message:

new triggers for some verbs
stoplist additions for complex_add and spoonerisms
handle being smacked in a specific bodypart better
content additions all round

Location:

trunk/modules

Files:

• abstracts/en/abstracts.tcl (modified) (1 diff)
• abstracts/en/randomstuff.tcl (modified) (1 diff)
• system.tcl (modified) (1 diff)

trunk/modules/abstracts/en/abstracts.tcl

@@ -5899 +5899 @@
 }
 
+bMotion_abstract_register "fuckoff" {
+        "%={fuck:cunt:shit:sod} off%! you %VAR{PROM}"
+}
+
 bMotion_abstract_add_filter "_all" "\{strip\}\}"
 bMotion_abstract_add_filter "_all" "\}\{strip\}"

trunk/modules/abstracts/en/randomstuff.tcl

@@ -350 +350 @@
         "%ruser{enemy} in talking shit shocker          "
         "why just the other day i watched a film with a plot    "
+        "why just the other day i watched a film with %VAR{sillyThings}"
         "ha ha i don't live in norwich anymore, i don't fuck pigs anymore "
         "i have a battery operated tree \\o/"

trunk/modules/system.tcl

@@ -1275 +1275 @@
         # -rty, -ted?
 
-        if [regexp -nocase {\m(like|better|bigger|clever|other|rather|the|and|for|to|be|cool|dizzy|different|dry|entire|end|expensive|faster|federal|this|illegitimate|illiteracy|implicit|kind|lack|last|late|later|left|less|little|long|maybe|maybeok|meantime|mathematical|mechanical|more|most|much|multi|new|newer|next|particular|past|pure|quick|same|sheer|short|small|sort|specific|ultra|tubal|total|were|what|whole|weird|wrong)$} $item] {
+        if [regexp -nocase {\m(should|like|better|bigger|clever|other|rather|the|and|for|to|be|cool|dizzy|different|dry|entire|end|expensive|faster|federal|this|illegitimate|illiteracy|implicit|kind|lack|last|late|later|left|less|little|long|maybe|maybeok|meantime|mathematical|mechanical|more|most|much|multi|new|newer|next|particular|past|pure|quick|same|sheer|short|small|sort|specific|ultra|tubal|total|were|what|whole|weird|wrong)$} $item] {
                 bMotion_putloglev 2 * "sillyThing $item rejected for stoplist"
                 return 0