on @*:text:*:#:{
  var %t 1
  while (%t <= $lines(küfürler.txt)) {
    if ($read(küfürler.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* | kick $chan $nick Küfür etmek yasaktır. }
    inc %t
  } 
  if *!küfürekle* iswm $1- {
    if $2 == $null {
      msg $chan Eklenecek Küfür Belirtmediniz.
      halt
    }
    if $read(küfürler.txt,w,$2-) { 
      msg $chan Eklemeye Çalıştığınız ( $2 ) listenin ( $+($readn,.) ) satırında mevcuttur.
    } 
    else { 
      write küfürler.txt $2-
      msg $chan Listeye Eklenen küfür ( $2 ) dir.
    }
  }
  if *!küfürsil* iswm $1- {
    if $2 == $null {
      msg $chan Silinecek küfür kelimesini Belirtmediniz.
      halt
    }
    if !$read(küfürler.txt,w,$2-) { 
      msg $chan Silmeye çalıştığınız ( $2 ) Listede bulunmamaktadır.
    } 
    else { 
      write $+(-,dw,$2-) küfürler.txt 
      msg $chan Listeden Silinen küfür ( $2 ) dir. 
    }
  }
}