Author Topic: Помогите, нужен таймер оставшегося времени в - Лог  (Read 1552 times)

0 Members and 2 Guests are viewing this topic.

Gerasim

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Здравствуйте Уважаемые! Подскажите, есть ли возможность чтобы в окно "Лог" (LOGWRITE), выводилось время обратного отсчета таймера в формате: Осталось: 00.00.00 ? Спасибо!

//Старт таймера
DEFINE($Start, $_time_t + RND(3600, 7200))
IF($Start < $_time_t)
   m_move (RND(1732, 1736), RND(927, 933)) 
LCLICK ($_xmouse, $_ymouse)
    WAIT(RND(38, 58))
   m_move (RND(1825, 1845), RND(75, 100))
      WAITMS(RND(500, 800))
LCLICK ($_xmouse, $_ymouse)
    WAITMS(RND(500, 800))
   m_move (RND(500, 1350), RND(300, 850)) /
    WAITMS(RND(500, 800))
$Start = $_time_t + RND(3600, 7200)
halt
END_IF
WAITMS(50)

Oraven

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3685
  • Котэ
    • View Profile
Да легко! Добавь это в начало скрипта.

Code: (clickermann) [Select]
THREAD(time_log, 1)
   WAIT(1)
   $ts = $Start-$_time_t
   $th = 0
   $tm = 0
   while($ts > 3599)
      INC($ts,-3600)
      INC($th, 1)
   end_cyc
   while($ts > 59)
      INC($ts,-60)
      INC($tm, 1)
   end_cyc
   IF(STRLEN($th)<2)
      $th = STRCONCAT ("0", $th)
   END_IF
   IF(STRLEN($tm)<2)
      $tm = STRCONCAT ("0", $tm)
   END_IF
   IF(STRLEN($ts)<2)
      $ts = STRCONCAT ("0", $ts)
   END_IF
   LOGCLEAR
   LOGWRITE ("Осталось: ", $th,":",$tm,":",$ts)
END_THREAD

Gerasim

  • Зашел в гости
  • *
  • Posts: 2
    • View Profile
Oraven, Спасибо добрая душа!) Работает как часики.

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Это и есть часики  ;D