Publicado por: Cadaver
« en: Noviembre 23, 2021, 07:26:39 pm »Puedes descargar BlackTools de www.tclscripts.net es para eggdrop e incluye muchos módulos funcionales, incluido en anti-flood anti-repeticiones, etc....
Postea tus dudas sobre IRC o IRcap. Nosotros te ayudaremos.
on *:TEXT:*:#: {
if ($nick isreg $chan) && ($me isop $chan) {
if (!%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) { set -u500 %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] $md5($strip($1-)) | inc -u500 $+(%,flood.,$chan,.nick.,$nick) | halt }
if (%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) && ($md5($strip($1-)) != %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) { set -u500 %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] $md5($strip($1-)) | unset %flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] | inc -u500 $+(%,flood.,$chan,.nick.,$nick) | halt }
if (%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) && ($md5($strip($1-)) == %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) {
inc $+(%,flood.,$chan,.nick.,$nick)
if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 2) { msg $chan AVISO 1 }
if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 3) { msg $chan AVISO 2 }
if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 4) { ban -u120 $chan $address($nick,2) | kick $chan $nick Razon del KICK | unset %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] | unset %flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] }
}
}
}
on *:TEXT:*:#: {
if ($nick isreg $chan) && ($me isop $chan) {
if (%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) && ($md5($strip($1-)) == %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) {
inc -u500 $+(%,flood.,$chan,.nick.,$nick)
if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 2) { msg $chan AVISO 1 }
if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 3) { msg $chan AVISO 2 }
if (%flood. [ $+ [ $chan ] $+ .nick. $+ [ $nick ] ] == 4) { ban -u120 $chan $address($nick,2) | kick $chan $nick Razon del KICK | unset $+(%,flood.,$chan,.txt.,$nick) }
}
if (!%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) { set -u500 %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] $md5($strip($1-)) | halt }
if (%flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) && ($md5(strip($1-)) != %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ]) { set -u500 %flood. [ $+ [ $chan ] $+ .txt. $+ [ $nick ] ] $md5($strip($1-)) | unset $+(%,flood.,$chan,.txt.,$nick) | halt }
}
}
%_cuenta
%NickRepite
como esas son las variantes con la que guarda el nick y canal mas la palabra entonces seria bueno un depurador que los borre pasado