Changeset 1085 for trunk/modules/output.tcl
- Timestamp:
- 09/02/10 16:53:40 (21 months ago)
- File:
-
- 1 edited
-
trunk/modules/output.tcl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/modules/output.tcl
r1082 r1085 115 115 set channel [chandname2name $channel] 116 116 regsub "^\"(.+)\"?$" $action {\1} action 117 if {([string index $action 0] != ".") && ( [rand 10] == 0)} {117 if {([string index $action 0] != ".") && (![regexp -nocase "^is" $action]) && ([rand 10] == 0)} { 118 118 set action "*$action*" 119 119 } else { … … 1004 1004 bMotion_putloglev 5 * "bMotionMakePlural ($text)" 1005 1005 1006 if [regexp -nocase "( us|is|x|ch|sh)$" $text] {1006 if [regexp -nocase "(ss|ts|us|is|x|ch|sh)$" $text] { 1007 1007 append text "es" 1008 1008 return $text
Note: See TracChangeset
for help on using the changeset viewer.
