on *:text:*:#kanal:{
  if !kufurekle* iswm $1- {  
    if ($read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)) {  
      if $read(kufurler.txt,w,$2-) { 
        .msg $chan  $2 1Küfür Listesinde zaten ekli.
      }
      else { 
        write kufurler.txt $2- 
        .msg $chan 1Kufurlu kelime eklendi: $2
      } 
    }
    else {
      msg $nick  $nick 1Bu Komuta Erişiminiz Yok.
    }
  }
  if !kufursil* iswm $1- {
    if ($read(oper.txt,w,$nick) || $read(admin.txt,w,$nick) || $read(root.txt,w,$nick)) {  
      if !$read(kufurler.txt,w,$2-) { 
        msg $chan  $2 1Kufur Listesinde yok. 
      } 
      else { 
        write $+(-,dw,$2-) kufurler.txt 
        msg $chan  $2 1Kufur Listesinden Silindi. 
      } 
    }
    else {
      msg $nick  $nick 1Bu Komuta Erişiminiz Yok.
    } 
  }
}

on *:text:!kufurlist:#kanal:{ kntrl }
alias wblist { 
  .msg # 1Hafızadaki Kufur Listesi Özelinize Verildi.
  .msg $nick 1Hafızadaki Kufur Listesi.
  .play $nick kufurler.txt 0
  .timer 1 2 .msg $nick 1Listeleme tamamlandı.
}
alias kntrl {
  if $istok($read(root.txt, w, $nick),$nick,32) == $true { wblist | halt }
  if $istok($read(root.txt, w, $nick),$nick,32) == $false { kntr2 } 
}
alias kntr2 {
  if $istok($read(admin.txt, w, $nick),$nick,32) == $true { wblist | halt }
  if $istok($read(admin.txt, w, $nick),$nick,32) == $false { kntr3 } 
}
alias kntr3 { 
  if $istok($read(oper.txt, w, $nick),$nick,32) == $true { wblist | halt }
  if $istok($read(oper.txt, w, $nick),$nick,32) == $false { .msg $nick 1Bu Komuta Erişiminiz Yok. | halt }
}

on *:TEXT:*:#:{ 
if ($me isop $chan) {
var %i 1 
while $read(kufurler.txt,%i) { 
if ($read(kufurler.txt,%i) iswm $remove($1-,$chr(32),*,/,\,.,$chr(44),-,_,!,;)) { /kick $chan $nick Küfür Etmek Yasaktır! | /mode $chan +b $nick } 
inc %i 
} 
}
}