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



}