'ALSO SEE BEGINNER'S LESSON 8
FrameLimit 40
'create an infinite grass scene
lawn=LoadImage("Media\grass.bmp")
grass=MakeObjectFloor()
PaintObject grass,lawn
'load the player
guy=LoadObject("Media\guy.bmp",72)
While Not KeyHit(1) 'esc
'rotate object
TurnObject guy, -5
'move object
TranslateObject guy,1,1
'camera follow
CloneCameraPosition guy
DrawGame
'print some statics
Text 10,10,"X: "+ObjectX(guy)
Text 10,30,"Y: "+ObjectY(guy)
Text 10,50,"angle: "+ObjectAngle(guy)
DrawScreen
Wend
|
|