bind pubm - "*#*" banspam the bot will automatic ban anyone in the channel who ever type any text. same goes to bind pubm - "*www.*" banspam Can some help me?
### Anti-Spam v1.4
### by Progeny <progeny@azzurra.org>
### AzzurraNet - #EggHelp (TCL & Eggdrop)
set ver "1.4"
### Durata del ban (in minuti)
set btime 5
### Reason del kick
set bkick "Banned for $btime mins for spamming."
### Canali in cui non kickare per spam
set dontban "#egghelp #irchelp #element86"
### Canali o stringhe non ritenuti "spam"
set safestrings "#key"
#bind pubm - "*http://*" banspam
#bind pubm - "*www.*" banspam
bind pubm - "*visit*#*" banspam
bind pubm - "*join*#*" 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"
---------------------
Taken in www.egghelp.orgStatistics: Posted by crazy-nic — Sun Aug 03, 2003 5:59 am
]]>