Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:stoppuhr [2005/05/25 03:17]
192.168.0.50
nettalk:scripting:stoppuhr [2005/07/08 21:15] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== Beispielscript ======
  
 +Das Folgende Beispiel-Script kann z.B. mit /call beepme 125 gestartet werden. Es meldet sich dann nach Ablauf der 125 Sekunden mit einer Massage-Box und einem akustischen Signal. Zudem wird alle 30 Sekunden angezeigt, wie lange es noch dauert bis die Zeit herum ist.
 +
 +<code vb>
 +#​NewScriptBegin Timerscript
 +
 +Dim TimePoint
 +
 +Sub BeepMe(Zeit)
 +  If Zeit > 30 Then
 +    StartTimer 30000, 1
 +  Else
 +    StartTimer Zeit*1000, 1
 +  End if
 +  TimePoint = Timer + Zeit
 +  Print "* Die Uhr läuft..."​
 +End Sub
 +
 +Sub TimerEvent(TimerID)
 +  if TimerID = 1 Then
 +    If Timer > TimePoint Then
 +      StopTimer 1
 +      Send "/​playbeep"​
 +      MsgBox "Die Zeit ist rum! Es ist jetzt " + Time + " Uhr."
 +    Else
 +      Print "* Noch " + Str(TimePoint - Timer) + " Sekunden..."​
 +      if TimePoint - Timer < 30 then StartTimer (TimePoint - Timer)*1000,​ 1
 +    End If
 +  End If
 +End Sub
 +</​code>​

Eigene Werkzeuge