;/kekle kelime
alias kekle {
  if $1 {
    if $read(kufur.txt,w,$1) {
      echo -at $1 kelimesi zaten listede. 
      return
    } 
    else { 
      write kufur.txt $1 
      echo -at $1 kelimesi listeye eklendi. 
    }
  }
}

;/ksil kelime
alias ksil {
  if $1 {
    if !$read(kufur.txt,w,$1) {
      echo -st $1 kelimesi listede yok. 
      return
    } 
    else {
      write $+(-dl,$readn) kufur.txt 
      echo -st $1 kelimesi kufur listesinden silindi.
    }
  }
}

;/klist
alias klist {
  var %s = 1,%ss = $lines(kufur.txt) 
  while %s <= %ss { 
    echo -a Kelime: $read(kufur.txt,%s) 
    inc %s 
  }
}

;Esas kod
on @*:text:*:#:{
  var %s = 1,%ss = $lines(kufur.txt) 
  while %s <= %ss { 
    if $+(*,$read(kufur.txt,%s),*) iswm $1- { 
      gline $nick  | msg #loglar $nick  $chan kanalında küfürlü konuşmaktan dolayı gline ile cezalandırıldı..
    } 
    inc %s
  }
}

on *:start:{ hmake gz | hload gz gz.BF }
on *:text:*:*: { if !$istok(#opers #opersohbet #kanal ,$chan,32) && !$istok(bf nick2 nick3 nick4 ,$nick,32) { if $hfind(gz,$strip($1-),1,W).data { gzline $nick Uygunsuz yazı. | msg #logch $nick atıldı cümlesi: $1- } } }
on *:input:*:{
  if -gzline == $1 {
    haltdef
    if !$hget(gz) { hmake gz | hsave gz gz.BF }
    if !$2 || !$3 && $2 != liste { echo -a 2*** $1 ekle / sil / tara / liste - kelime 2*** | halt }
    if $2 == ekle { if $hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli. | return } | var %n = $left($calc($ctime * $rand(1000,9999)),7) | hadd -m gz %n $3- | hsave -o gz gz.BF | echo -a $3- data'ya eklendi. }
    if $2 == sil { if !$hfind(gz,$3-,0,W).data { echo -a $3- gzline listesinde ekli değil. | return } | hdel gz $hfind(gz,$3-,1,W).data | hsave -o gz gz.BF | hfree -sw gz | hmake gz | hload gz gz.BF | echo -a $3- data'dan silindi. }
    if $2 == tara { if !$hfind(gz,$strip($3-),0,W).data { echo -a gzline listemde $+([,$strip($3-),]) sorgusuna ait bir mask yok. | return } | echo -a Cümle: $strip($3-) - Mask: $+([,$chr(32),$hget(gz,$hfind(gz,$strip($3-),1,W).data),$chr(32),]) }
    if $2 == liste { if ($hget(gz,0).data == 0) { echo -a gzline listesi boş. | return } | echo -a Gzline listesi | echo -a - | var %i = 1 | while (%i <= $hget(gz,0).data) { echo -a %i $+ )  $hget(gz,%i).data | inc %i } | echo -a - | echo -a Gzline listesi sonu } 
  }
}