Sorry your browser is not supported!

if inkey$()="w" then move camera 25
if inkey$()="s" then move camera -25
if inkey$()="a" then
if inkey$()="d" then

do
`Do stuff here
AngY#=Camera Angle y()
If inkey$="w" then move camera 25
If inkey$="s" then move camera -25
If inkey$="a"
   Camx#=newxvalue(Camera Position x(),wrapvalue(AngY#-90),25)
   Camz#=newzvalue(Camera Position z(),wrapvalue(AngY#-90),25)
   Camy#=get ground height(1,camx#,camz#)+25
   Position Camera camx#,camy#,camz#
endif

if inkey$="d"
   Camx#=newxvalue(Camera Position x(),wrapvalue(AngY#+90),25)
   Camz#=newzvalue(Camera Position z(),wrapvalue(AngY#+90),25)
   Camy#=get ground height(1,camx#,camz#)+25
   Position Camera camx#,camy#,camz#
endif
sync
loop

Sync On
Sync Rate 50

Make Matrix 1,1000,1000,10,10

Do

`!!!Forwards and Backwards here!!!
If Upkey()=1 then Move Camera 5

If Downkey()=1 then Move Camera -5

`!!!Strafing Here!!!
If Rightkey()=1
	Yrotate Camera Wrapvalue(camera angle y()+90)
	Move Camera 5
	Yrotate Camera Wrapvalue(camera angle y()-90)
Endif

If Leftkey()=1
	Yrotate Camera Wrapvalue(camera angle y()-90)
	Move Camera 5
	Yrotate Camera Wrapvalue(camera angle y()+90)
Endif

`!!!MouseLook Here!!!
Rotate Camera Camera Angle X()+MouseMoveY(),Camera Angle Y()+MouseMoveX(),0

`!!!Position Above Matrix Here!!!
Position Camera Camera Position X(),Get Ground Height(1,Camera Position X(),Camera Position Z())+80,Camera Position Z()

Sync
Loop