Changeset 906 for trunk

Show
Ignore:
Timestamp:
04/23/08 07:25:43 (9 months ago)
Author:
james
Message:

new stuff

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/modules/extra/jeffk.tcl

    r905 r906  
    3232                set line [string toupper $line] 
    3333        } else { 
     34                set word [string map -nocase { "you're" "%VAR{jeffk_ur}" "your" "%VAR{jekkf_ur}"} $line] 
     35                set word [string map -nocase { "their" "%VAR{jeffk_thr}" "there" "%VAR{jeffk_thr}" "they're" "%VAR{jeffk_thr}"} $line] 
     36 
    3437                set words [split $line " "] 
    3538                set newline "" 
     39 
    3640                foreach word $words { 
    37                         set word [string map -nocase { "you're" "%VAR{jeffk_ur}" "your" "%VAR{jekkf_ur}"} $line] 
    38                         set word [string map -nocase { "their" "%VAR{jeffk_thr}" "there" "%VAR{jeffk_thr}" "they're" "%VAR{jeffk_thr}"} $line] 
    3941 
    4042                        if {([string length $word] > 5) && (![rand 6])} {