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

trunk/plugins/en/output_english.tcl

@@ -37 +37 @@
   }
 
-        #"a an" and "an a" are wrong
-        regsub -nocase -all "(a an|an a) " $line "" "a"
 
   #"a" before a vowel needs to be "an"
@@ -48 +46 @@
         # a(n) before a number is wrong more often than it is right
         regsub -nocase -all {an? ([0-9]+)} $line {\1} line
+
+        #"a an" and "an a" are wrong
+        regsub -nocase -all "(a an|an a) " $line "" "a"
 
   if {[rand 100] > 60} {
@@ -60 +61 @@
   }
 
+        regsub -all "an? some" $line "some" line
+
+        regsub -all "you is " $line "you are " line
+
+        regsub -all "the an?" $line "the" line
+
         #fix double (or more) spaces
         regsub -all "  +" $line " " line
@@ -68 +75 @@
         regsub -all {\myou is\M} $line "you are" line
 
+        #fix gap before full stop
+
+        #TODO: fix
+        regexp -all { +\\.} $line "." line
+
         # fix american spellings
         # TODO: make this an option or US bots can talk wrong english and UK bots can talk right english