Delete BT.antijoinflood.tcl

BlackTools2.5.2/Protections/BT.antijoinflood.tcl

@@ -1,121 +0,0 @@
-#########################################################################
-##          BlackTools - The Ultimate Channel Control Script           ##
-##                    One TCL. One smart Eggdrop                       ##
-#########################################################################
-#######################   ANTIJOINFLOOD 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 joinflood:unlock {chan modes} {
-	global black
-	putquick "MODE $chan -$modes"
-if {[info exists black(floodjoin:on:$chan)]} {
-	unset black(floodjoin:on:$chan)
-	}
-}
-
-proc joinflood:unset {chan} {
-	global black
-if {[info exists black(antijoinflood:$chan)]} {
-	unset black(antijoinflood:$chan)
-	}
-}
-
-proc joinflood:unset:host {chan host} {
-	global black
-if {[info exists black(antijoinflood:$host:$chan)]} {
-	unset black(antijoinflood:$host:$chan)
-	}
-}
-
-proc joinflood:protect {nick host hand chan} {
-global black
-if {[setting:get $chan antijoinflood]} {
-if {[isbotnick $nick]} { return }
-	set check_webchat [check:webchat $host]
-if {$check_webchat == "1"} {
-	set ident [lindex [split $host "@"] 0]
-	set host "*!$ident@*"
-}
-	set user_getset [setting:get $chan antijoinflood-userset]
-	set getset [setting:get $chan joinflood]
-if {$user_getset == ""} { set user_getset $black(antijoinflood_user_joins) }
-if {$getset == ""} { set getset $black(joinflood:protect) }
-	set user_num [scan $user_getset %\[^:\]]
-	set user_time [scan $user_getset %*\[^:\]:%s]
-	set num [scan $getset %\[^:\]]
-	set time [scan $getset %*\[^:\]:%s]
-	set replace(%chan%) $chan
-	
-if {![info exists black(floodjoin:on:$chan)]} {
-foreach tmr [utimers] {
-if {[string match "*black(antijoinflood:$chan)*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-	}
-}
-if {![info exists black(antijoinflood:$chan)]} { 
-	set black(antijoinflood:$chan) 0 
-}
-	incr black(antijoinflood:$chan)
-	utimer $time [list joinflood:unset $chan]
-if {$black(antijoinflood:$chan) >= "$num"} {
-if {![botisop $chan] && ![setting:get $chan xonly]} { return }
-	set black(floodjoin:on:$chan) 1
-	set modes [joinflood:getmodes $chan]
-if {$modes != ""} {
-	putquick "MODE $chan +$modes" ; utimer $black(nomodetime) [list joinflood:unlock $chan $modes]
-}
-if {$black(fjoinhow) == "1"} {
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set getmessage $black(say.$getlang.antijoinflood.2)
-	set message [string map [array get replace] $getmessage]
-	puthelp "NOTICE @$chan :$message"
-				}
-			}
-		}
-foreach tmr [utimers] {
-if {[string match "*black(antijoinflood:$host:$chan)*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-	}
-}
-if {![info exists black(antijoinflood:$host:$chan)]} { 
-	set black(antijoinflood:$host:$chan) 0 
-}
-	incr black(antijoinflood:$host:$chan)
-	utimer $user_time [list joinflood:unset:host $chan $host]
-if {$black(antijoinflood:$host:$chan) >= "$user_num"} {
-	blacktools:banner:2 $nick "ANTIJOINFLOOD" $chan $chan $host "0"
-	who:chan $chan
-if {[info exists black(antijoinflood:$host:$chan)]} {
-	unset black(antijoinflood:$host:$chan)
-			}
-		}	
-	}
-}
-
-proc joinflood:getmodes {chan} {
-	global black
-	set current_modes [getchanmode $chan]
-	set putmode ""
-	set chanmodes [string map {"+" ""} [split [lindex $current_modes 0] ""]]
-foreach mod [split $black(modes) ""] {
-if {[lsearch $chanmodes $mod] < 0} {
-	lappend putmode $mod
-	}
-}
-	return $putmode	
-}
-	
-##############
-#########################################################################
-##   END                                                               ##
-#########################################################################