FrameLimit 40
floor=MakeObjectFloor()
texture=LoadImage("Media\grass.bmp")
PaintObject floor,texture
guy=LoadObject("Media\guy.bmp")
Repeat
'Perform this code every 40. times
'(once a second since FrameLimit is 40)
If t=0 Then
RotateCamera Rand(360)
t=40
Else
t=t-1
EndIf
MoveCamera 1
'draw some 2d-graphics, too
DrawGame
Line 200,150,200+Cos(CameraAngle())*100,150-Sin(CameraAngle())*100
DrawScreen
Until EscapeKey()
|
|