Changeset 1057 for trunk/modules/output.tcl

Timestamp:

12/09/09 19:00:33 (2 years ago)

Author:

james

Message:

allow actions to be expressed in stars instead of a /me sometimes

File:

• trunk/modules/output.tcl (modified) (1 diff)

trunk/modules/output.tcl

@@ -115 +115 @@
         set channel [chandname2name $channel]
         if {$urgent} {
-                bMotion_queue_add_now $channel "\001ACTION $action\001"
+                if [rand 10] {
+                        bMotion_queue_add_now $channel "\001ACTION $action\001"
+                } else {
+                        bMotion_queue_add_now $channel "*$action*"
+                }
         } else {
-                bMotion_queue_add $channel "\001ACTION $action\001"
+                if [rand 10] {
+                        bMotion_queue_add $channel "\001ACTION $action\001"
+                } else {
+                        bMotion_queue_add $channel "*$action*"
+                }
         }
 }