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
Sie befinden sich hier: start » nettalk » scripting » timerbefehl