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
  }
}