Changeset 923

Timestamp:

10/06/2008 06:54:56 (3 months ago)

Author:

james

Message:

fix

Files:

• trunk/plugins/en/complex_spoonerism.tcl (modified) (1 diff)

trunk/plugins/en/complex_spoonerism.tcl

@@ -38 +38 @@
         }
 
-        if [regexp -nocase {([b-df-hj-np-tv-xz]+)([aeiou]{2})([b-df-hj-np-tv-xz]+[.!?]?)} $text matches 1 2 3 4] {
+        if [regexp -nocase {([b-df-hj-np-tv-xz]+)(([aeiou])\3)([b-df-hj-np-tv-xz]+[.!?]?)} $text matches 1 2 3 4] {
                 bMotionDoAction $channel $text "$1%REPEAT{2:10:$2}$3$4"
                 return 1