alias silsatir {
  var %satir = $1
  var %dosya = $2
  var %toplam = $read(%dosya, n)
  while (%toplam > %satir) {
    write -dl %toplam %dosya
    dec %toplam
  }
}

alias silsatir {
  var %satir = $1
  var %dosya = $2
  var %toplam = $read(%dosya, n)  
  if (%satir >= %toplam) return  
  while (%toplam > %satir) {
    write -dl$+(%satir,1) %dosya
    dec %toplam
  }
}

on *:INPUT:*: {
  if ($1 == !silsonrasi) {
    var %satir = $2
    if (!%satir) {
      echo -a  Kullanım: !silsonrasi <satır no>
      haltdef
      return
    }

    var %dosya = takip.txt
    var %yedek = takip_temp.txt

    if (!$isfile(%dosya)) {
      echo -a  Dosya bulunamadı: %dosya
      haltdef
      return
    }

    var %toplam = $lines(%dosya)
    if (%toplam == 0) {
      echo -a  Dosya boş görünüyor: %dosya
      haltdef
      return
    }

    if (%satir > %toplam) {
      echo -a  Dosyada sadece %toplam satır var. %satir sonrası yok.
      haltdef
      return
    }

    var %i = 1
    .remove %yedek
    while (%i <= %satir) {
      write %yedek $read(%dosya, %i)
      inc %i
    }


    .remove %dosya
    .rename %yedek %dosya

    echo -a  %satir $+ . satırdan sonrası başarıyla silindi.
    haltdef
  }
}

alias write {
  if ($regex($1, /^-dl(\d+\+|\d+-\d+|\d+-|\d+\+\d+)$/)) {
    var %a~ = $+(@_,$md5($2)) | .window -hn %a~ | .loadbuf -r %a~ $2 | var %b~ = $line(%a~, 0)
    if ($regex($1, /^-dl(\d+)\+$/)) {
      var %c~~ = $calc($regml(1) + 1)
      if (%c~~ <= %b~) { filter -c %a~ %a~ %c~~ - %b~ | filter -x %a~ %a~ * }
    }
    elseif ($regex($1, /^-dl(\d+)-(\d+)$/)) {
      var %c~~ = $regml(1), %d~~ = $regml(2)
      filter -c %a~ %a~ %c~~ - %d~~ | filter -x %a~ %a~ *
    }
    elseif ($regex($1, /^-dl(\d+)-$/)) {
      var %d~~ = $calc($regml(1) - 1)
      if (%d~~ >= 1) { filter -c %a~ %a~ 1 - %d~~ | filter -x %a~ %a~ * }
    }
    elseif ($regex($1, /^-dl(\d+)\+(\d+)$/)) {
      var %a~ = $regml(1), %b~ = $regml(2), %c~~ = $calc(%a~ + %b~ - 1)
      if (%a~ <= %b~ && %c~~ <= %b~) {
        filter -c %a~ %a~ %a~ - %c~~ | filter -x %a~ %a~ *
      }
    }
    .savebuf %a~ $2 | .window -c %a~
  }
  else {
    !write $1-
  }
}

alias write {
  if ($regex($1, /^-dl(\d+\+|\d+-\d+|\d+-|\d+\+\d+)$/)) {
    var %file = $2
    if (!$isfile(%file)) { echo -s [write] Dosya bulunamadı: %file | return }

    var %win = $+(@write_,$ticks)
    window -h %win
    loadbuf -r %win %file
    var %total = $line(%win, 0)

    var %start = 0, %end = 0

    if ($regex($1, /^-dl(\d+)\+$/)) {
      %start = $calc($regml(1) + 1)
      %end = %total
    }
    ; -dlX-Y
    elseif ($regex($1, /^-dl(\d+)-(\d+)$/)) {
      %start = $regml(1)
      %end = $regml(2)
    }
    elseif ($regex($1, /^-dl(\d+)-$/)) {
      %start = 1
      %end = $regml(1)
    }
    elseif ($regex($1, /^-dl(\d+)\+(\d+)$/)) {
      %start = $regml(1)
      %end = $calc(%start + $regml(2) - 1)
    }

    if (%start < 1) || (%end < %start) || (%end > %total) {
      window -c %win
      echo -s [write] Geçersiz satır aralığı (%start - %end)
      return
    }

    var %tmp = write_temp.txt
    if ($exists(%tmp)) .remove %tmp
    var %i = %start
    while (%i <= %end) {
      var %line = $line(%win, %i)
      if (%line != $null) write %tmp %line
      inc %i
    }

    .remove %file
    .rename %tmp %file
    window -c %win
    echo -s ? /write $1 $2 tamamlandı. Satırlar: %start - %end
  }
  else {
    !write $1-
  }
}

/write -dl10- dosya.txt   -> İlk 10 satır kalır
/write -dl5+ dosya.txt       -> Sadece 6. satırdan sonrası kalır
/write -dl5-15 dosya.txt     -> 5–15 arası kalır
/write -dl20+5 dosya.txt     -> 20’den başlayarak 5 satır kalır (20–24)