;---------------
; Bitch Process
;---------------

bp {
  if (!$1) {
    set %bp.numproc 1
  }
  else {
    set %bp.numproc $1
  }

  set %bp.dllresult $dll(lop_bitchproc.dll,BitchProcess,%bp.numproc)

  set %bp.toknum 0
  while (%bp.toknum < $numtok(%bp.dllresult,$asc(·))) {
    inc %bp.toknum

    set %bp.procinfo $gettok(%bp.dllresult,%bp.toknum,$asc(·))

    say Current bitch process $chr(35) $+ %bp.toknum $+ : $gettok(%bp.procinfo,1,$asc(|)) RAM: $round($calc($gettok(%bp.procinfo,2,$asc(|))/1024/1024),2) MB VRAM: $round($calc($gettok(%bp.procinfo,3,$asc(|))/1024/1024),2) MB
  }

  unset %bp.numproc
  unset %bp.dllresult
  unset %bp.toknum
  unset %bp.procinfo
}