Control Camera Using Keyboard

Control Camera Using the following Keys

UpArrow = Forward, DownArrow = Backward
Left and right arrows turn
Pageup = Up
PageDown = Down
Home = Tilt Camera Down
End = Tilt Camera Up

Shift key reduce speed

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    ink RGB(0,0,0),RGB(255,0,0)
color backdrop RGB(0,0,120)
set ambient light 50
sync on
sync rate 60

make object plain 1, 100,100
color object 1, RGB(0,128,0)



do
   IF SCANCODE() then PositionCamera()
   sync
loop


Function PositionCamera()
remstart
   used to control camera

   Insert before a sync as follows

   IF SCANCODE() then PositionCamera()

   UpArrow = Forward, DownArrow = Backward
   Left and right arrows turn
   Pageup = Up
   PageDown = Down
   Home = Tilt Camera Down
   End = Tilt Camera Up

   Shift key reduce speed

remend

   IF CONTROLKEY()THEN MyChange = 20 Else MyChange = 5
   IF SHIFTKEY() THEN MyChange = 1 Else MyChange = 5
   IF UPKEY()
      TEMPXANG = CAMERA ANGLE X(0)
      XROTATE CAMERA 0, 0
      MOVE CAMERA 0, 2 * MyChange
      XROTATE CAMERA 0, TEMPXANG
   ENDIF
   IF DOWNKEY()
      TEMPXANG = CAMERA ANGLE X(0)
      XROTATE CAMERA 0, 0
      MOVE CAMERA 0, -2 * MyChange
      XROTATE CAMERA 0, TEMPXANG
   ENDIF

   IF LEFTKEY() then yrotate camera 0, camera angle y (0) -1
   IF RIGHTKEY() then yrotate camera 0, camera angle y (0) +1
   IF KEYSTATE (207) THEN xrotate camera 0, camera angle x (0) -.5
   IF KEYSTATE (199) THEN xrotate camera 0, camera angle x (0) +.5
   IF KEYSTATE (201) THEN POSITION CAMERA 0,Camera position x(0),Camera position y(0)+MyChange, Camera position z(0)
   IF KEYSTATE (209) THEN POSITION CAMERA 0,Camera position x(0),Camera position y(0)-MyChange, Camera position z(0)
   IF KEYSTATE (210) THEN Xrotate camera 0, 0
EndFunction