sss

### Anti-Spam v1.4
### by Progeny <[email protected]>
### AzzurraNet - #EggHelp (TCL & Eggdrop)
# subida por Sedition de la red irc.dal.net canal #tcls nicks: Sedition y Arnold_X-P

set ver "1.4"

### Duracion del autoban (en minutos)
set btime 20
### Rason del kick
set bkick "Los inviters a otro canal o las publicidades no autorizadas están prohibidas en el canal para saber nuestras reglas tipea !reglas"
### Canal donde kikeara por spam
set dontban ""
### Canales donde estara activa la tcl "spam"
set safestrings "#MorsBots"


#bind pubm - "*http://*" banspam
#bind pubm - "*http*" banspam
bind pubm - "*#*#*" banspam

bind pub o|o !unban unban
set dontban [string tolower $dontban]

proc unban {nick uhost hand chan argv} {
if [killchanban $chan $argv]==0 {
putserv "NOTICE $nick :$argv isn't in my Spammer Ban List."
} else {
putserv "MODE $chan -b $argv"
}
}

proc banspam {nick uhost hand chan argv} {
global btime bkick dontban safestrings

set safe 0
set argv [string tolower $argv]
foreach safestring $safestrings {
if {[lsearch $argv [string tolower $safestring]]!=-1} {set safe 1}
}

if {[isop $nick $chan]==0 && [lsearch $dontban [string tolower $chan]]==-1 && $safe==0} {
set banlamer $uhost
set why "No Spam"
set creator "Anti-Spam"
newchanban $chan $uhost $creator $why $btime
putserv "MODE $chan +b *!$uhost"
putserv "KICK $chan $nick :$bkick"
dccbroadcast "Anti-Spam TCL: Banned $nick from $chan"
}
}

putlog "TCL Loaded: Anti-Spam $ver by Progeny"