Zeitverzögertes Rejoin

#NewScriptBegin AutoRejoin
 
Dim LastChan
 
Sub Chan_Kick(Receiver, Nick, KickMsg, Channel, FrameID)
  If Receiver = GetVal(GetConn(FrameID), 5) Then
    StartTimer 3000, 0, "TimerEvent", 1
    LastChan = FrameID
  End if
End Sub
 
Sub TimerEvent(TimerID)
  Send "/rejoin", LastChan
End Sub

Eigene Werkzeuge