Simple FPS camera with mouselook, move left-right, forward-back.

Simple FPS camera with mouselook, move left-right, forward-back.
Copy the code and run it. Should compile with no problem.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: FPScamera
Rem Created: 1/8/2010 11:23:15 AM
Rem It's not a jewel of code, but hope it will be usefull for someboady...
Rem Simple FPS camera with mouselook, strafe left-right, move forward-back
Rem Code by Skywriter
Rem ***** Main Source File *****
sync on
sync rate 60

make matrix 1,1000,1000,100,100

position camera 0, 500,100,500

camspeed = 8
camheight = 100
xpos = camera position x(0)
zpos = camera position z(0)

do
   camRotY = wrapvalue(camera angle y(0)+ mousemovex()*0.3)
   camRotX = wrapvalue(camera angle x(0)+ mousemovey()*0.3)

if upkey()=1
    inc xpos, sin(camRotY)*camspeed
    inc zpos, cos(camRotY)*camspeed
    position camera xpos,camheight,zpos
 endif
if downkey()=1
    dec xpos, sin(camRotY)*camspeed
    dec zpos, cos(camRotY)*camspeed
    position camera xpos,camheight,zpos
endif
if leftkey()=1
    dec xpos, sin(camRotY+90)*camspeed
    dec zpos, cos(camRotY+90)*camspeed
    position camera xpos,camheight,zpos
endif
if rightkey()=1
    dec xpos, sin(camRotY-90)*camspeed
    dec zpos, cos(camRotY-90)*camspeed
    position camera xpos,camheight,zpos
endif

rotate camera camRotX,camRotY,0

text 0,10,"FPS = "+str$(screen fps())

sync
loop