1. set $xbarra '343'
2. set $ybarra '200'
3. set $vida '$hppc'
4. set $barra '||||||||||||||||||||||||||||||||||||||||||||||||||'
5.  
6. auto 1 {dontlist} if [$hppc >= 80] {set $and '42'} else {set $and '$vida'}
7. auto 1 {dontlist} {setpos [$xbarra+(3*$and)] [$ybarra-11] | if [$hppc >= 60] {setcolor 0 255 0} | if [$hppc < 60 && $hppc >= 30] {setcolor 255 255 0} | if [$hppc < 30] {setcolor 139 69 19}  | displaytext '$hppc %'}
8. auto 1 {dontlist} if [$hppc < 100] {set $vida '[100-(100-$hppc/2)] | set $morte '[50-$hppc/2]'} else {set $vida '100' | set $morte '0'}
9. auto 1 {dontlist} {setpos $xbarra $ybarra | if [$hppc >= 60] {setcolor 0 255 0} | if [$hppc < 60 && $hppc >= 30] {setcolor 255 255 0} | if [$hppc < 30] {setcolor 139 69 19} | displaytext '$cutstr.'$barra'.1.$vida'}
10. auto 1 {dontlist} if [$morte > 0] {setpos [$xbarra+(3*$vida)] $ybarra | setcolor 255 0 0 | displaytext '$cutstr.'$barra'.1.$morte'}
11. auto 1 {dontlist} {setpos [$xbarra+(3*$and)-33] [$ybarra-11] | if [$hppc >= 60] {setcolor 0 255 0} | if [$hppc < 60 && $hppc >= 30] {setcolor 255 255 0} | if [$hppc < 30] {setcolor 139 69 19} | displaytext 'LIFE:'}