Sleep Count-down Timer

[MattNis]

Sometimes usefull if you use a very long sleep command and want to know how soon it will be over

$time = time in seconds (not milliseconds)

Version 1

Opt("TrayIconDebug",1)

_sleep(500)

func _sleep($time)

    for $k = 1 to $time
  TrayTip("clear","", 0);
  TrayTip("",$time - $k, 1);
  Sleep(1000);
    next
  
endfunc

Version 2

Opt("TrayIconDebug",1)
HotKeySet("!z", "_timerDisplay")

_sleep(500)

func _sleep($time)
      Global $timer = $time
      Global $Begin = TimerStart()
      Sleep($timer*1000)
endfunc

func _timerDisplay()
      TrayTip("clear","",0)
      TrayTip("",Round(((1000*$timer)-TimerStop($Begin))/1000), 1)
endfunc

Edited March 23, 2004 by MattNis

[Dev]

Nice

:iamstupid: