Eggdrop Özel Reklam Saldırısı Koruma tcl si

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 - “amcık” pub_dont_invite
bind pubm - “piç” pub_dont_invite
bind pubm - “piçler” pub_dont_invite
bind pubm - “*orospu*” pub_dont_invite
bind pubm - “*pezevenk*” pub_dont_invite
bind pubm - “*siktir*” pub_dont_invite
bind pubm - “ibne*” pub_dont_invite
bind pubm - “yarak” pub_dont_invite
bind pubm - “penis” pub_dont_invite
bind pubm - “similya” 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 “mode $chan +b *!*[string range $uhost [string first @ $uhost] e] ”
putserv “notice $nick Reklam/Küfür/inveter kullandığınız tespit edildi.#yasak kanalına yönlendiriliyorsunuz”
putserv “SAJOIN $nick #yasak”
return 1
}

putlog “ozelreklam.tcl by tclarsivi.com”

Mirc.gen.tr Tcl arşivi Eggdrop özelde reklam koruma tcls

This entry was posted on Cuma, Ekim 2nd, 2009 at 19:41 and is filed under Eggdrop TCL List, Eggdrop psybnc, conflar. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.