TCL Idle kick

## Set this to the maximum time of idle (in minutes).
set maxidle 30

## Reason of the boot message.
#set reason "Temporaly Klined for $maxidle minutes of idle"
                          
bind time - "05 * * * *" checked
bind time - "10 * * * *" checked
bind time - "15 * * * *" checked
bind time - "20 * * * *" checked
bind time - "25 * * * *" checked
bind time - "30 * * * *" checked
bind time - "35 * * * *" checked
bind time - "40 * * * *" checked
bind time - "45 * * * *" checked
bind time - "50 * * * *" checked
bind time - "55 * * * *" checked
bind time - "00 * * * *" checked

proc checked {min hour day month year} {
  global maxidle botnet-nick reason
  foreach stuff [whom *] {
        set user [lindex $stuff 0]
        set bot [lindex $stuff 1]            
    putlog "$user || $bot || ${botnet-nick}"
    if {$bot == ${botnet-nick}} {
          if {[matchattr $user n]} {
                return
          }
      set idx [hand2idx $user]
          set idletime [expr [getdccidle $idx].0 / 60]
          if {$idletime > $maxidle} {
            putdcc $idx "(Temporaly Klined for $maxidle minutes of idle)"
            dccbroadcast "Quit $user (Temporaly Klined for $maxidle Minutes Of Idle)"
                killdcc $idx
                return
          }
    }
  }
}
putlog "BotNet Anti-Idle by IRCHelp.UniBG.Net+LHG Crew Loaded !!!"