on *:load: {
set %imgprog mspaint.exe
set %browprog firefox.exe
set %textprog notepad.exe
set %musicprog winamp.exe
}
alias filem {
dialog -m filem filem
}
alias fmo {
dialog -m fmo fmo
}
dialog filem {
title "mIRC File Manager"
size -1 -1 311 224
option dbu
list 1, 71 20 239 203, size hsbar vsbar
edit "", 6, 1 10 270 10
button "Up One Directory", 7, 1 0 47 10, ok
button "Go", 8, 271 10 38 10
text "Details", 10, 1 29 69 8, center
edit "", 9, 0 38 71 55, read multi
menu "File", 2
item "Close", 3, 2, ok
menu "Edit", 4
item "Options", 5, 4
}
dialog fmo {
title "Options"
size -1 -1 143 149
option dbu
text "Options", 3, 8 3 123 8, center
text "IMAGES:", 4, 9 54 25 8
text "MUSIC PLAYER:", 5, 9 74 40 8
text "BROWSER:", 6, 9 94 31 8
text "You can change what program you want a file to open up here. Defaults are MsPaint, Firefox, WinAmp, and Notepad ", 7, 8 18 124 24
text "TEXT DOCS:", 8, 9 114 31 8
edit "", 9, 78 54 50 10, limit 100
edit "", 10, 78 74 50 10, limit 100
edit "", 11, 78 94 50 10, limit 100
edit "", 12, 78 114 50 10, limit 100
button "Update", 13, 28 133 37 12, ok
button "Cancel", 14, 80 133 37 12, cancel
menu "File", 1
item "Close", 2, 1, ok
}
on *:dialog:filem:init:0: {
did -b filem 7
did -a filem 6 My Computer
var %i 1
while (%i <= $disk(0)) {
did -a filem 1 Drive: ( $+ $remove($disk(%i).path, \) $+ ) (Click here to go to This Drive)
did -a filem 1 Total Size: $bytes($disk(%i).size, g).suf
did -a filem 1 Free: $bytes($disk(%i).free, g).suf
did -a filem 1 Used: $calc($bytes($disk(%i).size, g) - $bytes($disk(%i).free, g)) $+ GB
did -a filem 1 $crlf
inc %i }
}
on *:dialog:fmo:init:0: {
if ($did(fmo, 9) == $null) { did -a fmo 9 mspaint.exe }
else { did -a fmo 9 %imgprog }
if ($did(fmo, 10) == $null) { did -a fmo 10 winamp.exe }
else { did -a fmo 10 %musicprog }
if ($did(fmo, 11) == $null) { did -a fmo 11 firefox.exe }
else { did -a fmo 11 %browprog }
if ($did(fmo, 12) == $null) { did -a fmo 12 notepad.exe }
else { did -a fmo 12 %textprog }
}
on *:dialog:filem:menu:5: {
fmo
}
on *:dialog:filem:sclick:1: {
if ($did(filem, 9) != $null) { did -r filem 9 }
if (. !isin $did($dname,1).seltext) { halt }
if (!%pathname) { halt }
var %a = $file($shortfn($did($dname,1).seltext)).size,%fm_r = 0,%fm_r2
while (%a >= 1024) {
%a = $calc(%a / 1024)
inc %fm_r
}
if (%fm_r == 0) { %fm_r2 = b }
if (%fm_r == 1) { %fm_r2 = k }
if (%fm_r == 2) { %fm_r2 = m }
if (%fm_r >= 3) { %fm_r2 = g }
.did -a $dname 9 Filename: $nopath($did(filem, 1).seltext))
.did -a $dname 9 $crlf
.did -a $dname 9 $bytes($file($shortfn($did($dname,1).seltext)).size,%fm_r2).suf
}
on *:dialog:filem:sclick:7: {
if ($nofile($left(%pathname, $calc($len(%pathname) - 1))) == $remove(%pathname, \)) { did -b filem 7 }
else { did -e filem 7 }
If ($nofile($left(%pathname, $calc($len(%pathname) - 1))) == $remove(%pathname, \)) {
did -r filem 1,6
did -a filem 6 My Computer
var %i 1
while (%i <= $disk(0)) {
did -a filem 1 Drive: ( $+ $remove($disk(%i).path, \) $+ ) (Click here to go to This Drive)
did -a filem 1 Total Size: $bytes($disk(%i).size, g).suf
did -a filem 1 Free: $bytes($disk(%i).free, g).suf
did -a filem 1 Used: $calc($bytes($disk(%i).size, g) - $bytes($disk(%i).free, g)) $+ GB
did -a filem 1 $crlf
inc %i }
}
else {
did -r filem 1,6
did -a filem 6 $nofile($left(%pathname, $calc($len(%pathname) - 1)))
var %i 1
while (%i <= $finddir($nofile($left(%pathname, $calc($len(%pathname) - 1))),*,%i,0)) {
did -a filem 1 $finddir($nofile($left(%pathname, $calc($len(%pathname) - 1))),*,%i))
inc %i }
var %i 1
while (%i <= $findfile($nofile($left(%pathname, $calc($len(%pathname) - 1))),*.*,%i,0)) {
did -a filem 1 $findfile($nofile($left(%pathname, $calc($len(%pathname) - 1))),*.*,%i)
inc %i }
set %pathname $nofile($left(%pathname, $calc($len(%pathname) - 1)))
}
}
on *:dialog:filem:dclick:1: {
if ($did(filem, 6) != $null) { unset %drive }
if ($right($did(filem, 1).seltext, 3) == PNG) { run %imgprog $did(filem, 1).seltext }
if ($right($did(filem, 1).seltext, 4) == html) { run %browprog $replace($did(filem, 1).seltext, $chr(32), $chr(37) $+ 20) }
if ($right($did(filem, 1).seltext, 3) == htm) { run %browprog $replace($did(filem, 1).seltext, $chr(32), $chr(37) $+ 20 ) }
if ($right($did(filem, 1).seltext, 3) == php) { run %browprog $replace($did(filem, 1).seltext, $chr(32), $chr(37) $+ 20 ) }
if ($right($did(filem, 1).seltext, 3) == txt) { run %textprog $did(filem, 1).seltext }
if ($right($did(filem, 1).seltext, 3) == mp3) { run $findfile(C:, %musicprog, 1) $replace($did(filem, 1).seltext, $chr(32), _ ) }
if ($right($did(filem, 1).seltext, 3) == mpg) { run $findfile(C:, %musicprog, 1) $replace($did(filem, 1).seltext, $chr(32), _ ) }
if ($right($did(filem, 1).seltext, 3) == avi) { run $findfile(C:, %musicprog, 1) $replace($did(filem, 1).seltext, $chr(32), _ ) }
if (Drive: isin $did(filem, 1, $did(filem, 1).sel)) {
did -e filem 7
set %drive $mid($did(filem, 1, $did(filem, 1).sel), 9, 2)
did -r filem 1
var %i 1
while (%i <= $finddir(%drive,*,%i,0)) {
did -a filem 1 $remove($finddir(%drive,*,%i), %drive $+ \)
inc %i }
var %i 1
while (%i <= $findfile(%drive,*,%i,0)) {
did -a filem 1 $findfile(%drive,*.*,%i)
inc %i } }
if (. !isin $did(filem, 1, $did(filem, 1).sel)) { set %pathname %drive $+ $did(filem, 1, $did(filem, 1).sel) $+ \ }
if (. !isin $did(filem, 1, $did(filem, 1).sel)) { did -r filem 6 | did -a filem 6 %pathname }
if (%pathname != $null) {
did -r filem 1
var %i 1
while (%i <= $finddir(%pathname,*,%i,0)) {
did -a filem 1 $remove($finddir(%pathname,*,%i), %pathname $+ \ )
inc %i }
var %i 1
while (%i <= $findfile(%pathname,*,%i,0)) {
did -a filem 1 $findfile(%pathname,*.*,%i)
inc %i } }
}