on *:text:*:#: {
  ;- Kanal yetkililri ve Oper/Admin Host'larını muaf tuttuk.
  if !$regex($nick(#,$nick).pnick,/(%|@|&|\.|~)/) || !$regex($site,/(Root|Admin|IRCOp|Oper|Services|Server)/Si) {
    if $hfind(kufur,$1-,1,W).data {
      .ban -u300 # $nick 3
      .kick # $nick 1Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
     msg $nick  Kanal: # Nick: $nick Küfür: $strip($1-) Mask: $strip($hget(kufur,$hfind(kufur,$1-,1,W).data))
    }
  }
  if ($regex($1,/^[.!]ekle$/Si)) && $regex($2,[A-Za-z]) { 
    if $hfind(kufur,$2-,0,W).data { msg # $2 Kufur listesinde ekli. | return }
    var %n = $left($calc($ctime * $rand(1000,9999)),7)
    .hadd -m kufur %n $2-
    .hsave -o kufur kufur.htb
    msg # $qt($2) veritabanina başarıyla eklendi
  }
  elseif ($regex($1,/^[.!]sil$/Si)) {
    if !$hfind(kufur,$2-,0,W).data { msg # $2 Kufur listesinde ekli değil. | return }
    .hdel kufur $hfind(kufur,$2-,1,W).data
    .hsave -o kufur kufur.htb
    .hfree -sw kufur
    .hmake kufur
    .hload kufur kufur.htb
    msg # $qt($2) veritabanindan başarıyla silindi
  }
  elseif ($regex($1,/^[.!]list$/Si)) {
    if ($hget(kufur,0).data == 0) { msg # Kufur listesinde kayıt bulunmamaktadir. | return }
    var %i = 1 | while (%i <= $hget(kufur,0).data) {
      msg # $+(%i,-,$chr(41)) $hget(kufur,%i).data
      inc %i
    }
  }
}


on *:start: .hmake kufur | .hload kufur kufur.htb