FrameLimit 40
'Make an infinite lawn the guy can walk on
floor= MakeObjectFloor()
'Texture the EMPTY floor as grass
lawn= LoadImage("Media\grass.bmp")
PaintObject floor,lawn
guy= LoadObject("Media\guy.bmp",75)
AddText "Use arrows to move..."
AddText "Press RETURN to 'zoom'"
Repeat
'Update controls
If LeftKey() Then TurnObject guy,5
If RightKey() Then TurnObject guy, -5
If UpKey() Then MoveObject guy,2
If DownKey() Then MoveObject guy, -2
'Glue camera to object position
CloneCameraPosition guy
'The 'zooming' system
If KeyDown(cbkeyreturn) Then
zoom#=CurveValue(100,zoom#,20.0)
Else
zoom#=CurveValue(0,zoom#,20.0)
EndIf
CloneCameraOrientation guy
MoveCamera zoom#
DrawScreen
Until EscapeKey()
|
|