Changeset 1084 for trunk/plugins/en/output_VAR.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/output_VAR.tcl (modified) (3 diffs)

trunk/plugins/en/output_VAR.tcl

@@ -25 +25 @@
         bMotion_putloglev 4 * "bMotion_plugin_output_VAR $channel $line"
         global BMOTION_MIXIN_NONE BMOTION_MIXIN_REVERSE BMOTION_MIXIN_DEFAULT BMOTION_MIXIN_BOTH
+        global BMOTION_MIXIN_MALE BMOTION_MIXIN_FEMALE
         
         set line [string map { "%noun" "%VAR{sillyThings}" } $line]
@@ -59 +60 @@
                         bMotion_putloglev 1 * "mixin type for $abstract is both"
                         set mixin_type $BMOTION_MIXIN_BOTH
+                } elseif {[lsearch $options_list "malemixin"] > -1} {
+                        bMotion_putloglev 1 * "mixin type for $abstract is male"
+                        set mixin_type $BMOTION_MIXIN_MALE
+                } elseif {[lsearch $options_list "femalemixin"] > -1} {
+                        bMotion_putloglev 1 * "mixin type for $abstract is female"
+                        set mixin_type $BMOTION_MIXIN_FEMALE
                 }
 
@@ -131 +138 @@
                                         bMotion_putloglev 1 * "pluralising $replacement"
                                         set replacement [bMotionMakePlural $replacement]
-                                        putlog $replacement
+                                        if {[rand 100] > 90} {
+                                                set replacement [bMotion_strip_article $replacement]
+                                                set replacement "%VAR{pluralprefix} $replacement"
+                                                if {[lsearch "strip" $options_list] > -1} {
+                                                        set replacement [bMotion_strip_article $replacement]
+                                                }
+                                        }
                                 }
                                 "owner" {