Changeset 997 for trunk/modules/system.tcl

Timestamp:

04/16/09 07:14:29 (3 years ago)

Author:

james

Message:

misc small fixes

File:

• trunk/modules/system.tcl (modified) (4 diffs)

trunk/modules/system.tcl

@@ -119 +119 @@
         if {$last_event == 0} {
                 bMotion_putloglev d * "last event info for $channel not available"
+                # force it to be now
+                set bMotionLastEvent($channel) [clock seconds]
                 # assume we're ok
                 return 1
@@ -1003 +1005 @@
                         catch {
                                 foreach chan $bMotionChannels {
-                                        if [bMotion_is_active_enough $chan] {
+                                        if [bMotion_did_i_speak_last $chan] {
                                                 bMotion_putloglev 3 * "sending sleeping output to $chan"
-                                                bMotionDoAction $chan "" "%VAR{go_sleeps}"
+                                                if [rand 2] {
+                                                        bMotionDoAction $chan "" "%VAR{go_sleeps}"
+                                                }
                                         }
                                 }
@@ -1041 +1045 @@
                                 if {![bMotion_did_i_speak_last $chan]} {
                                         bMotion_putloglev 3 * "sending waking output to $chan"
-                                        bMotionDoAction $chan "" "%VAR{wake_ups}"
+                                        if [rand 2] {
+                                                bMotionDoAction $chan "" "%VAR{wake_ups}"
+                                        }
                                 }
                         }
@@ -1122 +1128 @@
 proc bMotion_did_i_speak_last { channel } {
         global bMotionCache
+
+        bMotion_putloglev d * "Checking if I spoke last in $channel"
         
         catch {
+                bMotion_putloglev 1 * "Cache(last) for $channel is $bMotionCache($channel,last)"
                 return $bMotionCache($channel,last)
         }