on @*:TEXT:*:#: {
  ; +o +h +v ler bu degerden etkilenmeyecekler
  if ($nick !isreg #) return
  var %l = $strip($1-)
  if ($hmatch(kufur,%l)) {
    ban -u300 # $nick 3
    kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır!
  }
}
alias kufur {
  if ($1 == ekle) && ($regex($2,[A-Za-z])) {
    hadd kufur $2
    secho  $2  veritabanina başarıyla eklendi
  }
  elseif ($1 == sil) {
    if ($hfind(kufur,$2)) {
      hdel kufur $2
      secho $2 veritabanindan başarıyla silindi
    }
    else { secho $2 veritabaninda bulunamadi }
  }
  elseif ($1 == list) {
    var %x = 1 
    while (%x < = $hget(kufur,0).item) {
      set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1)
      if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
      inc %x
    }
    if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur }
  }
  else { secho hatali islem }
}
alias secho {
  ;echo -a $1-
  if (!$window(@kufur)) { window -e @kufur }
  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:EXIT: hsave -o kufur kufur.htb 
on *:start: { 
  hmake kufur 1000 
  if ($exists(kufur.htb)) { hsave -o kufur kufur.htb } 
  hload kufur kufur.htb 
}

hadd kufur $2

hadd -m kufur $2

on *:text:*:#: {
  ;- Kanal yetkililri ve Oper/Admin Host'larını muaf tuttuk.
  if !$regex($nick(#,$me).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!
      secho  Kanal: # Nick: $nick Küfür: $strip($1-) Mask: $strip($hget(kufur,$hfind(kufur,$1-,1,W).data))
    }
  }
}
alias kufur {
  if ($1 == ekle) && $regex($2,[A-Za-z]) { 
    if $hfind(kufur,$2-,0,W).data { secho $2- Kufur listesinde ekli. | return }
    var %n = $left($calc($ctime * $rand(1000,9999)),7)
    .hadd -m kufur %n $2-
    .hsave -o kufur kufur.htb
    secho  $2-  veritabanina başarıyla eklendi
  }
  elseif ($1 == sil) {
    if !$hfind(kufur,$2-,0,W).data { secho $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
    secho $2 veritabanindan başarıyla silindi
  }
  elseif ($1 == list) {
    if ($hget(kufur,0).data == 0) { secho Kufur listesinde kayıt bulunmamaktadir. | return }
    var %i = 1 | while (%i <= $hget(kufur,0).data) {
      secho $+(%i,-,$chr(41)) $hget(kufur,%i).data
      inc %i
    }
  }
}


alias secho {
  ;echo -a $1-
  if (!$window(@kufur)) { window -e @kufur }
  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: .hmake kufur | .hload kufur kufur.htb

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