tclscripts-BlackTools-TCL/BlackTools/Modules/BT.Idle.tcl

#########################################################################
##          BlackTools - The Ultimate Channel Control Script           ##
##                    One TCL. One smart Eggdrop                       ##
#########################################################################
#############################   IDLE TCL   ##############################
#########################################################################
##						                       ##
##   BlackTools  : http://blacktools.tclscripts.net	               ##
##   Bugs report : http://www.tclscripts.net/	                       ##
##   GitHub page : https://github.com/tclscripts/BlackToolS-TCL        ##
##   Online Help : irc://irc.undernet.org/tcl-help 	               ##
##                 #TCL-HELP / UnderNet                                ##
##                 You can ask in english or romanian                  ##
##					                               ##
#########################################################################

proc antidle:process {why type user host nick hand chan chan1} {
global botnick black
	set show_user $user
	set flag "-|+f"
	set handle [nick2hand $user]
if {[matchattr $hand q]} { 
	blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
	return
}
if {[matchattr $hand -|q $chan]} { 
	blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
	return
}
if {($why == "") && ($type == "0")} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "idle"
	return
}
if {($why == "") && ($type == "1")} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "idle"
	return
}
if {($why == "") && ($type == "2")} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "idle"
	return
}
if {![validchan $chan]} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
	return
}

if {![onchan $botnick $chan]} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
	return
}

switch [string tolower $why] {

+o {
	antidle:set $chan
	setting:set $chan +idleop ""
	blacktools:tell $nick $host $hand $chan $chan1 idle.11 none
}
-o {
	setting:set $chan -idleop ""
	blacktools:tell $nick $host $hand $chan $chan1 idle.12 none
	antidle:unset $chan
}
-ho {
	setting:set $chan -idlehalfop ""
	blacktools:tell $nick $host $hand $chan $chan1 idle.26 none
	antidle:unset $chan
}
+v {
	antidle:set $chan
	setting:set $chan +idlevoice ""
	blacktools:tell $nick $host $hand $chan $chan1 idle.14 none
}
+ho {
	antidle:set $chan
	setting:set $chan +idlehalfop ""
	blacktools:tell $nick $host $hand $chan $chan1 idle.25 none
}
-v {
	setting:set $chan -idlevoice ""
	blacktools:tell $nick $host $hand $chan $chan1 idle.15 none
	antidle:unset $chan
}

add {

if {$user == ""} {
if {$type == "0"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "idle"
	return
}
if {$type == "1"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "idle"
}
	return
}

if {[onchan $user $chan]} {
	set getuser [nick2hand $user]
if {$getuser != "*"} {
	set user $getuser
	}
}

if {[validuser $user]} { 
	chattr $user $flag $chan	
	blacktools:tell $nick $host $hand $chan $chan1 idle.18 $show_user
} else {
	
	set hosts [getchanhost $user $chan]
	set uhost "*!*@[lindex [split $hosts @] 1]"
	adduser $user $uhost
	chattr $user $flag $chan
	blacktools:tell $nick $host $hand $chan $chan1 idle.19 "$show_user $uhost"
	}
}

list {
	set list [userlist "-|f" $chan]
	blacktools:tell $nick $host $hand $chan $chan1 idle.20 "none"
if {$list == ""} {set list "NONE"}
	blacktools:tell $nick $host $hand $chan $chan1 idle.21 "$list"
}

del {

if {$user == ""} {
if {$type == "0"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "idle"
	return
}
if {$type == "1"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "idle"
}
	return
}

if {[onchan $user $chan]} {
	set getuser [nick2hand $user]
if {$getuser != "*"} {
	set user $getuser
	}
}

if {![validuser $user]} { 
	blacktools:tell $nick $host $hand $chan $chan1 idle.22 "$show_user"
	return
}

if {![matchattr $user "-|f" $chan]} {
	blacktools:tell $nick $host $hand $chan $chan1 idle.23 "$show_user"
	return
}
	chattr $user -|-f $chan
	blacktools:tell $nick $host $hand $chan $chan1 idle.24 "$show_user"
}

default {
	
if {$type == "0"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "idle"
	return
}
if {$type == "1"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "idle"
			}
		}
	}
}

proc antidle:unset {chan} {
	global black
	set idle_activ 0
	set options {idleop idlevoice idlehalfop}
foreach option $options {
	if {[setting:get $chan $option]} {
	set idle_activ 1
	}
}
if {$idle_activ == "0"} {
if {[info exists black(idle:$chan:timer_start)]} {
	unset black(idle:$chan:timer_start)
			}
if {[info exists black(idle:counter:$chan)]} {
	unset black(idle:counter:$chan)
		}
	}	
}

proc antidle:set {chan} {
	global black
	set idle_activ 0
	set options {idleop idlevoice idlehalfop}
foreach option $options {
	if {[setting:get $chan $option]} {
	set idle_activ 1
	}
}

if {$idle_activ == "0"} {
if {[setting:get $chan idle-scantime] != ""} {
	set time [setting:get $chan idle-scantime]
		} else {
	set time $black(idleinterval)
		}
	set scan_time [time_return_minute $time]
	set black(idle:$chan:timer_start) $scan_time
	}
}

proc antidle:module {chans} {
	global black
	set channels ""
foreach chan $chans {
if {[validchan $chan]} {
if {[info exists black(secure_mode:$chan)]} {continue}
	lappend channels $chan
		}
	}
if {$channels != ""} {
	idlewhois $channels 0
	}
}

proc idlewhois {channels counter} {
global black botnick
	set chan [lindex $channels $counter]
	set cc [expr $counter + 1]
if {$chan != ""} {
	black:check:idle $chan
	utimer 30 [list idlewhois $channels $cc] 
} else {
	return
	}
}

proc black:check:idle {chan} {
	global black
	set ::idle_chan $chan
foreach user [chanlist $chan] {
	set handle [nick2hand $user]
if {[isop $user $chan] || [isvoice $user $chan] || [ishalfop $user $chan]} {
if {![isbotnick $user]} { 
	putserv "WHOIS $user $user"
				}
			}
		}
	bind raw - 317 idleprocespublic
}

proc idleprocespublic {nick int arg} {
global black
	set nick [string tolower [lindex [split $arg] 1]]
	set handle [nick2hand $nick]
	set idler [string tolower [lindex [split $arg] 2]]
	set minutesidle [expr $idler / 60]
	set chan $::idle_chan
if {[onchan $nick $chan]} {
	set idlevoicetime [setting:get $chan idlevoicemax]
if {$idlevoicetime == ""} { set idlevoicetime "$black(idlevoicemax)" }
	set idleoptime [setting:get $chan idleopmax]
if {$idleoptime == ""} { set idleoptime "$black(idleopmax)" }
	set idlehalfoptime [setting:get $chan idlehalfopmax]
if {$idlehalfoptime == ""} { set idlehalfoptime "$black(idlehalfopmax)" }
	set idlevoicetime [time_return_minute $idlevoicetime]
	set idleoptime [time_return_minute $idleoptime]
	set idlehalfoptime [time_return_minute $idlehalfoptime]
if {![info exists black(voiceonmsg:$nick:$chan)]} {
if {[setting:get $chan idlevoice]} {
if {(![matchattr $handle "-|gf" $chan]) && [isvoice $nick $chan]} {
if {$minutesidle > $idlevoicetime} {
if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
	putserv "PRIVMSG $black(chanserv) :devoice $chan $nick"
} else {
	pushmode $chan -v $nick
			}
		}
	}
}

if {[setting:get $chan idleop]} {
if {(![matchattr $handle "-|af" $chan]) && [isop $nick $chan]} {
if {$minutesidle > $idleoptime} {
if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
	putserv "PRIVMSG $black(chanserv) :deop $chan $nick"
} else {
	pushmode $chan -o $nick
						}
					}
				}
			}
if {[setting:get $chan idlehalfop]} {
if {(![matchattr $handle "-|f" $chan]) && [ishalfop $nick $chan]} {
if {$minutesidle > $idlehalfoptime} {
if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
	return
} else {
	pushmode $chan -h $nick
						}
					}
				}
			}
		}
	}
}

##############
#########################################################################
##   END                                                               ##
#########################################################################