;; A simple stautsbar

;; use $stausbar(N,N) 
;; eg. $statusbar(27,100) or $statusbar(783,4394) 
alias statusbar {
  return $statusbar_percent($calc($1 * 100 / $2))
}

;; use $statusbar_percent(N)  
;; eg. $statusbar_percent(27)  
alias statusbar_percent {
  var %bar_color 
  var %bar_used_color 9
  var %bar_empty_color 4
  var %bar_start [
  var %bar_end ]
  var %bar
  var %count $calc($1 / 5)
  var %i 0
  while ( %i < 20 ) {
    if ( %i < %count ) { 
      %bar = %bar $+ %bar_used_Color $+ |
    } 
    else {
      %bar = %bar $+ %bar_empty_color $+ .
    }
    inc %i 
  }
  return %bar_color $+ %bar_start $+ %bar $+ %bar_color $+ %bar_end $+ 
}