Changeset 1082 for trunk/plugins/en/output_VAR.tcl

Timestamp:

08/26/10 11:32:47 (21 months ago)

Author:

james

Message:

reduced lolcats chance
added output to "and then"
trigger fixes for r, luggage combination and look robot
fix priority on typos plugin
new "triplet" macro filter which gets a const-vowel-const triplet from the word
new "pretriplet" macro filter to use with "triplet"
fixed output_append to actually fire
make "cool" a stopwor for spoonerism
more grammar nazism
fix broken output being sent to IRC
adjust lower friendship limit slightly
many updates to abstracts
fix queue not adding last output to cache
guard code in interbot

File:

• trunk/plugins/en/output_VAR.tcl (modified) (3 diffs)

trunk/plugins/en/output_VAR.tcl

@@ -110 +110 @@
                                         set replacement [bMotion_plugins_settings_get "output:VAR" "last" $channel "$abstract"]
                                 }
+                                "prevtriplet" {
+                                        set replacement [bMotion_plugins_settings_get "output:VAR" "last:pretriplet" $channel $abstract]
+                                }
                                 "strip" {
                                         set replacement [bMotion_strip_article $replacement]
@@ -139 +142 @@
                                         set replacement [string toupper $replacement]
                                 }
+                                "triplet" {
+                                        bMotion_plugins_settings_set "output:VAR" "last:pretriplet" $channel $abstract $replacement
+                                        set temp [bMotion_find_triplet $replacement]
+                                        if {$temp == ""} {
+                                                putlog "triplet is blank"
+                                                return ""
+                                        }
+                                        set replacement $temp
+                                }
+                                        
                         }
                         bMotion_putloglev 1 * "current replacement is $replacement"
@@ -160 +173 @@
 }
 
+proc bMotion_find_triplet { word } {
+  set start 0
+        if {[string length $word] < 3} {
+                return ""
+        }
+
+        set results [list]
+
+        while {[regexp -start $start -nocase -indices {([^aeiou ][aeiou][^aeiou ])} $word matches a]} {
+                lappend results [string range $word [lindex $a 0] [lindex $a 1]]
+                set start [lindex $a 1]
+        }
+
+        if {[llength $results] == 0} {
+                return ""
+        }
+
+        return [pickRandom $results]
+}
 
 bMotion_plugin_add_output "VAR" bMotion_plugin_output_VAR 1 "en" 3