Dies ist eine alte Version des Dokuments!


Text-Timer

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

Beispiel: /intervsend 30 5 0 Hallo

#NewScriptBegin IntervSend
 
Dim EndTime
Dim Interv
Dim TextToSend
Dim CurrFrame
 
Sub Load()
  MakeShortcut "", "intervsend", "/call IntervSend.StartCountDown $1 $2 $3 :$>4"
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

Eigene Werkzeuge