Timer Befehl

Die Syntax zum aufrufen ist /timer VERZÖGERUNG BEFEHL

Die Verzögerung wird in Millisekunden angegeben.

Beispiele:

/timer 5000 /print Hallo ich binn da!
/timer 1000 /msg #Nettalk Hallo was macht ihr?
/timer 500 /msg NickServ help

#NewScriptBegin TimerForNettalk
 
Dim tID
 
Sub Load()
  MakeShortcut "", "timer", "/call TimerForNettalk.StartTextTimer $1 :$(room)\\-->$>1", 2
  tID=0
End Sub
 
Sub StartTextTimer(Delay, Data)
  I = InStr(1, Data, "\\-->")
  FrameTitel = Left(Data, I - 1)
  Text = Mid(Data, I + 5)
  If Val(Delay) > 0 and Val(Delay) < 32000 Then
    tID=tID+1
    if tID > 32 Then tID = 1
    textlist(tID)=Text
    if GetCaption(FrontFrameID) = FrameTitel Then
      connlist(tID)=FrontFrameID
    else
      connlist(tID)=GetStateFrame(GetConnByName(FrameTitel))
    end if
    StartTimer Val(Delay), tID, "TimerEvent", 1
  End if
End Sub
 
Sub TimerEvent(TimerID)
  send textlist(TimerID), connlist(TimerID)
End Sub