Changeset 1082 for trunk/plugins/en/complex_spoonerism.tcl
- Timestamp:
- 08/26/10 11:32:47 (21 months ago)
- File:
-
- 1 edited
-
trunk/plugins/en/complex_spoonerism.tcl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/plugins/en/complex_spoonerism.tcl
r1046 r1082 56 56 57 57 if [regexp -nocase {([b-df-hj-np-tv-xz]+)(([aeiou])\3)([b-df-hj-np-tv-xz]+[.!?]?)} $text matches 1 2 3 4] { 58 if {$matches == "cool"} { 59 return 0 60 } 58 61 bMotionDoAction $channel $text "$1%REPEAT{2:10:$2}$3$4" 59 62 return 1
Note: See TracChangeset
for help on using the changeset viewer.
