Sorry your browser is not supported!

if mousex() > screen width()
mousex() = screen width() 
position camera camera position x() + 10,camera position y(),camera position z()
endif

rem Declare our function
Function PanCamera(Cam,XP#,YP#,ZP#,XA,YA,ZA,STEPS)
remstart
CAM=Camera number
XP#=X position destination
YP#=Y position destination
ZP#=Z position destination
XA=X angle destination
YA=Y angle destination
ZA=Z angle destination
STEPS=The amount of steps that it takes to reach the destination.
remend

rem Slowly curve the camera's X position the the destination spot. The speed of this curve is based on the variable STEPS.
cx#=Curvevalue(XP#,Camera Position x(CAM),STEPS)
rem Slowly curve the Camera's Y position to the destination spot. The speed of this curve is based on the variable STEPS.
cy#=Curvevalue(yP#,Camera Position y(CAM),STEPS)
rem slowly curve the Z position to the destination spot. The speed of this curve is based on the variable STEPS.
cz#=Curvevalue(zP#,Camera Position z(CAM),STEPS)

rem Do the same for the camera's angles.
cax#=Curveangle(XA,Camera Angle X(CAM),STEPS)
cay#=Curveangle(yA,Camera Angle y(CAM),STEPS)
caz#=Curveangle(zA,Camera Angle z(CAM),STEPS)

rem And update the camera to these positions.
rotate camera CAM,cax#,cay#,caz#
Position Camera CAM,cx#,cy#,cz#
endfunction

rem Setup Game
sync on
sync rate 0
autocam off

rem Create a matrix for a sense of direction.
Make MAtrix 1,10000,10000,60,60

rem Randomize the matrix.
randomize matrix 1,100

rem Now update it.
update matrix 1

rem Create an image for the matrix.
create bitmap 1,10,10
for d = 1 to 1000
ink rgb(0,rnd(255),0),0
dot rnd(10),rnd(10)
next d
blur bitmap 1,6
get image 1,0,0,10,10
delete bitmap 1

rem Put the image on the matrix
prepare matrix texture 1,1,1,1

rem Set the range of the camera to pretty far.
set camera range 1,10000

rem put the camera someplace to start.
position camera 0,900,0

do
rem Call the PanCamera function.
PanCamera(0,x,y,z,45,ya,0,100)

rem If the spacebar is pressed, then randomize the camera's destination.
if spacekey() and KEY=0 then x=rnd(10000) : y=rnd(5000) : z=rnd(10000) : ya=rnd(360)

rem Tell if the spacebar has been pressed yet.
KEY=Spacekey()

rem Update Screen
sync

rem End loop
loop


rem Declare our function
Function PanCamera(Cam,XP#,YP#,ZP#,XA,YA,ZA,STEPS)
remstart
CAM=Camera number
XP#=X position destination
YP#=Y position destination
ZP#=Z position destination
XA=X angle destination
YA=Y angle destination
ZA=Z angle destination
STEPS=The amount of steps that it takes to reach the destination.
remend

rem Slowly curve the camera's X position the the destination spot. The speed of this curve is based on the variable STEPS.
cx#=Curvevalue(XP#,Camera Position x(CAM),STEPS)
rem Slowly curve the Camera's Y position to the destination spot. The speed of this curve is based on the variable STEPS.
cy#=Curvevalue(yP#,Camera Position y(CAM),STEPS)
rem slowly curve the Z position to the destination spot. The speed of this curve is based on the variable STEPS.
cz#=Curvevalue(zP#,Camera Position z(CAM),STEPS)

rem Do the same for the camera's angles.
cax#=Curveangle(XA,Camera Angle X(CAM),STEPS)
cay#=Curveangle(yA,Camera Angle y(CAM),STEPS)
caz#=Curveangle(zA,Camera Angle z(CAM),STEPS)

rem And update the camera to these positions.
rotate camera CAM,cax#,cay#,caz#
Position Camera CAM,cx#,cy#,cz#
endfunction

rem *************************************
rem SIMPLE CAMERA PAN WITH BOUNDS
rem *************************************

rem Setup Demo
sync on
sync rate 60
autocam off

rem Make a landscape for a sense of movement
Make MAtrix 1,1000,1000,40,40

rem Place the camera above the landscape.
position camera 0,130,0

rem Rotate it a bit so it looks at the landscape.
xrotate camera 70

rem Begin Loop
do

rem Get the camera's current position
cx#=camera position x()
cy#=camera position y()
cz#=camera position z()

rem if the mouse goes to the right side of the screen, then move the camera's X position variable that way. (LEft)
if Mousex()>Screen Width()-10 then CX#=CX#+5

rem if the mouse goes to the left, move the camera's X position that way.(Right)
if mousex()=0 then CX#=CX#-5

rem if the mouse goes to the top, move the camera's Z position that way.(Up)
if mousey()=0 then CZ#=CZ#+5

rem if the mouse goes to the bottom, move the camera's Z position that way.(Down)
if mousey()>Screen height()-10 then CZ#=CZ#-5

rem Some bounds. IF the camera's position variable goes near the edge, then put it back on the landscape
if CX#<100 then CX#=100

if CZ#<100 then CZ#=100

if CX#>900 then CX#=900

if CZ#>900 then CZ#=900


rem Update the camera to the correct positions
Position Camera cx#,cy#,cz#


sync
loop

rem make matrix
make matrix 1,10000,10000,65,65

rem camera position
position camera 5000,550,5000

rem main loop
do

rem scroll forward
if mousey()<1 
move camera 12.0
endif

rem scroll backward
if mousey()>470
move camera -12.0
endif


rem end loop
loop