Www.Hossohbetci.Com " Degisen Dunyanin Degismeyen Yuzu Seviyeli Hossohbet Adresiniz"
Kufur.tcl ( Küfürlü sözleri Kanaldan Atar.)


Kod:
# Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"

# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "0"

## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "opernick"

set opass "operpass"

# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsiniz..

set kufurler {
"am"
"got"
"sik*"
"göt*"
"düzerim"
"duzerim"
"sık*"
"sokar*"
"yalarım"
"yalarim"
"*orospu*"
"*orozpu*"
"yarrak*"
"yarak*"
"pic"
"*piç*"
"yarrag"
"hasiktir"
"*siker*"
"*amci*"
"*amcı*"
"*ibne*"
"gotun*"
}


# Bu kadar..!



bind pubm - * kufurban


# DOKUNMAYIN..!
# Dokunmak delikanliyi bozar ;P



bind evnt - init-server botoper_yap
 
proc botoper_yap {type} {
  global onick opass
if {$botoper == 1} {
putquick "OPER $onick $opass"
 }
}

proc kufurban {nick uhost hand chan rest} {
global kufurler botoper bansebebi
foreach w $kufurler {
if {[string match -nocase "* $w *" " $rest "] && ![isop $nick $chan]} {
     if {$botoper == 1} {
  putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next
  putquick "KILL $nick :$bansebebi" -next
  return 1
 } else {
  putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next
  putkick $chan $nick $bansebebi
  return 1
    }
  }
}
}

putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."