on *:text:*:#:{
  if $regex($1,/(\!(oku|ekle|degistir|sil)/i) {
    if $exists(dosya.txt) { msg # Dosya Bulunamıyor Kontrol Edin | halt }
    if *oku* iswm $regml { 
      if !$read(dosya.txt,w,$+(*,$2,*)) { msg # bu kelime listede yok | halt }
      msg # $2 değeri: $gettok($read(dosya.txt,w,$+(*,$2,*)),2,32)
    }
    if *ekle* iswm $regml { 
      if $read(dosya.txt,w,$+(*,$2,*)) { msg # bu kelime saten ekli | halt }
      else { write dosya.txt $2- }
    }
    if *degistir* iswm $regml {
      if $read(dosya.txt,w,$+(*,$2,*)) { 
        write $+(-dl,$readn) dosya.txt
        write dosya.txt $2-
        msg # $2 değeri $3 olarak değiştirildi
      }
      else { msg # bu kelime listede yok | halt }
    }
    if *sil* iswm $regml {
      if $read(dosya.txt,w,$+(*,$2,*)) { 
        write $+(-dl,$readn) dosya.txt
        msg # $2 değeri silindi
      }
      else { msg # bu kelime listede yok | halt }
    }
  }
}

if $1 == !temizle {
write -c dosya.txt
msg #kanal Tüm veriler silindi.
}