img = Loadimage("твоя_полоска.jpg")
imgH = ImageHeight(img)
imgW = ImageWidth(img)
Const MaxHealth = 200 ; максимальный уровень здоровья
...
Repeat
Тут условие на изменение здоровья. Это объяснять, надеюсь, не надо?
RenderWorld
DrawImageRect img,100,100,0,0,Float(health)\MaxHealth*ImgW,ImgH
Flip
Until KeyHit(1)
Можно делать иначе: рисовать не часть полоски, а скейлить всю картинку до нужного размера каждый раз. НО это медленнее.