Changeset 990 for trunk/plugins/en/output_append.tcl

Timestamp:

02/10/09 15:34:10 (3 years ago)

Author:

james

Message:

more appendages

File:

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

trunk/plugins/en/output_append.tcl

@@ -15 +15 @@
 
 proc bMotion_plugin_output_append { channel line } {
-        if {([string length $line] > 10) && ([rand 100] > 98)} {
+        if {([string length $line] > 10) && ([rand 100] > 75)} {
                 set line [string trim $line]
                 # make sure the line ends with a letter (other than D)
@@ -48 +48 @@
         ", in accordance with the prophecy"
         ", in accordance with my master's thesis on the Legend of Zelda"
-        " and you're sitting in it right now"
-        " but it's nothing sexual"
+        "%spaceand you're sitting in it right now"
+        "%spacebut it's nothing sexual"
         ". In my pants"
         ". you poof!"
+        "%space\[citation needed\]"
 }
+bMotion_abstract_add_filter "appendslist" "^ "
 
 bMotion_abstract_register "narfs" {