on !*:text:*:?:{ 
  var %a 1
  while %a <= $lines(kufurler.txt) {
    if $read(kufurler.txt,%a) isin $1- { 
      ignore $nick 2
      msg $nick Küfürlü konuştuğunuz için, otomatik olarak süresiz ignore edildiniz. 
      echo -s $qt($nick) küfürlü bir cümle kurduğu için, otomatik olarak süresiz ignore edildi. Yazdığı mesaj: $1- 
      closemsg $nick
      break 
    }
    inc %a 
  }
}

on !*:text:*:?:{ var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%cenk,0) { .msg  $nick  Argo\Küfür sebebiyle ignore edildin. | .ignore $nick 2 | .closemsg $nick | halt } | inc %jnk }
}
#difiprotect end
alias küfürekle {
  if $hget(Küfürler,$1) { echo 06 -a $1 listede mevcut. }
  else {
    hadd -m Küfürler $1 1
    hsave -i Küfürler Küfürler.data
    echo 07 -a $1 Argo\Küfür listesine eklendi.
  }
}
alias küfürsil {
  if !$hget(Küfürler,$1) { echo 06 -a $1 listede yok }
  else {
    hdel Küfürler $1
    hsave -i Küfürler Küfürler.data
    echo 07 -a $1 Argo\Küfür listesinden silindi.
  }
}
alias küfürlist {
  $iif(!$window(@Küfürler),window -nz @Küfürler,clear @Küfürler)
  aline 04 @Küfürler Küfür Listesi
  var %dify 1 | while %dify <= $hget(Küfürler,0).item { aline -h 02 @Küfürler $hget(Küfürler,%dify).item | inc %dify }
  aline -h 05 @Küfürler Toplam $hget(Küfürler,0).item veri mevcut.
}
on *:start:.hload Küfürler Küfürler.data
menu channel {
  .Küfür Koruması
  ..Aç:.enable #difiprotect | echo 04 -a Koruma Açık | echo 02 -a Küfür eklemek için /küfürekle kelime | echo 02 -a Küfür silmek için /küfürsil kelime | echo 02 -a Liste için /küfürlist
  ..Kapa:.disable #difiprotect | echo 12 -a Koruma Kapalı
}