Delete BT.CloneScan.tcl

BlackTools2.5.2/Modules/BT.CloneScan.tcl

@@ -1,131 +0,0 @@
-#########################################################################
-##          BlackTools - The Ultimate Channel Control Script           ##
-##                    One TCL. One smart Eggdrop                       ##
-#########################################################################
-###########################   CLONESCAN 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 scanner:process {nick host hand chan chan1 type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "clonescan" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	array set clones [list]
-	if {$chan == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "clonescan"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "clonescan"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "clonescan"
-		}
-	}
-	return 0
-}
-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
-}
-	blacktools:tell $nick $host $hand $chan $chan1 clonescan.11 none
-	clonescan:act $chan $nick $hand $chan1 $type 0
-}
-
-proc clonescan:timer {chans} {
-	global black
-	set type 1
-foreach chan $chans {
-if {[validchan $chan]} {
-	lappend channels $chan
-		}
-	}
-if {$channels != ""} {
-	clonescan:act $channels "nick" "" "chan1" $type 0
-	}
-}
-
-proc clonescan:act {channels nick hand chan1 type counter} {
-	global black
-	set chan [lindex $channels $counter]
-	set cc [expr $counter + 1]
-	set found_clones 0
-	set found_mask ""
-	set theclones ""
-	array set clones [list]
-if {$chan != ""} {
-	set replace(%chan%) $chan
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-if {[setting:get $chan clonescan-maxclone] == "0" || [setting:get $chan clonescan-maxclone] == ""} {
-	set maxclone $black(maxclone)
-} else { set maxclone [setting:get $chan clonescan-maxclone] }
-if {$maxclone < "2"} { return }
-foreach user [chanlist $chan] {
-	set host [string tolower [lindex [split [getchanhost $user $chan] @] 1]]
-	set findword [prot:findword $chan "CLONESCAN-EXCEPT" $host]
-if {$findword == "1"} {
-	continue
-}
-if {[string match "*undernet.org*" $host]} {
-	continue
-}
-
-	set replace(%host%) $host
-	lappend clones($host) $user
-}
-foreach clone [array names clones] {
-	set userlist [join $clones($clone)]
-if {[llength [split $userlist]] >= $maxclone} {
-	set found_clones 1
-	lappend found_mask $clone
-	lappend theclones $clones($clone)
-if {$type == "0"} {
-	blacktools:tell $nick "" $hand $chan $chan1 clonescan.10 "[llength [split $userlist]] $clone [join $clones($clone) ", "]"
-		}
-	}
-}
-if {$found_clones == "1"} {
-if {$type == "1"} {
-	set replace(%msg.1%) [llength [split $theclones]]
-	set replace(%msg.2%) $found_mask
-	set replace(%msg.7%) [join $theclones " ,"]
-	set replace(%chan%) $chan
-	set text [black:color:set "" $black(say.$getlang.clonescan.10)]
-	set message [string map [array get replace] $text]
-	putserv "NOTICE @$chan :$message"
-foreach m $found_mask {
-	set mask "*!*@$found_mask"
-	blacktools:banner:2 $nick "CLONESCAN" $chan $chan1 $mask "0"
-}
-	who:chan $chan
-		}
-	}
-}
-if {([lindex $channels $cc] != "") && ($type == "1")} {
-	utimer 5 [list clonescan:act $channels $nick $hand $chan1 $type $cc]
-		}
-if {($type == "0") && ($found_clones == "0")} {
-	blacktools:tell $nick "" $hand $chan $chan1 clonescan.2 none
-	}
-}
-
-##############
-#########################################################################
-##   END                                                               ##
-#########################################################################