Sorry your browser is not supported!

rem Collision cube 350
cox# = object position x(5)
coz# = object position z(5)
colbox = 0
if zc# > coz# - 199
 if zc# < coz# + 199
  if xc# > cox# - 199
   if xc# < cox# + 199
colbox = 1
   endif
  endif
 endif
endif

rem enact collision
if colbox = 1
xc# = oldxc#
zc# = oldzc#
endif

rem Sliding col
if xc# > object position x(5) - 176
if xc# < object position x(5) + 176
if keystate(17) = 1
if colbox = 1
slide# = camyrot# - 180
slide# = slide# / 12
xc# = xc# - slide#
endif
endif
endif
endif

`-----------SLIDING MATH COLLISION------
`
`Coded by Phaelax (phaelax@hotmail.com)
`The information the SOBJECT# array holds is as follows:
`1=x position
`2=z position
`3=half of objects size on x-axis
`4=half of objects size on z-axis


sync on
hide mouse
make matrix 1,1000,1000,10,10

make object cube 1,30

make object cube 2,50
scale object 2,300,100,100
position object 2,400,25,150

make object cube 3,90
position object 3,800,45,500


rem define half of player object size (radius)
playersize#=15.0
rem define properties of collision objects
dim sobject#(2,4)

rem properties of object 1
sobject#(1,1)=400
sobject#(1,2)=150
sobject#(1,3)=75
sobject#(1,4)=25

rem properties of object 2
sobject#(2,1)=800
sobject#(2,2)=500
sobject#(2,3)=45
sobject#(2,4)=45



DO
 oldx#=x#
 oldz#=z#
 gosub player_controls

 for t=1 to 2
   if abs(x#-sobject#(t,1))<sobject#(t,3)+playersize# and abs(z#-sobject#(t,2))<sobject#(t,4)+playersize#
     if abs(oldx#-sobject#(t,1))<sobject#(t,3)+playersize# then z#=oldz#
     if abs(oldz#-sobject#(t,2))<sobject#(t,4)+playersize# then x#=oldx#
   endif
 next t

 gosub camera_status
 position object 1,x#,15,z#

sync
LOOP


PLAYER_CONTROLS:

  if shiftkey()=1 then runspeed#=6.0
  if upkey()=1
    x#=newxvalue(x#,a#,6+runspeed#)
    z#=newzvalue(z#,a#,6+runspeed#)
  endif
  if downkey()=1
    x#=newxvalue(x#,a#,-6-runspeed#)
    z#=newzvalue(z#,a#,-6-runspeed#)
  endif
  if leftkey()=1
    x#=newxvalue(x#,wrapvalue(a#-90.0),5.0+runspeed#)
    z#=newzvalue(z#,wrapvalue(a#-90.0),5.0+runspeed#)
  endif
  if rightkey()=1
    x#=newxvalue(x#,wrapvalue(a#+90.0),5.0+runspeed#)
    z#=newzvalue(z#,wrapvalue(a#+90.0),5.0+runspeed#)
  endif

RETURN


CAMERA_STATUS:
  rem rotate camera according to mouse
  a#=wrapvalue(a#+(mousemovex()/3.0))
  rem position and rotate camera
  cxa#=cxa#+(mousemovey()/3.0)
  if cxa#<-90.0 then cxa#=-90.0
  if cxa#>90.0 then cxa#=90.0
  position camera x#,y#+15,z#
  rotate camera wrapvalue(cxa#),a#,0
RETURN

function boxcollision(obj,x1,z1,x2,z2)
cox# = object position x(obj)
coz# = object position z(obj)
cax# = camera position x()
caz# = camera position z()
boxcol = 0
if caz# > coz# - z1 and caz# < coz# + z2 and cax# > cox# - x1 and cax# < cox# + x2 then boxcol = 1
endfunction boxcol

collision_detection:
rem Collision Hut
cox# = object position x(6)
coz# = object position z(6)
colhut = 0
if zc# > coz# - 150
 if zc# < coz# + 150
  if xc# > cox# - 150
   if xc# < cox# + 150
colhut = 1
   endif
  endif
 endif
endif
return

rem for program using function
rem Collision
collision = boxcollision(6, 160, 160, 160, 160)
if collision = 1 then goto stopcoldet
stopcoldet:

if collision = 1
xc# = oldxc#
zc# = oldzc#
endif

gosub collision_detection
gosub enact_collision

-----

collision_detection:
rem Collision Hut
cox# = object position x(6)
coz# = object position z(6)
colhut = 0
if zc# > coz# - 150
 if zc# < coz# + 150
  if xc# > cox# - 150
   if xc# < cox# + 150
colhut = 1
   endif
  endif
 endif
endif
return

enact_collision:
rem enact collision
if colhut = 1
xc# = oldxc#
zc# = oldzc#
endif