Delete BT.VoiceOnMsg.tcl

BlackTools2.5.2/Modules/BT.VoiceOnMsg.tcl

@@ -1,216 +0,0 @@
-#########################################################################
-##          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-script ##
-##   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                                                               ##
-#########################################################################