Changeset 992

Timestamp:

02/11/09 19:11:50 (3 years ago)

Author:

james

Message:

moo

File:

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

trunk/plugins/en/output_append.tcl

@@ -15 +15 @@
 
 proc bMotion_plugin_output_append { channel line } {
-        if {([string length $line] > 10) && ([rand 100] > 75)} {
+        if {([string length $line] > 10) && ([rand 100] > 90)} {
                 set line [string trim $line]
                 # make sure the line ends with a letter (other than D)
@@ -25 +25 @@
                         }
                 } else {
-                        if {[string first "/" $line] == 0} {
-                                # don't do this for /me type lines
+                        if {![regexp {^[:;=/]} $line} {
+                                # don't do this for /me type lines and smilies
                                 return $line
                         }
@@ -53 +53 @@
         ". you poof!"
         "%space\[citation needed\]"
+        "%spacebut that's just one bot's opinion"
+        "%spacebut what would I know"
+        ", i think"
+        "%spaceor something totally different perhaps"
 }
 bMotion_abstract_add_filter "appendslist" "^ "
@@ -74 +78 @@
   "well,"
   "so, like,"
+        "r"
 }