bind pubm - "s*e*r*v*e*r" pub_dont_invite
bind pubm - "w*w*w.*" pub_dont_invite
bind pubm - "i*r*c*.*" pub_dont_invite
bind pubm - "h*t*t*p*:*/*" pub_dont_invite
bind pubm - "f*t*p*:*/*" pub_dont_invite
bind pubm - "*.*c*o*m" pub_dont_invite
bind pubm - "*.*n*e*t" pub_dont_invite
bind pubm - "*.*o*r*g" pub_dont_invite
bind pubm - "*sikerim*" pub_dont_invite
bind pubm - "*SİKERİM*" pub_dont_invite
bind pubm - "*****" pub_dont_invite
bind pubm - "***" pub_dont_invite
bind pubm - "***ler" pub_dont_invite
bind pubm - "********" pub_dont_invite
bind pubm - "*pezevenk*" pub_dont_invite
bind pubm - "*siktir*" 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 :Özele Reklam/Küfür"
pushmode $channel +b $ban
return 1
}
putlog "ozelreklam.tcl by mirchane.com"