Changeset 918

Timestamp:

04/06/2008 10:46:20 (4 months ago)

Author:

james

Message:

new plugin

Files:

• trunk/plugins/en/complex_spoonerism.tcl (modified) (2 diffs)

trunk/plugins/en/complex_spoonerism.tcl

@@ -16 +16 @@
 bMotion_plugin_add_complex "spoon" {^([^%/aeiou. ]+)([aeiuo][a-z]+) ([a-z]+ )?([^aeiou. ]*)([aeiuo][a-z]+)$} 1 bMotion_plugin_complex_spoon "en"
 
+bMotion_plugin_add_complex "spoooooon" {^[b-df-hj-np-tv-xz]+[aeiou]{2}[b-df-hj-np-tv-xz]+[.!?]?$} 40 bMotion_plugin_complex_spoon2 "en"
+
 proc bMotion_plugin_complex_spoon { nick host handle channel text } {
 
@@ -30 +32 @@
 }
 
+proc bMotion_plugin_complex_spoon2 { nick host handle channel text } {
+
+        if (![bMotion_interbot_me_next $channel]) {
+                return 0
+        }
+
+        if [regexp -nocase {([b-df-hj-np-tv-xz]+)([aeiou]{2})([b-df-hj-np-tv-xz]+[.!?]?)} $text matches 1 2 3 4] {
+                bMotionDoAction $channel $text "$1%REPEAT{2:10:$2}$3$4"
+                return 1
+        }
+}
+
+
 bMotion_abstract_register "spoonerisms"
 bMotion_abstract_batchadd "spoonerisms" [list "%% ... more like %2, am i rite?" "%% ... more like %2, am i right?" "%%? More like %2, am I correct?" "/. o O (%2)"]