Sorry your browser is not supported!

set display mode 1024, 768, 32
sync on : sync rate 60
hide mouse

load bsp "pak0.pk3", "q3tourney2.bsp"

make camera 1
position camera 1, 3, 3, 3

do

if upkey()=1 then move camera 1, 0.5
if downkey()=1 then move camera 1, -0.5
if leftkey()=1 then turn camera left 1, 3
if rightkey()=1 then turn camera right 1, 3
sync
loop

`Detects if inside the box
If x > 45 and x < 55
  If y > 45 and y < 55
    x = OldX
    y = OldY
  endif
endif

`Detects if inside the box
If x > Object position x(BOX)-5 and x < Object position x(BOX)+5
  If Z > Object position Z(BOX)-5 and Z < Object position Z(BOX)+5
    x = OldX
    Z = OldZ
  endif
endif

`Set refresh rate
Sync rate 100

`Make Boxes
Make object cube 1,10
`Position box10 paces to the side + 10 paces forward
Position object 1,10,0,10
Do
   gosub _camera
   Gosub _collision
   Sync
Loop

`Camera controls
_camera:
   `Set old positions
   Oldx = camera position x()
   Oldz = camera position z()

   `Controls
   If Upkey()=1 then move camera 2
   If downkey()=1 then move camera -2
   if leftkey()=1 then turn camera left 2
   if rightkey()=1 then turn camera right 2
   `Set position values for easy access
   x=camera position x()
   z=camera position z()
Return

`Collision detection
_collision:
   If x > 3 and x < 17
      If z > 3 and z < 17
         `Update x + z values
         x = Oldx
         z = Oldz
         `Update camera position
         Position camera x,0,z
      endif
   endif
Return