automsg

#NewScriptBegin IntervSend

Dim EndTime
Dim Interv
Dim TextToSend
Dim CurrFrame

Sub Load()
  MakeShortcut "", "auto", "/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
End Sub