Changeset 282 for trunk/plugins/en/output_english.tcl

Timestamp:

09/19/03 09:27:10 (9 years ago)

Author:

jamesoff

Message:

use capitals and punctuation more

File:

• trunk/plugins/en/output_english.tcl (modified) (2 diffs)

trunk/plugins/en/output_english.tcl

@@ -20 +20 @@
 
 proc bMotion_plugin_output_english { channel line } {
+  set line [string trim $line]
+
   # me at start of line is WRONG
   #
@@ -39 +41 @@
   regsub -nocase -all {[[:<:]](a) ([aeiou].+)[[:>:]]} $line {\1n \2} line
 
+  if {[rand 100] > 60} {
+    #captials at start, . at end
+    if [regexp {^([a-z])(.+)} $line matches first rest] {
+      set line "[string toupper $first]$rest"
+    }
+
+    if [regexp {[a-zA-Z0-9]$} $line] {
+      append line "."
+    }
+  }
+
   return $line
 }