FrameLimit 40
'Make scene
floor=MakeObjectFloor()
texture=LoadImage("Media\grass.bmp")
PaintObject floor,texture
guy=LoadObject("Media\guy.bmp")
AddText "Press SPACE for default camera position"
Repeat
'move camera as absolute
TranslateCamera 1,1
'return to origin?
If KeyDown(cbkeyspace) Then PositionCamera 0,0
'Print the camera coordinates
DrawGame
Text 20,20,CameraX()
Text 20,40,CameraY()
DrawScreen
Until EscapeKey()
|
|