AutoAwayScript

#NewScriptBegin AutoAwayScript
 
Dim LastMsgTime
Dim IdelMaxTime
Dim MeIsAway
 
Sub Load()
  'Auto-Away-Time in Sekunden:
  IdelMaxTime = 120
 
  LastMsgTime = Timer
  StartTimer 10000
End Sub
 
Sub TimerEvent(TimerID)
  If Val(Timer) > (LastMsgTime + IdelMaxTime) Then
    if MeIsAway=0 Then
      MeIsAway=1
      SendAwayMess
    End if
  Else
    MeIsAway=0
  End if
End Sub
 
Sub SendAwayMess()
  LastC = 0
  i=1
  do until i > FrameCount
    i2=GetFrameByIndex(i)
    If LastC <> GetConn(i2) Then
      Send "/away bin weg", i2
      LastC = GetConn(i2)
    End if
    i=i+1
  loop
  GetChannels = Data
End Sub
 
Sub SendQuery(Text, Receiver, FrameID, ConnID)
  LastMsgTime = Timer
End Sub
 
Sub SendMsg(Text, Channel, FrameID, ConnID)
  LastMsgTime = Timer
End Sub

Eigene Werkzeuge