Подсчет длительности события

[iggi]

Здравствуйте.
На экране есть неподвижный объект, который может принимать 3 разных значения цвета, произвольное время.
Он может быть черный, белый, зеленый.
Нужно подсчитывать только время, пока объект черный. Когда сумма промежутков времени, во время которых объект был черным, превысит 10 часов, нужно остановить скрипт.
Подскажите, как это сделать средствами кликермана?

[Oraven]

Code: (clickermann) [Select]

GETSCREEN(360,681,360,681)
IF(PXL(360,681) = 16777215)
   DEFINE($time, $_time_t)
   $tс = $_time_t-$time
ELSE
   IF($time > 0)
      $ts = $ts+($_time_t-$time)
      UNDEFINE($time)
      UNDEFINE($tс)
   END_IF
END_IF
WAITMS(100) // задержка между анализами

LOGCLEAR
LOGWRITE ("Общее время: ", $ts+$tс, " сек")
LOGWRITE ("Текущее время: ", $tс, " сек")

IF($ts+$tс > 36000)
   HALT
END_IF

[iggi]

Спасибо!