Code: Alles auswählen
InitSprite()
InitKeyboard()
#LifeBar = 0
OpenScreen(800,600,16,"Hallo")
CreateSprite(#LifeBar, 20, 100)
energy = 100
Repeat
ExamineKeyboard()
ClearScreen(0,0,0)
;-----------------------------
UseBuffer(#LifeBar)
ClearScreen(255 - energy * 2.55, energy * 2.55, 0)
UseBuffer(#PB_Default)
ClipSprite(#LifeBar, 0, 0, 20, energy)
DisplaySprite(#LifeBar, 100, 300 - energy)
;-----------------------------
FlipBuffers()
If KeyboardPushed(#PB_Key_Up) And energy < 100: energy + 1: EndIf
If KeyboardPushed(#PB_Key_Down) And energy > 0: energy - 1: EndIf
Until KeyboardPushed(#PB_Key_Escape)
Code: Alles auswählen
InitSprite()
InitKeyboard()
OpenScreen(800,600,16,"Hallo")
energy = 100
Repeat
ExamineKeyboard()
ClearScreen(0,0,0)
;-----------------------------
StartDrawing(ScreenOutput())
Box(100, 300 - energy, 20, energy, RGB(255 - energy * 2.55, energy * 2.55, 0))
StopDrawing()
;-----------------------------
FlipBuffers()
If KeyboardPushed(#PB_Key_Up) And energy < 100: energy + 1: EndIf
If KeyboardPushed(#PB_Key_Down) And energy > 0: energy - 1: EndIf
Until KeyboardPushed(#PB_Key_Escape)