Changeset 1082 for trunk/plugins/en/output_append.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_append.tcl (modified) (5 diffs)

trunk/plugins/en/output_append.tcl

@@ -15 +15 @@
 
 proc bMotion_plugin_output_append { channel line } {
-        if {([string length $line] > 10) && ([rand 100] > 90)} {
+        putlog "running append plugin"
+        set length [string length $line]
+        set n [rand 100]
+        bMotion_putloglev d * "output_append: length=$length, n=$n"
+        if {($length > 10) && ($n > 90)} {
+                bMotion_putloglev d * "output_append: doing!"
                 set line [string trim $line]
                 # make sure the line ends with a letter (other than D)
@@ -23 +28 @@
                         if [regexp -nocase {[a-ce-z]$} $line] {
                                 append line "%VAR{appends}"
+                        } else {
+                                bMotion_putloglev d * "output_append: not appending to this line as it may end in a smiley"
                         }
                 } else {
-                        if {![regexp {^[:;=/]} $line} {
+                        if {![regexp {^[:;=/]} $line]} {
                                 # don't do this for /me type lines and smilies
                                 return $line
@@ -31 +38 @@
                         set line "%VAR{prepends} $line"
                 }
+                bMotion_putloglev d * "output_append: preprocessed line is $line"
 
-                set line [bMotionDoInterpolation $line "" "" $channel]
+                set line [bMotion_process_macros $channel $line]
+                regsub -all "%space" $line " " line
 
+                bMotion_putloglev d * "output_append: postprocessed line is $line"
         }
         return $line
@@ -57 +67 @@
         ", i think"
         "%spaceor something totally different perhaps"
+        "%spacein the butt"
+        "%spacein a vagina"
 }
 bMotion_abstract_add_filter "appendslist" "^ "
@@ -86 +98 @@
 bMotion_abstract_add_filter "narfs" {^[^ ]}
 
-bMotion_plugin_add_output "append" bMotion_plugin_output_append 1 "en" 1
+bMotion_plugin_add_output "append" bMotion_plugin_output_append 1 "en" 11