bind pubm - "*join #*" pub_dont_invite
bind pubm - "*http://*" pub_dont_invite
bind pubm - "*/server*" pub_dont_invite
bind pubm - "*www*" pub_dont_invite
bind pubm - "*/join*" pub_dont_invite
bind pubm - "*http://* #*" pub_dont_invite


proc pub_dont_invite {nick host handle channel arg} {
global botnick
if {![isop $botnick $channel]} {return 0}
if {[isop $nick $channel]} {
return 0
}
set n2hand [nick2hand $nick $channel]
if {([matchattr $n2hand m] || [matchattr $n2hand p] || [matchattr $n2hand b] || [matchattr $n2hand n] || [matchattr $n2hand f])} {
return 0
}
if [regexp -nocase dcc $nick] {return 0}
set banmask "*!*[string trimleft [maskhost [getchanhost $nick $channel]] *!]"
set targmask "*!*[string trimleft $banmask *!]"
set ban $targmask
putserv "mode $channel +mi"
pushmode $channel +b $ban
putserv "PRIVMSG $channel :El Canal A Sido Cerrado (+m) para evitar el Flood de Inviters o spam, que pueden ocacionar los usuarios. y (+i) Para Evitar el Autojoin de la Victima"
putserv "KICK $channel $nick :Prohibido el Spam, Inviters, públicidad u otros..para saber nuestras reglas pon !reglas en el canal abierto"
utimer 50 "putserv \"mode $channel -mi\""
putserv "PRIVMSG $channel : en 45 segundos el Canal estara Abierto y Desbloqueado"
return 1
}

putlog "\002TCL Anti Inviters... by Nor7on or SCheRinG - tcl Subida por el staff de #tcls en DALnet"