Sorry your browser is not supported!

set object collision on 1
make object collision box 1,-50,-50,-50,50,50,50,1

set object collision on 405
make object collision box 405,-5,-5,-5,5,5,5,1

set display mode desktop width(), desktop height(), 32
sync on : sync rate 60 : sync

autocam off
position camera 0, 0, -400
point camera 0, 0, 0

make object sphere 1, 90
position object 1, -100, 0, 0
point object 1, 0, 0, 0
make object sphere 405, 9
position object 405, 100, 0, 0

set object collision on 1
make object collision box 1,-50,-50,-50,50,50,50,1

set object collision on 405
make object collision box 405,-5,-5,-5,5,5,5,1

repeat
  collisionDetected = object collision(1, 405)
  center text screen width()/2, 150, "Press right key to move object"
  center text screen width()/2, 200, "collision = " + str$(collisionDetected)
  
  if rightkey() and collisionDetected = 0 then move object 1, 1
  sync
until spacekey()

         sync on
         sync rate 30
         autocam off
         hide mouse
         randomize timer()

Make Light 29
Set Light Range 29, 5000
Position Light 29, 0,400,0
Point Light 29, 0,0,0

REM make player
make object cone 1,100
color object 1,rgb(10,55,200)
position object 1, 0,100,0
scale object 1, 60,130,35

REM floor
make object plain 6, 3000,3000,10
position object 6, 0,0,0
rotate object 6, 90,0,0
color object 6,rgb(255,0,0)

REM make Trees
for tree = 100 to 150
        rndx= -1500 +rnd(3000)
        rndz= -1500 +rnd(3000)
        make object cylinder tree,10
        position object tree, rndx,150,rndz
        scale object tree, 500,3000,500
        color object tree, rgb(0,0,0)

        leaf=tree+51
        make object sphere leaf,10
        position object leaf, rndx,270,rndz
        scale object leaf, 2000,1400,2000
        color object leaf ,rgb(0,255,0)
next tree

REM camera
            cpx#=camera position x()
            cpy#=camera position y()
            cpz#=camera position z()
            cax#=camera angle x()
            cay#=camera angle y()
            caz#=camera angle z()
set camera range 10,10000

`       MAIN SECTION LOOP
            do
REM COLLISIONS
set object collision on 1
make object collision box 1,-50,-50,-50,50,50,50,0

REM tree collisions where x=object id of the trees **********
for x = 100 to 150
set object collision on x
make object collision box x,-50,-50,-50,50,50,50,0
next x


REM player position

                     P1X# = object position X(1)
                     P1Y# = object position Y(1)
                     P1Z# = object position Z(1)
                     A1X = object angle X(1)
                     A1Y = object angle Y(1)
                     A1Z = object angle Z(1)

               center text 320,440,"USE ARROW KEYS TO MOVE"

               `CONTROL INPUT
                     if Upkey()=1 then move object 1,10
                     if Downkey()=1 then move object 1,-10
                     if Leftkey()=1 then Yrotate object 1,wrapvalue(A1Y-5)
                     if Rightkey()=1 then Yrotate object 1,wrapvalue(A1Y+5)
               `MOVE CAMERA
               position camera CPX#, P1Y#+65, CPZ#
               point camera P1X#, P1Y#+35, P1Z#
               CPZ#=newzvalue(P1Z#, A1Y-180, 400)
               CPX#=newxvalue(P1X#, A1Y-180, 400)

                  sync
            loop

global Sw,Sh
load dll "user32.dll",1
 Sw=call dll(1,"GetSystemMetrics",0)
 Sh=call dll(1,"GetSystemMetrics",1)
 delete dll 1
 set display mode Sw,Sh,32,1

         sync on
         sync rate 30
         autocam off
         hide mouse
         randomize timer()

Make Light 29
Set Light Range 29, 5000
Position Light 29, 0,400,0
Point Light 29, 0,0,0

REM make player
make object cone 1,100
color object 1,rgb(10,55,200)
position object 1, 0,0,0
scale object 1, 60,130,35

REM floor
make object plain 6, 3000,3000,10
position object 6, 0,0,0
rotate object 6, 90,0,0
color object 6,rgb(255,0,0)

REM make Trees
randomize 100
for tree = 100 to 150
        rndx= -1500 +rnd(3000)
        rndz= -1500 +rnd(3000)
        make object cylinder tree,10
        position object tree, rndx,50,rndz
        scale object tree, 500,3000,500
        color object tree, rgb(0,0,0)

        leaf=tree+51
        make object sphere leaf,10
        position object leaf, rndx,270,rndz
        scale object leaf, 2000,1400,2000
        color object leaf ,rgb(0,255,0)
next tree

REM camera
            cpx#=camera position x()
            cpy#=camera position y()
            cpz#=camera position z()
            cax#=camera angle x()
            cay#=camera angle y()
            caz#=camera angle z()
set camera range 10,10000

set global collision on
`       MAIN SECTION LOOP
            do
REM player position

                     P1X# = object position X(1)
                     P1Y# = object position Y(1)
                     P1Z# = object position Z(1)
                     A1X = object angle X(1)
                     A1Y = object angle Y(1)
                     A1Z = object angle Z(1)

                     if collided=0 then OLDP1X#=P1X#:OLDP1Z#=P1Z#


               center text Sw/2,Sh-100,"USE ARROW KEYS TO MOVE"

                              `CONTROL INPUT
                     if Upkey()=1 then move object 1,10
                     if Downkey()=1 then move object 1,-10
                     if Leftkey()=1 then Yrotate object 1,wrapvalue(A1Y-5)
                     if Rightkey()=1 then Yrotate object 1,wrapvalue(A1Y+5)
               `MOVE CAMERA
               position camera CPX#, P1Y#+65, CPZ#
               point camera P1X#, P1Y#+35, P1Z#
               CPZ#=newzvalue(P1Z#, A1Y-180, 400)
               CPX#=newxvalue(P1X#, A1Y-180, 400)

               gosub check_collision

               set cursor 0,0
               print "collided= ",collided

            sync
            loop

check_collision:
for n=100 to 150
collided=object collision(1,n)
if collided=1 then position object 1,OLDP1X#,P1Y#,OLDP1Z#:return
next n
return