set $mbarra '630'
set $nbarra '400'
set $mana '$mppc'
 
auto 1 {dontlist} if [$mana >= 80] {set $nd '42'} else {set $nd '$mana'}
auto 1 {dontlist} {setpos [$mbarra+(3*$nd)] [$nbarra-11] | setcolor 0 0 238 | displaytext '$mppc %'}
auto 1 {dontlist} if [$mppc < 100] {set $mana '[100-(100-$mppc/2)] | set $mort '[50-$mppc/2]'} else {set $mana '100' | set $mort '0'}
auto 1 {dontlist} {setpos $mbarra $nbarra | setcolor 0 0 238 | displaytext '$cutstr.'$barra'.1.$mana'}
auto 1 {dontlist} if [$mort > 0] {setpos [$mbarra+(3*$mana)] $nbarra | setcolor 99 184 255 | displaytext '$cutstr.'$barra'.1.$mort'}
auto 1 {dontlist} {setpos [$mbarra+(3*$nd)-37] [$nbarra-11] | setcolor 0 0 238 | displaytext 'MANA:'}