Sorry your browser is not supported!

rem To move camera left 10 units
turn camera left 90
move camera 10
turn camera right 90

rem To move camera right 10 units
turn camera right 90
move camera 10
turn camera left 90

rem To move camera up 10 units
pitch camera up 90
move camera 10
pitch camera down 90

rem To move camera down 10 units
pitch camera down 90
move camera 10
pitch camera up 90

position camera playerX#,playerY#,playerZ#

rem align camera to the cockpit orientation
set camera to object orientation 30

rem move camera up, because the camera is below the HUD view.
pitch camera up 90
move camera 20
pitch camera down 90

rem advance the camera, because the camera is too far from the HUD.
move camera 55

rem we put the mouse in the center of the screen
position mouse 320,240

rem we orient the camera again, for the free look view
set camera to object orientation 30

rem we create camera angles using the movement of the mouse
rem this part of code is from a DB example.
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())

rem I did this next part, because it's a plane and his X angle isn't ever 0
cx2#=wrapvalue(object angle x(30)+cx#)
cy2#=wrapvalue(object angle y(30)+cy#)
cz2#=wrapvalue(object angle z(30)+cz#)

xrotate camera cx2#
yrotate camera cy2#
zrotate camera cz2#

`**********************************************************
`*  Coded By JessTicular ( Jess Telford )                 *
`*                                                        *
`*  Controls;                                             *
`*     Camera Control;                                    *
`*         Left Key  ... Turn Left                        *
`*         Right Key ... Turn Right                       *
`*         Up Key    ... Increase Forward Velocity        *
`*         Down Key  ... Increase Backward Velocity       *
`*                                                        *
`*     Cockpit Control;                                   *
`*         'a' ... Look Left                              *
`*         'd' ... Look Right                             *
`*         'w' ... Look Down  ~  Not working...           *
`*         's' ... Look Up    ~  Not working...           *
`*                                                        *
`**********************************************************


`Set-up
Sync On : Sync Rate 60
BackDrop On : Color BackDrop RGB(0,0,255)
Draw To Front
Ink RGB(255,50,50),0

`Visual reference
Make Matrix 1,1000,1000,10,10
UpDate Matrix 1

`Virtual HUD
Make Object Cube 1,10
Scale Object 1,100,50,200
Set Object 1,1,1,0
Ghost Object On 1

`Set Up Camera
Position Camera 0,50,0

`Set up HUD move/look variables
speed# = 0.0     :    `The movement speed
yacam# = 0.0     :    `The yangle of the HUD
yalook# = yacam# :    `The yangle of the camera look
zalook# = 0.0    :    `The zangle of the camera look


Do


   yacam# = _move_right_left(yacam#,1.0)
   speed# = _move_fore_back(speed#,0.2)

   yalook# = _look_right_left(yalook#,1.0)
`   zalook# = _look_up_down(zalook#,1.0)

   _update_cam(speed#,yacam#,yalook#,zalook#)

   _update_hud(1,yacam#)


   _debug(speed#,yacam#,yalook#)


   If InKey$() = "r" Then yalook# = 0 : zalook# = 0 : speed# = 0 : yacam# = 0 : Position Camera 0,50,0


Sync
Loop




Function _update_cam(speed#,yacam#,yalook#,zalook#)

   `Simple movement based on the angle that the HUD is facing

   camx# = NewXValue(Camera Position X(),yacam#,speed#)
   camz# = NewZValue(Camera Position Z(),yacam#,speed#)

   Position Camera camx#,Camera Position Y(),camz#

   `Rotation of the camera.
   YRotate Camera WrapValue(yacam# + yalook#)
   ZRotate Camera zalook#


EndFunction





Function _update_hud(obj,yacam#)


   `Positions the virtual HUD where the camera is

   Position Object obj,Camera Position X(),Camera Position Y(),Camera Position Z()
   YRotate Object obj,yacam#


EndFunction





Function _move_right_left(yacam#,stepval#)


   `Icriments/Decrements the values for the HUD angle

   If RightKey() = 1 Then yacam# = WrapValue(yacam# + stepval#)
   If LeftKey() = 1 Then yacam# = WrapValue(yacam# - stepval#)


EndFunction yacam#





Function _move_fore_back(speed#,stepval#)


   `Inriments/Decrements the speed the camera is moving with

   If UpKey() = 1 Then speed# = speed# + stepval#
   If DownKey() = 1 Then speed# = speed# - stepval#


EndFunction speed#




Function _look_right_left(yalook#,stepval#)


   If InKey$() = "d" Then yalook# = WrapValue(yalook# + stepval#)
   If InKey$() = "a" Then yalook# = WrapValue(yalook# - stepval#)


EndFunction yalook#




Function _look_up_down(zalook#,stepval#)


   If InKey$() = "w" Then zalook# = WrapValue(zalook# + stepval#)
   If InKey$() = "s" Then zalook# = WrapValue(zalook# - stepval#)


EndFunction zalook#





Function _debug(speed#,yacam#,yalook#)


   `Some Debugging info.

   Text 0,0,"Frame Rate; " + Str$(Screen FPS())
   Text 0,20,"Speed; " + Str$(speed#)
   Text 0,40,"Flight Angle; " + Str$(yacam#)
   Text 0,60,"Cockpit Angle ( Realtive To Flight Angle ); " + Str$(yalook#)
   Text 0,80,"Cockpit Angle ( Relative To World ); " + Str$(WrapValue(yacam# + yalook#))
   Text 0,120,"Press 'r' To reset All Variables"


EndFunction