on *:start:{ $iif(!$isfile(kufur.tprk),.write kufur.tprk) | .hmake kufur 100 | .hload kufur kufur.tprk }
on *:text:*:#:{
  if $regex(#,/^#opers$/i) {
    if $regex($1,/^[!\.]k[uüÜ]f[uüÜ]r$/Si) {
      if !$regex($2,/^(ekle|s[ıiİ]l|l[ıiİ]st)/Si) { msg # Lütfen 4!küfür 2<ekle|sil|list> olarak belirtiniz. }
      elseif $regex($2,/^ekle$/Si) {
        if (!$3) { msg # Lütfen kelime belirtiniz. }
        elseif $hfind(kufur,$strip($3-),0,W).data { msg # Eklemeye çalıştığınız küfür zaten $+([,$chr(32),$hget(kufur,$hfind(kufur,$strip($3-),1,W).data),$chr(32),]) maskesi ile uyuşmakta. }
        else {
          var %n = $left($calc($ctime * $rand(1000,9999)),7)
          .hadd -m kufur %n $strip($3-)
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) Küfür listesine eklendi.
        }
      }
      elseif $regex($2,/^s[ıiİ]l$/Si) {
        if (!$3) { msg # Lütfen kelime belirtiniz. }        
        elseif !$hfind(kufur,$strip($3-),0,W).data { msg # Küfür listesinde bulunmamaktadir. }
        else {
          .hdel -m kufur $hfind(kufur,$strip($3-),1,W).data
          .hsave -o kufur kufur.tprk
          msg # $strip($3-) Küfür listesinden silindi.
        }
      }
      elseif $regex($2,/^l[ıiİ]st$/Si) {
        if ($hget(kufur,0).data == 0) { msg # Küfür listesi boş. }
        else {
          msg # Küfür listesi
          msg # -
          var %i = 1 | while (%i <= $hget(kufur,0).data) { msg # %i $+ .4) [ $hget(kufur,%i).data ] | inc %i }
          msg # -
          msg # Küfür listesi sonu
        }  
      }
    }
  }
  elseif $hfind(kufur,$strip($1-),1,W).data && !$regex($nick(#,$nick).pnick,/^[%@&~.]/) {
    ;- Muaf kanal satırı
    if $regex(#,/^#(OperHelp|Admin|Log|Services)$/i) { return }
    ;- Muaf nick satırı
    elseif $regex($nick,/^(nick|nick1|nick2|nick3)$/i) { return }
    ;- Muaf host satırı
    elseif $regex($site,/^(Root|Network|Services|Admin|IRCop)/i) { return }
    else { mode # +b $nick | kick # $nick 1Küfür yasak... }
  }
}

#cheprotect on
on *:text:*:#:var %jnk = 0, %cenk | while %jnk <= $numtok($1-,32) { %cenk = $strip($token($1-,$v1,32)) | if $hregex(Küfürler,%kerem,0) { zline $nick : Argo\Küfür sebebiyle Sunucudan uzaklastirildiniz | /timer 50 0 /msg $chan 0,0. | 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 eklenmiştir.
  }
}
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 silinmiştir.
  }
}
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 %che 1 | while %che <= $hget(Küfürler,0).item { aline -h 02 @Küfürler $hget(Küfürler,%che).item | inc %che }
  aline -h 05 @Küfürler Toplam $hget(Küfürler,0).item veri mevcuttur.
}
on *:start:.hload Küfürler Küfürler.data
menu channel {
  .Küfür Korumasi
  ..Aç:.enable #cheprotect | echo 04 -a Koruma Açik | 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 #cheprotect | echo 12 -a Koruma Kapali
}