#difiprotect on
on @*:text:*:#:{ if $istok(#kanal #kanal1,#,32) || $istok(nick nick1 nick2,$nick,32) { return } 
var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%cenk,0) { ban -k $chan $nick 2 Argo\Küfür sebebiyle atıldın. | 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ı
}