adver.tcl.gz

[OkyAnuS]

bind pubm - "*join #*" pub_dont_invite
bind pubm - "*/join*" pub_dont_invite
bind pubm - "*go * #*" pub_dont_invite
bind pubm - "*goto #*" pub_dont_invite
bind pubm - "*come *#*" pub_dont_invite
bind pubm - "*join #*" pub_dont_invite
bind pubm - "*j* #*" 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 "KICK $channel $nick :\002 No invites"
pushmode $channel +b $ban
return 1
}
putlog "adver.tcl By TicariForum "

[OkyAnuS]

Botun RekLam Yapanları Yakalamasını Sağlayan tcl dosyası