Log Finder Dialog

By Scakk on Jul 14, 2008

Ths dialog will let you open a log file for a channel , PM or @Window without having to go through Tools.

Edit box #1 Log file you are looking for.
Edit box #2 Defaults to current network if one is not entered.
Edit box #3 Used if you seperate your log files at a certain limit. ( optional )

***Written on mIRC version 6.21 with Windows XP.

Image

menu * { 
  Log Finder:logfind
}
alias logfind { dialog $iif($dialog(LogFind), -va, -m) LogFind LogFind }
dialog LogFind {
  title "Log Finder"
  size -1 -1 150 115
  text "Log File", 1, 5 8 45 20, center
  edit "", 2, 55 5 90 20, autohs center
  text "Network", 3, 5 38 45 20, center
  edit "", 4, 55 35 90 20, autohs center
  text "Extra", 5, 5 65 48 20, center
  edit "", 6, 55 65 90 20, autohs center
  button "Open", 7, 40 90 75 20
}
on *:dialog:logfind:*:*: {
  if ($devent == init) { did -b $dname 7 | did -b $dname 4 }
  if ($devent == edit) { 
    if ($did == 2) { 
      if ($did(2).text) { did -e $dname 4,7 }
      if (!$did(2).text) { did -b $dname 4,7 }
    } 
  }
  if ($devent == sclick) { 
    if ($did == 7) {
      if ($exists($qt($logdir $+ $iif($did(4).text, $did(4).text, $network) $+  $+ $did(2).text $+ $iif($did(6).text, $iif($left($did(6).text,1) == $chr(46), $did(6).text, $chr(46) $+ $did(6).text)) $+ .log))) { run $qt($logdir $+ $iif($did(4).text, $did(4).text, $network) $+  $+ $did(2).text $+ $iif($did(6).text, $iif($left($did(6).text,1) == $chr(46), $did(6).text, $chr(46) $+ $did(6).text)) $+ .log) }
      else { echo $color(kick) That log file does not exists. }
    }
  }
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.