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 } }



}