====== Text-Timer ======

Der Countdown wird mit ''/intervsend [Sekunden] [Minuten] [Stunden] [Text]'' gestartet.

Beispiel: ''/intervsend 30 5 0 Hallo''

<code vb>
#NewScriptBegin IntervSend

Dim EndTime
Dim Interv
Dim TextToSend
Dim CurrFrame

Sub Load()
  MakeShortcut "", "intervsend", "/call IntervSend.StartCountDown $1 $2 $3 :$>3"
End Sub

Sub StartCountDown(TimeS, TimeM, TimeH, Text)
  StartTimer 1000, 1
  TextToSend = Text
  CurrFrame = FrontFrameID
  Interv = Val(TimeS) + Val(TimeM) * 60 + Val(TimeH) * 3600
  EndTime = Timer + Interv 
End Sub

Sub TimerEvent(TimerID)
  if EndTime-Timer < 0 Then
    EndTime = Timer + Interv
    Send TextToSend, CurrFrame
  End if

  Minu = (EndTime-Timer) \ 60
  Seku = (EndTime-Timer) mod 60
  ShowInfo Format(Minu, "00") & ":" & Format(Seku, "00"), valcGreen, 0, 0, 32
End Sub

</code>