Sorry your browser is not supported!

if intersect object(intersect code in here etc)
 if object collision (1,2)=1
  print "You're colliding with front of object"
 endif
endif

`%Project Title%
`CheckIfInFrontOfObject.dba
`======================
` Make Player
	PlayerObject = 1
	Make Object Cube PlayerObject, 3.0
	Color Object PlayerObject, Rgb(0, 255, 255)
	Set Object Emissive PlayerObject, Rgb(0, 255, 255)
	Position Object PlayerObject, -10,0,-10
	
` Make level object to collide into
	LevelObject = 2
	Make Object Cone LevelObject, 3.0
	Set Object Cull LevelObject, 0		` Now we can see the back of the cone
	XRotate Object LevelObject, 90
	Fix Object Pivot LevelObject	` Now the X angle is zero, but the cone mesh has been rotated
	Color Object LevelObject, Rgb(255, 0,0)
	Set Object Emissive LevelObject, Rgb(255, 0, 0)
	
` Make matrix guide
	Make Matrix 1, 40,40,10,10
	Position Matrix 1, -20, 0, -20

Position Camera 0,20,-20
Point Camera 0,0,0

Sync On : Sync Rate 60	

Do
	
	` Make sure we can see the object
	If Object In Screen( PlayerObject ) = 0
		Point Camera Object Position X( PlayerObject ), Object Position Y( PlayerObject ), Object Position Z( PlayerObject )
	Endif
	
	` Provide keyboard movement
	ControlObject( PlayerObject, UpKey() - Downkey(), RightKey() - LeftKey(), 0.25, 5.0)
	
	` Rotate the level object slowly
	ControlObject( LevelObject, 0, 0.25, 0, 1.0)
	
	If ObjectInFrontOf( PlayerObject, LevelObject, 5 )
		Color Object LevelObject, Rgb(255,0,0)
		Set Object Emissive PlayerObject, Rgb(255,0, 0)
	Else
		Color Object LevelObject, Rgb(0,255,0)
		Set Object Emissive PlayerObject, Rgb(0, 255, 255)		
	Endif
	
	Text 0,0,"Collide in front of this cone to make it green"
	Sync
Loop

Function ControlObject( iObject, fForwardForce#, fClockwiseForce#, fMovementSpeed#, fRotateSpeed#)
	Move Object iObject, fForwardForce# * fMovementSpeed#
	Turn Object Right iObject, fClockwiseForce# * fRotateSpeed#
Endfunction

Function ObjectInFrontOf( iObject, iInFrontOfObject, fDistance# )
	
	` Check if object is colliding before checking if it is in front
	If Object Collision( iObject, iInFrontOfObject )
		
		x1# = Object Position X( iInFrontOfObject )
		y1# = Object Position Y( iInFrontOfObject )
		z1# = Object Position Z( iInFrontOfObject )
		
		` Cast a ray infront
		x2# = NewXValue( x1#, Object Angle Y( iInFrontOfObject ), fDistance# )
		y2# = y1#	` In this scenario, the player cannot move up or down
				` Use this otherwise: Object Position Y( iObject )
							
				` If you wanted to check if the object is pointing upwards towards the player
				` aswell, use this: NewYValue( y1#, Object Angle X( iInFrontOfObject ), fDistance# )
		z2# = NewZValue( z1#, Object Angle Y( iInFrontOfObject ), fDistance# )
		
		If Intersect Object( iObject, x1#, y1#, z1#, x2#, y2#, z2# ) > 0 Then ExitFunction 1
	Endif
Endfunction 0

Make Object Cube 1, 100

Do
	
  If Intersect Object( 1, 10000, 10000, 10000, 20000, 20000, 20000 ) => 0
    Text 0, 0, "First result is true"
  Else
    Text 0, 0, "First result is false"
  Endif
	
  If Intersect Object( 1, 10000, 10000, 10000, 20000, 20000, 20000 ) > 0
    Text 0, 30, "Second result is true"
  Else
    Text 0, 30, "Second result is false"
  Endif
	
Loop

for x = 1 to 100

if object exist(x)=1
 if object exist(v)=1
 if v<>x

    if ObjectInFrontOf( x, v, 20 )
    veh(v).veh_moving=0
    print "Front of vehicle has stopped behind another object"
    endif

  Endif
 endif
endif

next x

if veh(v).veh_moving=0 then move object v,0
if veh(v).veh_moving=1 then move object v,0.6

    if ObjectInFrontOf( x, v, 20 )=0
    veh(v).veh_moving=1
    endif

for x = 1 to 100

if object exist(x)=1
 if object exist(v)=1
 if v<>x
`Try this
veh(v).veh_moving=1
    if ObjectInFrontOf( x, v, 20 )
    veh(v).veh_moving=0
    print "Front of vehicle has stopped behind another object"
    endif

  Endif
 endif
endif

next x

if veh(v).veh_moving=0 then move object v,0
if veh(v).veh_moving=1 then move object v,0.6

`---------------------------------------------------------------------
`*********************************************************************
REM HERE IS WHERE THE SPAWNING OF VEHICLES TAKES PLACE ***************
`*********************************************************************
`---------------------------------------------------------------------

`constantly increase the vehicle timer
if veh_free<veh_spawn_rate then veh_free=veh_free+1


REM CREATING VEHICLES
For v = 45 to 55
 for node = 851 to 950

   if object exist(v)=0  `make sure the vehicle ID number does not exist first
    if distance(2,node)<100   `make sure player is within distance of a particular node
     if distance(2,node)>50    `make sure they're not too close to it
      if veh_free=veh_spawn_rate

        `put veh_free back to 0
         veh_free=0

         rem vehicle spawn (boxes for now)
         make object box v,10,10,20
         set object collision to boxes v
         set object collision on v

         rem position and rotate the vehicle relative to the node is spawned at
         position object v, object position x(node),5,object position z(node)
         yrotate object v,object angle y(node)

      endif
     endif
    endif
   endif

  next node


REM CONTROL VEHICLES IF THEY EXIST
if object exist(v)=1

 for x = 1 to 100

  if object exist(x)=1
   if object exist(v)=1
    if v<>x
     veh(v).veh_moving=1

      if ObjectInFrontOf( x, v, 20 )
       veh(v).veh_moving=0
       print "Front of vehicle has stopped behind another object"
      endif

     Endif
    endif
   endif

 next x

 if veh(v).veh_moving=0 then move object v,0
 if veh(v).veh_moving=1 then move object v,0.6


rem if the vehicle hits a "turn_node" direction node then turn it to match the angle of that node.
for turn_node = 951 to 1050

 if object exist(turn_node)=1
  if distance(v,turn_node)<5 then yrotate object v,Wrapvalue(object angle y(turn_node)-90) : move object v,5 `move ahead a bit
 endif

next turn_node


rem if a vehicle is too close to a spawn point then make sure another one doesn't spawn right on top of it (prevention)
for node = 851 to 950
 if object exist(node)=1
  if distance(node,v)<20
   veh_free=0
  endif
 endif
next node



 rem if player goes within a certain distance away from vehicles then delete them so they can be re-spawned
 if distance(2,v)>90
    delete object v
 endif

endif

next v

 if ObjectInFrontOf( 2, v, 20 )=1
   veh(v).veh_moving=0
 endif