- Timestamp:
- 12/21/11 03:58:15 (5 months ago)
- File:
-
- 1 edited
-
trunk/plugins/en/output_colloquial.tcl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/plugins/en/output_colloquial.tcl
r1130 r1131 85 85 86 86 #let's break some words 87 global colloq_negative88 87 set newLine "" 89 88 set words [split $line { }] 90 89 foreach word $words { 91 90 if {[bMotion_plugin_output_colloq_chance $colloq_rate]} { 92 regsub -nocase {\m(dis|anti|un|im)} $word [ pickRandom $colloq_negative] word91 regsub -nocase {\m(dis|anti|un|im)} $word [bMotion_abstract_get "colloq_negative"] word 93 92 } 94 93 append newLine "$word "
Note: See TracChangeset
for help on using the changeset viewer.
