Autominimize

#NewScriptBegin AutoMinimize
 
Dim IdleTime
Dim LastEv
 
Sub Load()
  IdleTime = 300
  StartTimer 10000, 1
  ResetTimer
End Sub
 
Sub TimerEvent(TimerID)
  NextTime =  LastEv + IdleTime
  if Timer >= NextTime Then
    Send "/hide", 1
    ResetTimer
  end if
End Sub
 
Sub ResetTimer()
  LastEv = Timer
End Sub
 
Sub FrameChange(OldFrameID, NewFrameID)
  ResetTimer
End Sub
 
Sub SendCommand(Text, FrameID)
  ResetTimer
End Sub
 
Sub SendMsg(Text, Channel, FrameID, ConnID)
  ResetTimer
End Sub
 
Sub SendQuery(Text, Receiver, FrameID, ConnID)
  ResetTimer
End Sub
 
Sub SendNotice(Text, Receiver, FrameID, ConnID)
  ResetTimer
End Sub
 
Sub SendDCCMsg(Text, Receiver FrameID, ConnID)
  ResetTimer
End Sub

Eigene Werkzeuge