Couch

alias pbar {
  if (-* iswm $1) {
    var %switch = $1
    tokenize 32 $2-
  }
  var %win = $1, %x = $2, %y = $3, %w = $4, %h = $5, %p = $iif($6 >= 99.4,99.4,$6)
  drawline -r %win $rgb(178,178,178) 1 $calc(%x + 1) $calc(%y -1) $calc(%x + (%w -1)) $calc(%y -1)
  drawline -r %win $rgb(178,178,178) 1 $calc(%x + 1) $calc(%y + %h) $calc(%x + (%w -1)) $calc(%y + %h)
  drawline -r %win $rgb(178,178,178) 1 %x %y %x $calc(%y + %h)
  drawline -r %win $rgb(178,178,178) 1 $calc(%x + %w -1) %y $calc(%x + %w -1) $calc(%y + %h)
  var %per = $calc((%p /100) * %w)
  var %g = 1
  while (%g <= %per) {
    var %b = 1, %1 = 205, %2 = 255, %3 = 205
    while (%b <= %h) {
      drawdot -rn %win $rgb(%1,%2,%3) 1 $calc(%g + %x) $calc(%y + %b -1)
      drawtext -rn %win $rgb(250,250,250) Tahoma $calc(%h - 4) $calc(%x + 3) $calc(%y + 1) Loading $str(.,$and(3,%p))
      dec %1 4 | dec %2 4 | dec %3 4 | inc %b
    }
    inc %g
  }
  if (*l* iswm %switch) drawtext -rn %win $rgb(250,250,250) Tahoma $calc(%h - 4) $calc(%x + 3) $calc(%y + 1) Loading $str(.,$and(3,%p))
  drawdot %win
}
alias pbartest {
  window -adpk0B @Pbar
  clear @Pbar
  pbar -l @Pbar 10 10 250 13 10
  .timer 1 1 pbar -l @Pbar 10 10 250 13 100
}