Countdown-Timer

Der Countdown wird mit /countdown [Sekunden] [Minuten] [Stunden] gestartet.

Beispiel: /countdown 30 5

#NewScriptBegin CountDownClock
 
Dim EndTime
Dim AlertCount
 
Sub Load()
  MakeShortcut "", "countdown", "/call CountDownClock.StartCountDown $1 $2 $3"
End Sub
 
Sub StartCountDown(TimeS, TimeM, TimeH)
  StartTimer 1000, 1
  EndTime = Timer + Val(TimeS)+Val(TimeM)*60+Val(TimeH)*3600
  AlertCount=10
End Sub
 
Sub TimerEvent(TimerID)
  if EndTime-Timer < 0 Then
    StopTimer 1
    ShowInfo ""
    StartTimer 500, 2, "PlayAlert"
    PlayAlert
  Else
    Minu = (EndTime-Timer) \ 60
    Seku = (EndTime-Timer) mod 60
    ShowInfo Format(Minu, "00") & ":" & Format(Seku, "00"), valcGreen, 0, 0, 32
  End if
End Sub
 
Sub PlayAlert(TimerID)
  AlertCount=AlertCount-1
  if AlertCount = 0 Then StopTimer 2
  BeepString "2500/100"
End Sub