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.

#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