on *:TEXT:*:#: {
  if ($1 != .logoku) {
    var %kanal = $chan, %nick = $nick, %mesaj = $1-, %tarih = $replace($date, /, .) $+ $time
    write kanallog.txt %tarih - %kanal - %nick - %mesaj
  }

  if ($regex($1, /^[\.\!]logoku/iS) && $regex(#, /hayhay|datasystem/i)) {
    if ($nick isop $chan) {
      if ($regex($1-, /^\.logoku\s+#\S+\s+\S+(\s+\d{2}\.\d{2}\.\d{4})?$/i)) {
        msg # 4 $gettok($1-,3,32) 2 ait loglar 4 $gettok($1-,2,32) 2 kanalı için aranıyor...
        var %hedefKanal = $lower($gettok($1-, 2, 32))
        var %hedefNick = $lower($gettok($1-, 3, 32))
        var %tarih = $iif($gettok($1-, 4, 32), $gettok($1-, 4, 32), $replace($date, /, .))
        var %bulundu = 0, %satir = 1

        while ($read(kanallog.txt, %satir)) {
          var %logSatiri = $ifmatch
          if ($regex(%logSatiri, /^(\d{2}\.\d{2}\.\d{4}) \d{2}:\d{2}:\d{2} - (\S+) - (\S+) - (.+)$/i)) {
            if ($regml(1) == %tarih && $lower($regml(2)) == %hedefKanal && $lower($regml(3)) == %hedefNick) {
              .timer 1 2 msg # 6Tarih: 1 $regml(1) 6 Kanal: 1 $regml(2) 6 Nick: 1 $regml(3) 6 Mesaj: 1 $regml(4)
              inc %bulundu
            }
          }
          inc %satir
        }

        if (%bulundu == 0) {
          .timer 1 1 msg # 10 "Belirtilen kritere uygun log bulunamadı."
        }

      }
      else {
        .timer 1 1 msg # 10 "Hatalı komut formatı! Doğru kullanım: .logoku #kanal nick [gg.aa.yyyy]"
      }
    }
    else {
      .timer 1 1 msg # 10 "Bu komutu kullanmak için yeterli yetkiye sahip değilsiniz."
    }
  }
}