## 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 !!!"
Published in: TCL
Download

Related snippets