Messages disk options to the channel your on. (Disk as in C:\,.. etc..)

alias hdisk {
  var %a = 1, %b = $disk(0)
  while (%a <= %b) {
    if ($disk(%a) == $true) {
      .timer 1 %a msg $chan 4Disk: $disk(%a).path $+ ; 4Type: $disk(%a).type $+ ; 4Size: $bytes($disk(%a).size,b3).suf $+ ; 4Free: $bytes($disk(%a).free,b3).suf 12( $+ $round($calc(($disk(%a).free / $disk(%a).size) * 100),2) $+ % $+ 12)
    }
    if ($disk(%a) == $false) {
      .timer 1 %a msg $chan 4Disk: $disk(%a).path $+ ; 4Type: $replace($disk(%a).type,removable,floppy) $+ .
    }
    inc %a
  }
}