Sorry your browser is not supported!

REM Project: Nicks1
REM Created: 17/03/2007 19:05:45
REM
REM ***** Main Source File *****
Set Display mode 1280,1024,32


load object "onyx palm textured2.x" ,1

set camera to object orientation 0, 1



` 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,250)
backdrop on
set ambient light 50
sync on
sync rate 60



do
   IF SCANCODE() then PositionCamera()
   sync
loop

end


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# = 0.1
   IF SHIFTKEY() THEN MyChange = 1 Else MyChange# = 0.1
   IF UPKEY()
      TEMPXANG = CAMERA ANGLE X(0)
      XROTATE CAMERA 0, 0
      MOVE CAMERA 0, 1 * MyChange#
      XROTATE CAMERA 0, TEMPXANG
   ENDIF
   IF DOWNKEY()
      TEMPXANG = CAMERA ANGLE X(0)
      XROTATE CAMERA 0, 0
      MOVE CAMERA 0, -1 * 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