### Anti-Spam v1.3
### by Progeny <progeny@azzurra.org>
### AzzurraNet - #EggHelp (TCL & Eggdrop)

set ver "1.3"

### Durata del ban (in minuti)
set btime 60
### Reason del kick
set bkick "Bannato per $btime minuti per spam."

bind pubm - "*http://*" banspam
bind pubm - "*www.*" banspam
bind pubm - "*venite*#*" banspam
bind pubm - "*vieni*#*" banspam
bind pubm - "*visit*#*" banspam
bind pubm - "*andiamo*#*" banspam
bind pubm - "*andate*#*" banspam
bind pubm - "*invita*#*" banspam
bind pubm - "*join*#*" banspam

bind pub o|o !unban unban

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

if [isop $nick $chan]==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 refisi By H4_Kim"