alias lfile return logs\ $+ $1 $+ .txt
on *:text:*:#: {    
  var %file = $shortfn(logs\ $+ $nick $+ .txt)
  if ($left($1-,1) != $chr(33)) {
    if ($isfile(%file) == $false) write -c $qt(%file)
    write logs\ $+ $nick $+ .txt < $+ $nick $+ > $+ $chr(32) + $1-
  }
  else {
    if ($1 == !sil) {
      if ($isfile($lfile($2)) == $false) msg # Üzgünüm! Bu nick'e ait kay&yacute;tl&yacute; bir yaz&yacute;&thorn;ma bulunamad&yacute;.
      else { .remove $lfile($2) | msg # Bütün yaz&yacute;&thorn;malar silindi! }
    }
    elseif ($1 == !kayit) {
      if (!$istok(ali veli deli,$nick,32)) && ($nick !isop #) .msg # Bu komutu kullanmaya yetkiniz yok
      else {
        var %file = $shortfn(logs\ $+ $2 $+ .txt)
        if (!$2) .msg # Nick girmediniz.
        elseif ($isfile(%file) == $false) msg # Kay&yacute;t bulunamad&yacute;.
        elseif ($lines(%file) == 0) .msg $nick Aran&yacute;lan kay&yacute;t bulunamad&yacute;.(Aran&yacute;lan nick: $2)
        else {
          var %i = 1
          while (%i <= $lines(%file)) {
            .msg $nick $read(%file,%i)
            inc %i
          }
        }
      }
    }
  }
}