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])) {
    if !$hget(kufur) { hmake kufur 1000 }
    hadd kufur $2
    secho  $2  veritabanina başarıyla eklendi
    hsave kufur kufur.data
  }
  elseif ($1 == sil) {
    if ($hfind(kufur,$2)) {
      hdel kufur $2
      secho $2 veritabanindan başarıyla silindi
      hsave kufur kufur.data
    }
    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 -en @kufur }
  echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-)
}
on *:start: { 
  if !$hget(kufur) { hmake kufur 1000 }
  if !$isfile(kufur.data) { hsave kufur kufur.data } 
  hload kufur kufur.data 
}

on @*:text:*:#: {
  if $read(kufur.txt,w,$+(*,$2-,*)) { 
    .mode $chan +b $address($nick,2) | /kick $chan $nick 2IRC Sunucu Uzerinde 4Kufur 2EttIgInIz IcIn BanLandInIz. %logo
  } 
  if !kufurekle* iswm $1- { 
    if $read(kufur.txt,w,$2-) {
      .msg $chan $2 Listede zaten ekli 
    } 
    else { 
      write kufur.txt $2- 
      .msg $chan $2 eklendi 
    } 
  } 
  if !kufursil* iswm $1- { 
    if !$read(kufur.txt,w,$2-) { 
      msg $chan $2 Listede yok 
    } 
    else { 
      write $+(-,dw,$2-) kufur.txt 
      msg $chan $2 Silindi 
    } 
  } 
}