ちょうど俺も今つくってるんだけど、
横1ドット、縦数ドットのグラデーションのスプライトを定義して、SPSCALEでライフ分だけ横に伸ばして使ってる。
SPDEF 100,0,0,1,5
GPAGE 0,4
GPSET 0,0,RGB(255,0,0)
GPSET 0,0,RGB(255,255,0)
GPSET 0,0,RGB(255,196,0)
GPSET 0,0,RGB(196,128,0)
GPSET 0,0,RGB(128,128,0)
SPSET 0,100
...
SPSCALE 0,HP,1
SPOFS 0,10,10
こんな感じ
0そうだね プレイ済み