set $xbarra '630' set $ybarra '283' set $vida '$hppc' set $barra '||||||||||||||||||||||||||||||||||||||||||||||||||' auto 1 {dontlist} if [$vida >= 80] {set $and '42'} else {set $and '$vida'} 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 %'} auto 1 {dontlist} if [$hppc < 100] {set $vida '[100-(100-$hppc/2)] | set $morte '[50-$hppc/2]'} else {set $vida '100' | set $morte '0'} 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'} auto 1 {dontlist} if [$morte > 0] {setpos [$xbarra+(3*$vida)] $ybarra | setcolor 255 0 0 | displaytext '$cutstr.'$barra'.1.$morte'} 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:'}