@program health.muf 1 10000 d i $include $lib/alynna $include $lib/rp $include $lib/rps $def spc50 " " : healthbar[ i:amount i:total -- s:bar ] var curstr { amount @ tostr 4 rj "/" total @ tostr 4 lj }cat spc50 strcat 50 strcut pop curstr ! amount @ float total @ float / 100.0 * 0 round ftostrc "%" strcat dup strlen curstr @ strlen swap - curstr @ swap strcut pop swap strcat curstr ! curstr @ amount @ float total @ float / 50.0 * int strcut "^BBLUE^^YELLOW^" swap strcat strcat { "^UNDERLINE^^BRED^^YELLOW^" rot "^NORMAL^" }cat ; : main var! param var target param @ match target ! target @ 0 >= if target @ 1 array_make then param @ not if { me @ location contents_array foreach target ! pop target @ thing? target @ "Z" flag? and dup if target @ awake? else 0 then and target @ player? dup if target @ awake? else 0 then and or if target @ then repeat }array then param @ "#all" smatch if online_array then var! targets "Health" header tellme targets @ foreach target ! pop { "^GREEN^" target @ name 26 lj "^YELLOW^[" target @ "HP" getstatint target @ maxhp healthbar "^YELLOW^]" }tell repeat "Health 1.0" footer tellme ; . c q