Sorry your browser is not supported!

`Variables for camera angle and mouse movement.
CamY as Float
CamX as Float
MMoveX as Float
MMoveY as Float

`Init.
Set Display Mode 1024, 768, 32
Sync On
Sync Rate 60

`Make an object so you can tell that the camera is moving.
Make Object Cube 1, 10.0

`Main loop.
Do
	`Check for key presses and move camera accordingly.
	If KeyState( 17 )
		Move Camera 1.0
	EndIf
	If KeyState( 30 )
		Turn Camera Left 90.0
		Move Camera 1.0
		Turn Camera Right 90.0
	EndIf
	If KeyState( 31 )
		Move Camera -1.0
	EndIf
	If KeyState( 32 )
		Turn Camera Right 90.0
		Move Camera 1.0
		Turn Camera Left 90.0
	EndIf
	`Get camera angle and mouse movement and rotate camera.
	CamX = Camera Angle X( )
	CamY = Camera Angle Y( )
	MMoveX = MouseMoveX( )
	MMoveY = MouseMoveY( )
	YRotate Camera CamY + ( MMoveX / 2 )
	XRotate Camera CamX + ( MMoveY / 2 )
	
	`Update screen.
	Sync
Loop

function ControlCamera( velocity# as float )
  camXSpd# = keystate(17) - keystate(31) : camXSpd# = camXSpd# * velocity#
  camZSpd# = keystate(30) - keystate(32) : camZSpd# = camZSpd# * velocity#
  camYSpd# = keystate(16) - keystate(18) : camYSpd# = camYSpd# * velocity#
  x# = camera position x() : y# = camera position y() : z# = camera position z()
  yrotate camera wrapvalue( camera angle y() + mousemovex() / 2.0 )
  xrotate camera wrapvalue( camera angle x() + mousemovey() / 2.0 )
  ny# = y# - camYSpd#
  nx# = x# + camXSpd# * sin( camera angle y() ) + camZSpd# * sin( camera angle Y() - 90.0 )
  nz# = z# + camXSpd# * cos( camera angle y() ) + camZSpd# * cos( camera angle Y() - 90.0 )
  position camera (nx#), (ny#), (nz#)
endfunction