Log Okuyucu (Dialog)

on *:load: { 
  .echo -aq $input(Yapımcı: SaNCaK $+ $crlf $+ $crlf $+ Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Yapım: 17/10/2014 $+ $crlf $+ $crlf $+ Iletişim: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Kodu Kullandığınız için Teşekkür ederim,igo,Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41))
  echo -a _____________________________________________________________________________________
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Add-On yükleniyor... 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Çalışan mIRC15 $version 0Sistem15 Windows $+ $os 
  echo -a 4,1[15,1 SaNCaK 4,1] 0,1 Coder: 15SaNCaK 0,1 E-Mail: 15sancak@outlook.com.tr 
  echo -a 4,1[00,01 SaNCaK 4,1] 15,1 Copyright 12©15 1999-2017 
  echo -a ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
}
on *:unload: { 
  .echo -aq $input(Author: SaNCaK $+ $crlf $+ $crlf $+ Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41) $+ $crlf $+ $crlf $+ Released at: 17/10/2016 $+ $crlf $+ $crlf $+ Contact: sancak@outlook.com.tr $+ $crlf $+ $crlf $+ Unloading...,igo,Addon: Log Okuyucu $chr(40) $+ v5.4 $+ $chr(41))
}

menu menubar,channel {
Log Okuyucu: { dialog -m blog blog }
}

dialog blog {
  title "Log Okuyucu"
  size 380 257 385 260
  box "", 8, 1 -2 382 260
  list 1, 2 6 212 250, size
  box "Ara:", 2, 215 -2 168 116, flat
  check "Nick:", 3, 222 15 53 13, flat
  edit "", 4, 221 28 115 23, multi return
  text "for", 23, 49 60 21 13, hide
  text ".log", 5, 338 36 25 17
  check "Yazılarda Ara:", 6, 222 55 103 13, flat
  edit "", 7, 221 68 145 23, multi return
  box "Info:", 9, 215 106 168 102
  text "Kayıt:", 10, 222 122 53 13
  text "Göster", 25, 71 73 27 13, hide
  text "Son Değişiklik:", 11, 222 147 113 13
  text "Add-on", 21, 21 33 38 14, hide
  text "Boyut:", 12, 220 171 101 13
  box "Tercih:", 13, 215 200 168 58
  text "Rc", 24, 56 72 15 13, hide
  text "", 14, 222 135 153 13
  text "", 15, 222 159 151 13
  text "", 16, 222 185 151 13
  button "Oku", 17, 222 219 45 21, flat
  button "Sil", 18, 269 219 45 21, flat
  button "Kapat", 19, 316 219 45 21, ok flat
  text "Feito", 22, 41 47 26 14, hide
  button "Ara", 26, 306 91 75 21, flat
}
on *:dialog:blog:sclick:17:{  window @log | loadbuf -rp @log $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") }
on *:dialog:blog:sclick:18:{ .remove $+(",%blog.dir,$$did(blog,1,$did(blog,1).sel).seltext,") | did -d blog 1 $did(blog,1).sel }
on *:dialog:blog:sclick:26:{
  if ($did(3).state == 1) || ($did(6).state == 1) {
    if ($did(3).state == 1) {
      set %blog.nome $+($as1($did(blog,4)).log)
    }
    else {
      set %blog.nome *.log
    }
    if ($did(6).state == 1) {
      set %blog.text $as1($did(blog,7))
    }
    else {
      set %blog.text *
    }
    blog.findfile1 
    halt
  }
  echo -a 0,1 Arama yapılması için seçenek kutusuna tıklayınız 
}
on *:dialog:blog:init:*:{
  set %blog.dir $logdir
  blog.finddir
}
on *:dialog:blog:sclick:1:{
  if (*.log iswm $did(blog,1,$did(blog,1).sel).seltext) {
    did -r blog 14,15,16
    var %blog.arquivo $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)
    did -a blog 14 $asctime($file(%blog.arquivo).ctime)
    did -a blog 15 $asctime($file(%blog.arquivo).mtime)
    did -a blog 16 $bytes($file(%blog.arquivo),k).suf
  }
}

on *:dialog:blog:dclick:1:{
  if (*.log !iswm $did(blog,1,$did(blog,1).sel).seltext) {
    did -r blog 14,15,16
    if ($left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1) == ..) && ($did(blog,1).sel == 1) {
      if (!%blog.busca) {
        var %blog1 $wildtok(%blog.dir,*,0,92) 
        var %blog3 [ $+(1-,[ [  $calc(%blog1 - 1) ] ]) ]
        var %blog2 $+($gettok(%blog.dir,[ [ %blog3 ] ],92),\)
        set %blog.dir [ %blog2 ]   
        did -r blog 1 
        blog.finddir
        halt
      }
      did -r blog 1
      unset %blog.busca
      blog.finddir
      halt
    }
    set %blog.dir $+(%blog.dir,$left($right($did(blog,1,$did(blog,1).sel).seltext,-1),-1),\)
    did -r blog 1
    blog.finddir
    halt
  }
  window @log
  loadbuf -rp @log $+(%blog.dir,$did(blog,1,$did(blog,1).sel).seltext)
}
alias as1 {
  if ($1) {
    if ($left($1,1) == *) {
      var %r $1-
      goto 2
    }
    var %r $+(*,$1-)
    :2
    if ($right($1-,1) == *) {
      var %r [ %r ]
      goto 3
    }
    var %r $+(%r,*)
    :3
    return %r
  }
  return *
}

alias blog.findfile1 {
  did -r blog 1
  window -hs @logview
  window -hs @logview1
  set %blog 0
  :comeco
  inc %blog
  tokenize 32 $findfile(%blog.dir,%blog.nome,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2) {
    if (%blog2 == %blog.dir) && (%blog.text != *) {
      filter -p $+(",$1-,") @logview1 %blog.text
      if ($filtered) {
        did -r blog 1
        aline @logview $remove($1,%blog.dir)
        goto comeco
      }
      goto comeco
    }
    if (%blog2 == %blog.dir) {
      aline @logview $remove($1,%blog.dir)
      goto comeco
    }
  }
  if ($line(@logview,1)) {
    set %blog 1
    did -a blog 1 [..]
    while ($line(@logview,%blog)) {
      did -a blog 1 $line(@logview,%blog)
      inc %blog
    }
  }
  else {
    did -a blog 1 [..]
    did -a blog 1 No file was found
  }
  set %blog.busca CURIOSO!!!
  window -c @logview1
  window -c @logview
}
alias blog.finddir {
  var %blog 0 
  if (%blog.dir != $logdir) {
    did -a blog 1 [..]
  }
  :comeco
  inc %blog
  tokenize 32 $finddir(%blog.dir,*,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2 == %blog.dir) {
    did -a blog 1 $+([,$remove($1-,%blog.dir),])
    goto comeco
  }
  blog.findfile
}
alias blog.findfile {
  window -sh @logview
  var %blog 0 
  :comeco
  inc %blog
  tokenize 32 $findfile(%blog.dir,*.log,%blog)
  var %blog1 $wildtok($1-,*,0,92) 
  var %blog3 $+(1-,[ [  $calc(%blog1 - 1) ] ])
  var %blog2 $+($gettok($1-,[ [ %blog3 ] ],92),\)
  if (%blog2 == %blog.dir) {
    aline @logview $remove($1-,%blog.dir)
    goto comeco
  }
  var %blog 1
  while ($line(@logview,%blog)) {
    did -a blog 1 $line(@logview,%blog)
    inc %blog
  }
  window -c @logview
}