Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:autominimize [2010/04/24 17:13]
mirici
nettalk:scripting:autominimize [2010/04/24 17:49] (aktuell)
mirici
Zeile 4: Zeile 4:
  
 Dim IdleTime Dim IdleTime
 +Dim LastEv
  
 Sub Load() Sub Load()
   IdleTime = 300   IdleTime = 300
-  StartTimer ​IdleTime * 1000, 1+  StartTimer ​10000, 1 
 +  ResetTimer
 End Sub End Sub
  
 Sub TimerEvent(TimerID) Sub TimerEvent(TimerID)
-  Send "/​hide",​ 1+  ​NextTime =  LastEv + IdleTime 
 +  if Timer >= NextTime Then 
 +    ​Send "/​hide",​ 1 
 +    ResetTimer 
 +  end if 
 +End Sub 
 + 
 +Sub ResetTimer() 
 +  LastEv = Timer
 End Sub End Sub
  
 Sub FrameChange(OldFrameID,​ NewFrameID) Sub FrameChange(OldFrameID,​ NewFrameID)
-  ​StartTimer IdleTime * 1000, 1+  ​ResetTimer
 End Sub End Sub
  
 Sub SendCommand(Text,​ FrameID) Sub SendCommand(Text,​ FrameID)
-  ​StartTimer IdleTime * 1000, 1+  ​ResetTimer
 End Sub End Sub
  
 Sub SendMsg(Text,​ Channel, FrameID, ConnID) Sub SendMsg(Text,​ Channel, FrameID, ConnID)
-  ​StartTimer IdleTime * 1000, 1+  ​ResetTimer
 End Sub End Sub
  
 Sub SendQuery(Text,​ Receiver, FrameID, ConnID) Sub SendQuery(Text,​ Receiver, FrameID, ConnID)
-  ​StartTimer IdleTime * 1000, 1+  ​ResetTimer
 End Sub End Sub
  
 Sub SendNotice(Text,​ Receiver, FrameID, ConnID) Sub SendNotice(Text,​ Receiver, FrameID, ConnID)
-  ​StartTimer IdleTime * 1000, 1+  ​ResetTimer
 End Sub End Sub
  
 Sub SendDCCMsg(Text,​ Receiver FrameID, ConnID) Sub SendDCCMsg(Text,​ Receiver FrameID, ConnID)
-  ​StartTimer IdleTime * 1000, 1+  ​ResetTimer
 End Sub End Sub
 </​code>​ </​code>​

Eigene Werkzeuge