Sorry your browser is not supported!

CPY#=Camera Position Y()
CPX#=Camera Position X() 
CPZ#=Camera Position Z()
do
 If leftkey()=1 then position camera CPX#-5,CPY#,CPZ#
 If rightkey()=1 then position camera CPX#+5,CPY#,CPZ#
sync
loop

sync on
sync rate 0
hide mouse
autocam off
CPY#=Camera Position Y()
CPX#=Camera Position X()
CPZ#=Camera Position Z()
make object cube 1,10
position object 1,0,0,20
do
point camera 0,0,20
text 0,0,str$(camera position x())
 If leftkey()=1 then dec CPX#,0.1
 If rightkey()=1 then inc CPX#,0.1
 position camera CPX#,CPY#,CPZ#
sync
loop

set display mode 1024,768,32
sync on
make matrix 1,100,100,10,10
position matrix 1,-50,0,-50

rem camera
cay#=0

rotate camera 0,0,0
position camera 0,10,0
do
mx=mousex()
my=mousey()
if mx>=0 and mx<=30
cay#=cay#-1
turn camera left 1
endif
if mx>=994 and mx<=1023
cay#=cay#+1
turn camera right 1
endif
if leftkey()=1
yrotate camera cay#-90
move camera 1
yrotate camera cay#
endif
if rightkey()=1
yrotate camera cay#+90
move camera 1
yrotate camera cay#
endif
sync
loop

CPY#=Camera Position Y()
CPX#=Camera Position X()
CPZ#=Camera Position Z()
do
point camera 0,0,20
text 0,0,str$(camera position x())
 If leftkey()=1 then dec CPX#,0.1
 If rightkey()=1 then inc CPX#,0.1
 position camera CPX#,CPY#,CPZ#


rem controll input

 Rem  Control input for camera 
 If Upkey()=1 then move camera 5
 If Downkey()=1 then move camera -5
 
sync

loop

sync on
CPY#=Camera Position Y()
CPX#=Camera Position X()
CPZ#=Camera Position Z()
backdrop on
do
text 0,0,"Camera position x= "+str$(camera position x())
text 0,30,"Camera position z= "+str$(camera position z())
 If leftkey()=1 then dec CPX#,0.1
 If rightkey()=1 then inc CPX#,0.1

rem controll input

 Rem  Control input for camera
 If Upkey()=1 then inc CPZ#,0.1
 If Downkey()=1 then dec CPZ#,0.1

  position camera CPX#,CPY#,CPZ#
sync

loop

Function StrafeCamera(Cam,LR#)
position camera Cam,camera position x(Cam)+LR#*sin(camera angle y(Cam)+90),camera position y(Cam),camera position z(Cam)+LR#*cos(camera angle y(Cam)+90)
endfunction

`rem make an object for the camera to follow and as small as possible if you want
   camerabox=1; make object cube camerabox,1

`rem hide that object so its there without being able to see it
   hide object camerabox

`rem make a matrix if desired to see if you're moving
   make matrix 1,8,8,8,8

`rem position it up 1 so you can see the matrix
   position object camerabox,0,1,0

`rem main part
   do
   rem position the camera on the object (camerabox's postion)
      position camera 0,object position x(camerabox),object position y(camerabox),object position z(camerabox)

   rem regular up/down keys
      if upkey()=1 then move object camerabox,0.1

      if downkey()=1 then move object camerabox,-0.1

   Rem this is the strafe code
      if leftkey()=1 then move object left camerabox,0.1

      if rightkey()=1 then move object right camerabox,0.1

    loop