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

#########################################################################
##          BlackTools - The Ultimate Channel Control Script           ##
##                    One TCL. One smart Eggdrop                       ##
#########################################################################
###########################   VOICEONMSG 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 voiceonmsg:public:me {nick host hand chan keyword arg} {
	global black
if {[string equal -nocase $keyword "ACTION"]} {
	voiceonmsg:public $nick $host $hand $chan $arg
	}
}

proc voiceonmsg:public {nick host hand chan arg} {
	global black
if {![validchan $chan]} {
	return
}
if {[setting:get $chan voiceonmsg]} {
if {[matchattr $hand "nmo|MAOV" $chan]} {
	return
}

if {![info exists black(voiceonmsg:list:$chan)]} {
	set black(voiceonmsg:list:$chan) ""
}
if {[isvoice $nick $chan]} { return }
if {[isop $nick $chan]} { return }
if {![botisop $chan]} { return }
if {![info exists black(voiceonmsg:$host:$chan)]} {
if {[lsearch -exact [string tolower $black(voiceonmsg:list:$chan)]  [string tolower $host]] == -1} {
	lappend black(voiceonmsg:list:$chan) $host
}
	set black(voiceonmsg:$host:$chan) 1
	utimer 300 [list voiceonmsg:remove $host $chan]
	return
}
if {[lsearch -exact [string tolower $black(voiceonmsg:list:$chan)]  [string tolower $host]] == -1} {
	lappend black(voiceonmsg:list:$chan) $host
}
	set current_count $black(voiceonmsg:$host:$chan)
	set black(voiceonmsg:$host:$chan) [expr $current_count + 1]
	
foreach tmr [utimers] {
if {[string match -nocase "*voiceonmsg:remove:expire $host $chan*" [join [lindex $tmr 1]]]} {
	killutimer [lindex $tmr 2]
			}	
		}
	utimer 300 [list voiceonmsg:remove:expire $host $chan]
	set linenum [setting:get $chan voiceonmsg-linenum]
if {$linenum == ""} {
	set linenum $black(voiceonmsg:linenum)
}
if {$black(voiceonmsg:$host:$chan) >= $linenum} {
if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {	
	putserv "PRIVMSG $black(chanserv) :voice $chan $nick"
} else {
	pushmode $chan +v $nick
}
	voiceonmsg:remove $host $chan
		}
	}
}

proc voiceonmsg:remove {host chan} {
	global black
	foreach tmr [utimers] {
if {[string match "*voiceonmsg:remove:expire $host $chan*" [join [lindex $tmr 1]]]} {
	killutimer [lindex $tmr 2]
		}
if {[string match "*voiceonmsg:remove $host $chan*" [join [lindex $tmr 1]]]} {
	killutimer [lindex $tmr 2]
		}
	}
}

proc voiceonmsg:remove:the_list {h chan} {
	global black
if {[info exists black(voiceonmsg:list:$chan)]} {
if {[lsearch -exact [string tolower $black(voiceonmsg:list:$chan)] [string tolower $h]] > -1} {
	set position [lsearch -exact [string tolower $black(voiceonmsg:list:$chan)] [string tolower $h]]
	set black(voiceonmsg:list:$chan) [lreplace $black(voiceonmsg:list:$chan) $position $position]
		}
	}
}

proc voiceonmsg:remove:expire {host chan} {
	global black
	foreach tmr [utimers] {
if {[string match "*voiceonmsg:remove:expire $host $chan*" [join [lindex $tmr 1]]]} {
	killutimer [lindex $tmr 2]
		}
	}
if {[info exists black(voiceonmsg:$host:$chan)]} {
	unset black(voiceonmsg:$host:$chan)
	}
}

proc voiceonmsg:changenick {nick host hand chan newnick} {
	global black
if {![validchan $chan]} {
	return
}
if {[setting:get $chan voiceonmsg]} {
if {[info exists black(voiceonmsg:list:$chan)] && $black(voiceonmsg:list:$chan) != ""} {
	set h $nick
if {[lsearch -exact [string tolower $black(voiceonmsg:list:$chan)] [string tolower $h]] > -1} {
	set position [lsearch -exact [string tolower $black(voiceonmsg:list:$chan)] [string tolower $h]]
	set black(voiceonmsg:list:$chan) [lreplace $black(voiceonmsg:list:$chan) $position $position]
			}
	lappend black(voiceonmsg:list:$chan) $newnick
if {[info exists black(voiceonmsg:$h:$chan)]} {
	set black(voiceonmsg:$newnick:$chan) $black(voiceonmsg:$h:$chan)
	unset black(voiceonmsg:$h:$chan)
			}
		}
	}
}

proc voiceonmsg:part {nick host hand chan arg} {
	global black
	voiceonmsg:remove:expire $host $chan
	voiceonmsg:remove:the_list $host $chan
}

proc voiceonmsg:split {nick host hand chan args} {
	global black
	voiceonmsg:remove:expire $host $chan
	voiceonmsg:remove:the_list $host $chan
}

proc voiceonmsg:kick {nick host hand chan kicked reason} {
	global black
	set kickhost [getchanhost $kicked $chan]
	voiceonmsg:remove:expire $kickhost $chan
	voiceonmsg:remove:the_list $kickhost $chan
}

proc voiceonmsg:timer {chans} {
	global black
	set channels ""
foreach chan $chans {
	lappend channels $chan
	}
if {$channels != ""} {
	voiceonmsg:act $channels 0
	}
}

proc voiceonmsg:act {channels counter} {
	global black
	set chan [lindex $channels $counter]
	set cc [expr $counter + 1]
if {[info exists black(voiceonmsg:list:$chan)] && $black(voiceonmsg:list:$chan) != ""} {
foreach nick [chanlist $chan] {
	set h [getchanhost $nick $chan]
	set position [lsearch -exact [string tolower $black(voiceonmsg:list:$chan)] [string tolower $h]]
if {$position > -1} {
	set handle [nick2hand $nick $chan]
if {![matchattr $handle "-|gf" $chan]} {
	set idletime [setting:get $chan voiceonmsg-idletime]
if {$idletime == ""} {
	set idletime $black(voiceonmsg:idletime)
}
	set idletime [time_return_minute $idletime]
if {[getchanidle $nick $chan] >= $idletime} {
if {[isvoice $nick $chan]} {
if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {	
	putserv "PRIVMSG $black(chanserv) :devoice $chan $nick"
} else {
	utimer 2 [list pushmode $chan -v $nick]
				}
			}	
	voiceonmsg:remove:expire $h $chan
	voiceonmsg:remove:the_list $h $chan
		}
	}
} else {

if {![info exists black(voiceonmsg:$h:$chan)]} {
	voiceonmsg:remove:the_list $h $chan
		} else {	
	voiceonmsg:remove:expire $h $chan
	voiceonmsg:remove:the_list $h $chan
				}
			}
		}
	}
if {[lindex $channels $cc] == ""} {
	return
	} else {
	voiceonmsg:act $channels $cc
	}
}

proc remove:flood:join {chan} {
	global black
if {[info exists black(countflood:join:$chan)]} {
	unset black(countflood:join:$chan)
	}
}

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