Как вывести визульное отображение таймера Sleep ?

[BoxaH]

Подскажите пож, сделал кликер на игру, в нем в определенный период запускается таймер на 30 минут, меня интересует как сделать так чтобы отсчет таймера был виден визуально? Заранее спасибо.

 

[SECTOR]

Может сойдет

_Sleep(15) ; Таймер на 15 секунд
MsgBox(0,"Пауза...","Время вышло :)")

Func _Sleep($iSec,$iX=10,$iY=10)

	Local $hTimer = TimerInit(), $iTimer = 0

	Do
		$iTimer = Round(TimerDiff($hTimer)/1000,0)
		ToolTip("Прошло "&$iTimer&" из "&$iSec&" секунд...",$iX,$iY,"Пауза...")
		Sleep(250)
	Until $iTimer >= $iSec

	ToolTip("")

EndFunc

 

[Kalisnik]

Dim $Time, $Time_H, $Time_M, $Time_C

While 1
	Sleep(1000)
	$Time += 1
	$Time_H = Floor($Time / 3600)
	$Time_M = Floor(($Time - ($Time_H * 3600)) / 60)
	$Time_C = ($Time - ($Time_H * 3600)) - ($Time_M * 60)
	ConsoleWrite($Time_H & ":" & $Time_M & ":" & $Time_C & @CRLF)
	If $Time_M = 30 Then
		MsgBox(0, "Сообщение!", $Time_M & " минутный период таймера закончен!")
		ExitLoop
	EndIf
WEnd

 

[BoxaH]

Sektor спасибо, то что нужно.