- Timestamp:
- 11/30/07 09:03:48 (13 months ago)
- Files:
-
- 1 modified
-
trunk/plugins/en/complex_spoonerism.tcl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/plugins/en/complex_spoonerism.tcl
r662 r878 22 22 } 23 23 24 if {[regexp -nocase {^([^%/aeiou. ]+)([aeiuo][a-z]+) ([a-z]+ )?([^aeiou. ]*)([aeiuo][a-z]+)$} $text matches 1 2 3 4 5 6 7]} {24 if {[regexp -nocase {^([^%/aeiou. ]+)([aeiuo][a-z]+) ([a-z]+ )?([^aeiou. ]*)([aeiuo][a-z]+)$} $text matches 1 2 3 4 5 6 7]} { 25 25 if {![string equal -nocase "$4$2 $3$1$5" $text]} { 26 bMotionDoAction $channel $text "%VAR{spoonerisms}" "$4$2 $3$1$5"27 return 126 bMotionDoAction $channel $text "%VAR{spoonerisms}" "$4$2 $3$1$5" 27 return 1 28 28 } 29 }29 } 30 30 } 31 31
