Kod

alias disks {
  linesep
  var %sizes, %size_m, %size_x, %size_t, %free_t, %used_t, %pass = 1
  while (%pass <= 2) {
    var %i = 1, %n = $disk(0)
    while (%i <= %n) {
      if (%pass == 1) { set %sizes %sizes $+ $disk(%i).size $+ + | inc %i | continue }
      var %size = $disk(%i).size, %free = $disk(%i).free, %used = %size - %free
      inc %used_t %used | inc %free_t %free
      var %s = $disk(%i).path $(|) $&
        dolu: ( $+ $bytes(%used).suf $+ %,4) $+ ) $(|) $&
        boş:  ( $+ $bytes(%free).suf $+ %,4) $+ ) $(|) $&
        boyut:  ( $+ $bytes(%size).suf $+ %,4) $+ ) $(|) $&
        $disk(%i).label $+ $disk(%i).unc ( $+ $disk(%i).type $+ )
      var %len_m = $calc($len($gettok(%s,2-3,124)) +1), %len_x = $len($gettok(%s,2-4,124))
      var %len_s = $round($calc(((%size - %size_m) / (%size_x - %size_m)) * (%len_x - %len_m) + %len_m),0)
      var %len_u = $round($calc((%used / %size) * %len_s),0), %len_f = %len_s - %len_u
      var %cu = 83, %cf = 81
      echo -aic info * disk: $&
        $regsubex(%s,/(?<=\|)(.{ $+ %len_u $+ })(.{ $+ %len_f $+ })/u,$+($chr(3),99,$chr(44),%cu,\1,$chr(3),99,$chr(44),%cf,\2,$chr(15)))
      inc %i
    }
    var %sizes = $sorttok(%sizes,43,n), %size_m = $gettok(%sizes,1,43), %size_x = $gettok(%sizes,-1,43), %size_t = $calc(%sizes)
    inc %pass
  }
  var %s = ( $+ %n $+ ) $+ $iif(%n < 10,$chr(32)) $+ $(|) $&
    dolu:  ( $+ $bytes(%used_t).suf $+ %,4) $+ ) $(|) $&
    boş:  ( $+ $bytes(%free_t).suf $+ %,4) $+ ) $(|) $&
    boyut:  ( $+ $bytes(%size_t).suf $+ ) $(|) Sistem Toplamı
  var %len_s = $len($gettok(%s,2-4,124)), %len_u = $round($calc((%used_t / %size_t) * %len_s),0), %len_f = %len_s - %len_u
  var %cu = 86, %cf = 77
  echo -aic info * disk: ----+-----------------------+-----------------------+-----------------------+-----------------------
  echo -aic info * disk: $&
    $regsubex(%s,/(?<=\|)(.{ $+ %len_u $+ })(.{ $+ %len_f $+ })/u,$+($chr(3),99,$chr(44),%cu,\1,$chr(3),99,$chr(44),%cf,\2,$chr(15)))
  linesep
}