Changeset 1062 for trunk/modules/output.tcl

Timestamp:

01/16/10 09:06:36 (2 years ago)

Author:

james

Message:

factorise code for using s instead of /me
don't do s if the action starts with a "." (it'll be a "think")

File:

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

trunk/modules/output.tcl

@@ -114 +114 @@
         bMotion_putloglev 5 * "mee ($channel, $action, $urgent)"
         set channel [chandname2name $channel]
+        regsub "^\"(.+)\"?$" $action {\1} action
+        if {([string index $action 0] != ".") && ([rand 10] == 0)} {
+                set action "*$action*"
+        } else {
+                set action "\001ACTION $action\001"
+        }
+
         if {$urgent} {
-                if [rand 10] {
-                        bMotion_queue_add_now $channel "\001ACTION $action\001"
-                } else {
-                        bMotion_queue_add_now $channel "*$action*"
-                }
+                bMotion_queue_add_now $channel $action
         } else {
-                if [rand 10] {
-                        bMotion_queue_add $channel "\001ACTION $action\001"
-                } else {
-                        bMotion_queue_add $channel "*$action*"
-                }
+                bMotion_queue_add $channel $action
         }
 }