Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:countdown [2006/01/14 00:30] (aktuell)
mirici angelegt
Zeile 1: Zeile 1:
 +====== Countdown-Timer ======
  
 +Der Countdown wird mit ''/​countdown [Sekunden] [Minuten] [Stunden]''​ gestartet.
 +
 +Beispiel: ''/​countdown 30 5''​
 +
 +<code vb>
 +#​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
 +</​code>​

Eigene Werkzeuge