menu status,menubar,channel {
  Log Kayıt
  .-
  .Bu yazışmayı kaydet:/log on
  .Kayıt etmeyi sonlandır:/log off
  .-
  .Logları (Kayıtları) Oku:/dialog -m blog blog
}

alias blog {
  dialog -m blog blog
}

dialog blog {
  title ".::[ Sohbet-chat-Baksen - Log ]::."
  size 183 106 385 260
  box "", 8, 1 -2 382 260
  list 1, 2 6 212 250, size
  box "Ara:", 2, 215 -2 168 116
  check "İsmi:", 3, 222 16 53 13
  edit "", 4, 221 28 115 23, multi return
  text "Yerine", 23, 49 60 21 13, hide
  text ".log", 5, 338 36 25 17
  check "Not:", 6, 222 56 103 13
  edit "", 7, 221 68 145 23, multi return
  box "Hakkında:", 9, 215 106 168 102
  text "Hazırlayan:", 10, 222 122 53 13
  text "Görüşünüz", 25, 71 73 27 13, hide
  text "Değişiklik:", 11, 222 147 113 13
  text "Ekleme", 21, 21 33 38 14, hide
  text "Büyüklük:", 12, 220 171 101 13
  box "Yapılacak İşlem:", 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 "Göster!", 17, 222 219 45 21
  button "Sil", 18, 269 219 45 21
  button "İptal", 19, 316 219 45 21, ok
  link "", 20, 327 241 48 21
  text "Feito", 22, 41 47 26 14, hide
  button "Arama!", 26, 306 91 75 21
}
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 Dosya Seçilmedi aratamazsı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 Dosya adı Geçersiz, bulunamadı.
  }
  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
}