FrameLimit 40 'limit game speed
aim=LoadObject("Media\crosshair.bmp")
soldier=LoadObject("Media\soldier.bmp",360)
Color cborange
AddText "Guide the soldier with the arrows..."
ClsColor cbdark
Repeat
'Move object
TranslateObject soldier,RightKey()*2,0
TranslateObject soldier, -LeftKey()*2,0
TranslateObject soldier,0,UpKey()*2
TranslateObject soldier,0, -DownKey()*2
'Keep the aim at the cross
PointObject soldier,aim
DrawScreen
Until EscapeKey()
|
|