tclscripts-BlackTools-TCL/BlackTools/Protections/BT.antispam.tcl

#########################################################################
##          BlackTools - The Ultimate Channel Control Script           ##
##                    One TCL. One smart Eggdrop                       ##
#########################################################################
##########################   ANTISPAM 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 antispam:protect {nick host hand arg} {
global botnick black
	set handle [nick2hand $nick]
	set channels ""
foreach chans [channels] {
if {[setting:get $chans antispam]} {
	set found_spam ""
	set text [color:filter $arg]
	set text [check:except $text $chans $black(spamword) $black(spamwordexcept) "ANTISPAM"]
	set check_word [check:file:word $chans $text "ANTISPAM"]
if {$check_word == ""} {
	continue
} else {
	set found_spam $check_word
}
	set chan1 $chans
if {![validchan $chans]} { return }
if {[matchattr $handle $black(exceptflags) $chans]} { return }
	set bl_protect [blacktools:protect $nick $chans]
if {$bl_protect == "1"} { return }
if {[onchan $nick $chans]} {
if {![botisop $chans] && ![setting:get $chans xonly]} { return }
if {[isbotnick $nick]} { return }
	lappend channels $chans
if {[link:status $chans] == "1"} {
	foreach c [link:chan:get $chans] {
	lappend channels $c
					}
				}
			}
		}
	}
if {$channels != ""} {
	antispam:act:ban [join $channels] 0 $nick $host $found_spam
	}
}

proc antispam:act:ban {channels num nick host found_spam} {
	global black
	set chan [join [lindex [split $channels] $num]]
	set inc 0
if {$chan == ""} {
	return
}
if {[onchan $nick $chan]} {
	blacktools:banner:2 $nick "ANTISPAM:$found_spam" $chan $chan $host "0" ""
	who:chan $chan
}
	set inc [expr $num + 1]
if {[lindex $channels $inc] != ""} {
	utimer 5 [list antispam:act:ban $channels $inc $nick $host $found_spam]
	}
}

proc antispam:protect:msg {nick host hand chan} {
global black
if {![validchan $chan]} { return }
if {[setting:get $chan antispam]} {
if {[isbotnick $nick]} { return }
if {[info exists black(turnOnFlood:$chan)]} {
	return
}
if {[setting:get $chan spamjoinmessage]} {
if {[matchattr $hand $black(exceptflags) $chan]} { return }
	set getmsg [setting:get $chan antispam-message]
if {$getmsg == ""} { 
	set getlang [string tolower [setting:get $chan lang]]
if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
	set getmsg $black(say.$getlang.antispam.2)
}
	set replace(%nick%) $nick
	set replace(%chan%) $chan
	set text [black:color:set "" $getmsg]
	set reply [join $text]
	set reply [string map [array get replace] $reply]
	puthelp "PRIVMSG $nick :$reply"
		} 
	}
}

proc antispam:protect:cycle {channels} {
global black
	set chans ""
foreach chan $channels {
if {![channel get $chan inactive]} {
	lappend chans $chan
		}
	}
if {$chans != ""} {
	antispam:act $chans 0
	}
}

proc antispam:act {channels counter} {
	global black
	set notcycle 0
	set chan [join [lindex [split $channels] $counter]]
	set cc [expr $counter + 1]
if {[info exists black(lastaction:$chan)]} {
	set total_anunt 0
	set unixtime [unixtime]
if {[setting:get $chan antispam-scantime] != ""} {
	set return_time [time_return_minute [setting:get $chan antispam-scantime]]
} else {
	set return_time [time_return_minute $black(spamcycle)]
}
	set time [expr [expr [expr $return_time * $black(entry:shown)] * 60] + $unixtime]
if {[expr $unixtime - $black(lastaction:$chan)] > [expr $time - $unixtime]} {
	set notcycle 1
	}
} else { set notcycle 1 }
if {$notcycle != "1"} {
	set getlang [string tolower [setting:get $chan lang]]
if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
	set reason $black(say.$getlang.antispam.11)
	set len [llength $reason] 
    set random [expr int(rand()*$len)] 
    set reason [lindex $reason $random]
	set text [black:color:set "" $reason]
	set reply [join $text]
	putserv "PART $chan :$reply"; putserv "JOIN $chan"
	}
if {[lindex $channels $cc] == ""} {
	return
	} else {
	utimer 10 [list antispam:act $channels $cc]
	}
}


proc antispam:module {nick host hand chan arg} {
	global black lastbind
	set type 0
	set chan1 "$chan"
	set why [lindex [split $arg] 0]
	set antisp [join [lrange [split $arg] 1 end]]
	set number [lindex [split $arg] 1]
if {[regexp {^[&#]} $why] && [matchattr $hand nmo|M $why]} {
	set chan "$why"
	set why [lindex [split $arg] 1]
	set antisp [join [lrange [split $arg] 2 end]]
	set number [lindex [split $arg] 2]
}
	set return [blacktools:mychar $lastbind $hand]
if {$return == "0"} {
		return
}
	prot:module:process $nick $host $hand $chan $chan1 $why $badh $type $number "antispam"
}

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