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 241 199
option dbu
list 1, 1 22 239 176, size hsbar vsbar
edit "", 6, 1 10 237 10
button "Back", 7, 1 0 37 10, ok
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: {
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: {
did -a fmo 9 %imgprog
did -a fmo 10 %musicprog
did -a fmo 11 %browprog
did -a fmo 12 %textprog
}
on *:dialog:filem:menu:5: {
fmo
}
on *:dialog:filem:sclick:7: {
did -r filem 1,6 | did -a filem 6 $nofile(%pathname) | var %i 1 | while (%i <= $finddir($nofile(%pathname),*,%i,0)) { did -a filem 1 Folder: $remove($finddir($nofile(%pathname),*,%i), $nofile(%pathname) $+ \ ) | inc %i } | var %i 1 | while (%i <= $finddir($nofile(%pathname),*,%i,0)) { did -a filem 1 $findfile($nofile(%pathname),*.*,%i) | inc %i }
}
on *:dialog:filem:dclick:1: {
if ($right($did(filem, 1).seltext, 3) == PNG) { run %imgprog $did(filem, 1).seltext }
if ($right($did(filem, 1).seltext, 4) == html) { run %browprog $did(filem, 1).seltext }
if ($right($did(filem, 1).seltext, 3) == php) { run %browprog $did(filem, 1).seltext }
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 (. !isin $did(filem, 1, $did(filem, 1).sel)) { set %pathname C:\ $+ $did(filem, 1, $did(filem, 1).sel) }
if ($mid($remove($did(filem,1).seltext, Drive:), 3, 2) == C:) { did -r filem 1 | var %i 1 | while (%i <= $finddir(C:,*,%i,0)) { did -a filem 1 $remove($finddir(C:,*,%i), C:\ ) | inc %i } | var %i 1 | while (%i <= $findfile(C:,*,%i,0)) { did -a filem 1 $findfile(C:,*.*,%i) | inc %i } }
if (. !isin $did(filem, 1, $did(filem, 1).sel)) { did -r filem 6 | did -a filem 6 C:\ $+ $did(filem, 1, $did(filem, 1).sel) }
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 } }
}