mIRC 7.49 download

(türkçe sürüm)

Sohbete Bağlan

(312 online)

Türkçe Mirc Sohbet programı 7.49 versiyonunu , sorunsuz ve tek download adresinden indirmek için TIKLAYIN

mIRC Log okuyucu Dialog

Türkçe Mirc v7.49 Türkçe Sohbet Programını Hemen Bilgisayarınıza Yükleyin.

log

 

 

alias loglist { dialog -m blog blog }
dialog blog {
  title "Log Okuyucu - Aytac ScRipT"
  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, 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 "oster", 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 12 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
}

Benzer yazılar

IP Takip Kodu
Badnick Koruması Op/Admin
ıp locator (ıp yer tespıt)
Regex Kontrol
DNSBL Proxy Koruma
Spam kısa alias kodları
Services bot sokma
Şişe çevirme oyunu
Socket Cycle v1-v2-v3 Hepsinin son versionu
Radyo dinleyici kayit sistemi
mIRC Join Ulke-Sehir Gösterme Codu
!zar – komutu hediye verme


IRCALEM.Net © Tüm Hakları Saklıdır.

Bu site YuzukNET iştirakıdır.