'make screen a bit zoomed
SCREEN 250,188,0,cbsizable
FrameLimit 40 'limit game speed
'load animation for both directions
zeroright=LoadAnimObject("Media\zerorun1.bmp",47,51,0,12)
MaskObject zeroright,cbmagenta
zeroleft=LoadAnimObject("Media\zerorun2.bmp",47,51,0,12)
MaskObject zeroleft,cbmagenta
ShowObject zeroleft,OFF
'default direction
zero=zeroright
Color cbblack
AddText "Try arrows"
ClsColor cbwhite
'MAIN LOOP
Repeat
'run right!
If RightKey() Then
ShowObject zeroright,ON
ShowObject zeroleft,OFF
zero=zeroright
LoopObject zero,2,11,0.25,ON 'animate at speed 0.25
'run left!
ElseIf LeftKey() Then
ShowObject zeroleft,ON
ShowObject zeroright,OFF
zero=zeroleft
LoopObject zero,2,11,0.25,ON 'animate at speed 0.25
Else
'nothing is pressed so freeze
StopObject zero
EndIf
DrawScreen
Until EscapeKey()
|
|