Small commented basic collision (DBP)

Author

Message

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 17th Feb 2006 08:40

Link

This is probably useless, but I have seen a few newbies going round asking how to do basic collision! So I used this piece of code which is the most simple of all collision functions FULLY commented to provide an easier understanding of basic 'hit a wall and stop' scenarios.

I do hope to add slide collision soon. Please note this is not a plugin and I only did it to help some of the newbies. So please don't flame me if you think this is useless.

Thanks!

rem Collision test

`This makes two objects
make object box 1,3,3,3
make object box 2,3,3,3
`This positions one object, in this case the player object
position object 1,0,0,-15
`This positions the camera, so we can see whats going on
position camera 0,0,10,-20
point camera 0,0,-8,0
`This sets object collision on both boxes
set object collision on 1
set object collision on 2
`This command sets the collision detection for boxes
set object collision to boxes 1
set object collision to boxes 2
`Here we enter into the main loop
do
`We must take not of the players last position. In this example we only need to check for the Z
`value as we are only moving in that direction.
oldz# = object position z(1)
`Need to add control to the player box
if upkey() then move object 1,0.1
if downkey() then move object 1,-0.1
`Okay here is the collision detection. You place the players object number first and then place
`the number of the colliding object next to it.
if object collision(1,2) = 1
`This will place the player at the last Z position, so it makes the effect of coming to a stop
`against a wall, or in this case a box
 position object 1,0,0,oldz#
`We need to use this command as their was no THEN command
endif
`Self explanotory : )
loop

+ Code Snippet

rem Collision test

`This makes two objects
make object box 1,3,3,3
make object box 2,3,3,3
`This positions one object, in this case the player object
position object 1,0,0,-15
`This positions the camera, so we can see whats going on
position camera 0,0,10,-20
point camera 0,0,-8,0
`This sets object collision on both boxes
set object collision on 1
set object collision on 2
`This command sets the collision detection for boxes
set object collision to boxes 1
set object collision to boxes 2
`Here we enter into the main loop
do
`We must take not of the players last position. In this example we only need to check for the Z
`value as we are only moving in that direction.
oldz# = object position z(1)
`Need to add control to the player box
if upkey() then move object 1,0.1
if downkey() then move object 1,-0.1
`Okay here is the collision detection. You place the players object number first and then place
`the number of the colliding object next to it.
if object collision(1,2) = 1
`This will place the player at the last Z position, so it makes the effect of coming to a stop
`against a wall, or in this case a box
 position object 1,0,0,oldz#
`We need to use this command as their was no THEN command
endif
`Self explanotory : )
loop

You Don't know the power of the Dark Side!!
Oh but I do!!

Back to top

Profile PM Email Website

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 20th Feb 2006 05:59 Edited at: 20th Feb 2006 06:02

Link

Here is an updated version of the collision code. This will handle multiple object collisions.

rem Collision test

`This makes three objects
make object box 1,3,3,3
make object box 2,3,3,3
make object box 3,3,3,3
`This positions two object, in this case the player object and the second obstacle
position object 1,0,0,-15
position object 3,-10,0,-8
`This positions the camera, so we can see whats going on
position camera 0,0,10,-20
point camera 0,0,-8,0
`This sets object collision on every object in the 3D world
set global collision on
`***********THIS SECTION NO LONGER NEEDED*****************
`This command sets the collision detection for boxes
`set object collision to boxes 1
`set object collision to boxes 2
`set object collision to boxes 3
`***********THIS SECTION NO LONGER NEEDED*****************
`Here we enter into the main loop
do
`We must take not of the players last position. In this example we only need to check for the Z
` and X values as we are only moving in those directions.
oldx# = object position x(1)
oldz# = object position z(1)
`Need to add control to the player box
if upkey() then move object 1,0.1
if downkey() then move object 1,-0.1
if leftkey() then move object left 1,0.1
if rightkey() then move object right 1,0.1
`*********SECTION UPDATED*********
`Okay here is the collision detection. You place the players object number first and then place
`a zero as the second number. After the the brackets you can see the relational operator and a
`number this number must be larger than the player number, so in this case the program will check
`to see if the player object has collided with any other object woms number is larger than 1, this
`will then find all the objects with numbers larger than 1 and will do what the IF statment tells
`it to.
if object collision(1,0) > 1
`*********SECTION UPDATED*********
`This will place the player at the last X and Z positions, so it makes the effect of coming to a stop
`against a wall, or in this case a box
 position object 1,oldx#,0,oldz#
`We need to use this command as their was no THEN command
endif
`Self explanotory : )
loop

+ Code Snippet

rem Collision test

`This makes three objects
make object box 1,3,3,3
make object box 2,3,3,3
make object box 3,3,3,3
`This positions two object, in this case the player object and the second obstacle
position object 1,0,0,-15
position object 3,-10,0,-8
`This positions the camera, so we can see whats going on
position camera 0,0,10,-20
point camera 0,0,-8,0
`This sets object collision on every object in the 3D world
set global collision on
`***********THIS SECTION NO LONGER NEEDED*****************
`This command sets the collision detection for boxes
`set object collision to boxes 1
`set object collision to boxes 2
`set object collision to boxes 3
`***********THIS SECTION NO LONGER NEEDED*****************
`Here we enter into the main loop
do
`We must take not of the players last position. In this example we only need to check for the Z
` and X values as we are only moving in those directions.
oldx# = object position x(1)
oldz# = object position z(1)
`Need to add control to the player box
if upkey() then move object 1,0.1
if downkey() then move object 1,-0.1
if leftkey() then move object left 1,0.1
if rightkey() then move object right 1,0.1
`*********SECTION UPDATED*********
`Okay here is the collision detection. You place the players object number first and then place
`a zero as the second number. After the the brackets you can see the relational operator and a
`number this number must be larger than the player number, so in this case the program will check
`to see if the player object has collided with any other object woms number is larger than 1, this
`will then find all the objects with numbers larger than 1 and will do what the IF statment tells
`it to.
if object collision(1,0) > 1
`*********SECTION UPDATED*********
`This will place the player at the last X and Z positions, so it makes the effect of coming to a stop
`against a wall, or in this case a box
 position object 1,oldx#,0,oldz#
`We need to use this command as their was no THEN command
endif
`Self explanotory : )
loop

Hope this helps!

Oh please do tell me what you think!

You Don't know the power of the Dark Side!!
Oh but I do!!

Back to top

Profile PM Email Website

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 28th Feb 2006 13:54

Link

Comments anyone?

You Don't know the power of the Dark Side!!
Oh but I do!!

Back to top

Profile PM Email Website

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 13th Mar 2006 11:21

Link

Okay here is another small update to this simple collision thread. It deals with matrix collision.

`matrix collision testing

`system settings
sync on
sync rate 40
hide mouse
`matrixs sizes
matx = 100
matz = 100
`matrix and object construction and positioning
make matrix 1,matx,matz,10,10
update matrix 1
make object box 1,5,5,5
position object 1,5,get ground height (1,matx,matz),5
`the main loop
do
   `old object positions
   oldx# = object position x(1)
   oldz# = object position z(1)
   `positioning of the camera
   position camera 0,0,20,-20
   point camera 0,object position x(1),-10,object position z(1)
   `controling the object with the arrowkeys
   if upkey() then move object 1,0.5
   if downkey() then move object 1,-0.5
   if leftkey() then move object left 1,0.5
   if rightkey() then move object right 1,0.5
   `detecting collision
   if object position x(1) = matx then position object 1,oldx#,0,oldz#
   if object position z(1) = matz then position object 1,oldx#,0,oldz#
   if object position x(1) <= 2 then position object 1,oldx#,0,oldz#
   if object position z(1) <= 2 then position object 1,oldx#,0,oldz#
   `updating the screen
   sync
   `starting all over again :)
loop

+ Code Snippet

`matrix collision testing

`system settings
sync on
sync rate 40
hide mouse
`matrixs sizes
matx = 100
matz = 100
`matrix and object construction and positioning
make matrix 1,matx,matz,10,10
update matrix 1
make object box 1,5,5,5
position object 1,5,get ground height (1,matx,matz),5
`the main loop
do
   `old object positions
   oldx# = object position x(1)
   oldz# = object position z(1)
   `positioning of the camera
   position camera 0,0,20,-20
   point camera 0,object position x(1),-10,object position z(1)
   `controling the object with the arrowkeys
   if upkey() then move object 1,0.5
   if downkey() then move object 1,-0.5
   if leftkey() then move object left 1,0.5
   if rightkey() then move object right 1,0.5
   `detecting collision
   if object position x(1) = matx then position object 1,oldx#,0,oldz#
   if object position z(1) = matz then position object 1,oldx#,0,oldz#
   if object position x(1) <= 2 then position object 1,oldx#,0,oldz#
   if object position z(1) <= 2 then position object 1,oldx#,0,oldz#
   `updating the screen
   sync
   `starting all over again :)
loop

I have left out the 'get ground height' commands and the Y position collision checking for any one else to have a crack shot at.

Oh and please do comment and tell me if I am wasting my time!

Darth Vader

When in Trouble with anything visit here your number one stop for help

Back to top

Profile PM Email Website

Okashira

18

Years of Service

User Offline

Joined: 8th Feb 2006

Location: Right here.

Posted: 14th Mar 2006 22:49 Edited at: 14th Mar 2006 22:50

Link

This only works with Pro, doesn't it?

EDIT : Oops, just saw the subject. I stupid

.

Let the games begin!

Back to top

Profile PM Website

Dodic

19

Years of Service

User Offline

Joined: 6th Nov 2005

Location: SNM (Serbia&Montenegro)

Posted: 16th Mar 2006 00:58

Link

Here is a dbc version

rem Collision test

`This makes two objects
make object box 1,3,3,3
make object box 2,3,3,3
`This positions one object, in this case the player object
position object 1,0,0,-15
`This positions the camera, so we can see whats going on
position camera 0,10,-20
point camera 0,-8,0
`This sets object collision on both boxes
set object collision on 1
set object collision on 2
`This command sets the collision detection for boxes
set object collision to boxes 1
set object collision to boxes 2
`Here we enter into the main loop
do
`We must take not of the players last position. In this example we only need to check for the Z
`value as we are only moving in that direction.
oldz# = object position z(1)
`Need to add control to the player box
if upkey() then move object 1,0.1
if downkey() then move object 1,-0.1
`Okay here is the collision detection. You place the players object number first and then place
`the number of the colliding object next to it.
if object collision(1,2) = 1
`This will place the player at the last Z position, so it makes the effect of coming to a stop
`against a wall, or in this case a box
 position object 1,0,0,oldz#
`We need to use this command as their was no THEN command
endif
`Self explanotory : )
loop

+ Code Snippet

rem Collision test

`This makes two objects
make object box 1,3,3,3
make object box 2,3,3,3
`This positions one object, in this case the player object
position object 1,0,0,-15
`This positions the camera, so we can see whats going on
position camera 0,10,-20
point camera 0,-8,0
`This sets object collision on both boxes
set object collision on 1
set object collision on 2
`This command sets the collision detection for boxes
set object collision to boxes 1
set object collision to boxes 2
`Here we enter into the main loop
do
`We must take not of the players last position. In this example we only need to check for the Z
`value as we are only moving in that direction.
oldz# = object position z(1)
`Need to add control to the player box
if upkey() then move object 1,0.1
if downkey() then move object 1,-0.1
`Okay here is the collision detection. You place the players object number first and then place
`the number of the colliding object next to it.
if object collision(1,2) = 1
`This will place the player at the last Z position, so it makes the effect of coming to a stop
`against a wall, or in this case a box
 position object 1,0,0,oldz#
`We need to use this command as their was no THEN command
endif
`Self explanotory : )
loop

Was quite easy to edit..

Back to top

Profile PM Email

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 16th Mar 2006 02:51

Link

@Dodic
Thanks! I dont have or know the difference with the two darkBASICS

When in Trouble with anything visit here your number one stop for help

Back to top

Profile PM Email Website

Thexter

18

Years of Service

User Offline

Joined: 1st Mar 2006

Location:

Posted: 18th Mar 2006 03:05

Link

I took your code and turned it into a dumb little game..
yeah!! Im a noob!

`matrix collision testing

`system settings
sync on
sync rate 100
hide mouse
set global collision on
plr_scr=0
`matrixs sizes
matx = 100
matz = 100
`matrix and object construction and positioning
make matrix 1,matx,matz,10,10
update matrix 1
make object sphere 1,5
make object box 2,2.5,2.5,2.5
color object 1,rgb(255,0,0)
color object 2,rgb(0,255,0)
position object 1,5,get ground height (1,matx,matz),5
position object 2,rnd(matx),get ground height (1,matx,matz),rnd(matz)
`the main loop
do
   `posting score on screen
   set cursor 1,1:print "Your Score Is ";plr_scr
   `old object positions
   oldx# = object position x(1)
   oldz# = object position z(1)
   `positioning of the camera
   position camera 0,0,20,-20
   point camera 0,object position x(1),-10,object position z(1)
   `controling the object with the arrowkeys
   if upkey() then move object 1,0.75
   if downkey() then move object 1,-0.75
   if leftkey() then move object left 1,0.75
   if rightkey() then move object right 1,0.75
   `detecting collision
   if object position x(1) >= matx then position object 1,oldx#,0,oldz#
   if object position z(1) >= matz then position object 1,oldx#,0,oldz#
   if object position x(1) <= 2 then position object 1,oldx#,0,oldz#
   if object position z(1) <= 2 then position object 1,oldx#,0,oldz#
   if object collision (1,2) then gosub score
   `updating the screen
   sync
   `starting all over again :)
loop
      `getting points
      score:
      plr_scr=plr_scr+1
      `moving the target
      position object 2,rnd(matx),get ground height (1,matx,matz),rnd(matz)
      return

+ Code Snippet

`matrix collision testing

`system settings
sync on
sync rate 100
hide mouse
set global collision on
plr_scr=0
`matrixs sizes
matx = 100
matz = 100
`matrix and object construction and positioning
make matrix 1,matx,matz,10,10
update matrix 1
make object sphere 1,5
make object box 2,2.5,2.5,2.5
color object 1,rgb(255,0,0)
color object 2,rgb(0,255,0)
position object 1,5,get ground height (1,matx,matz),5
position object 2,rnd(matx),get ground height (1,matx,matz),rnd(matz)
`the main loop
do
   `posting score on screen
   set cursor 1,1:print "Your Score Is ";plr_scr
   `old object positions
   oldx# = object position x(1)
   oldz# = object position z(1)
   `positioning of the camera
   position camera 0,0,20,-20
   point camera 0,object position x(1),-10,object position z(1)
   `controling the object with the arrowkeys
   if upkey() then move object 1,0.75
   if downkey() then move object 1,-0.75
   if leftkey() then move object left 1,0.75
   if rightkey() then move object right 1,0.75
   `detecting collision
   if object position x(1) >= matx then position object 1,oldx#,0,oldz#
   if object position z(1) >= matz then position object 1,oldx#,0,oldz#
   if object position x(1) <= 2 then position object 1,oldx#,0,oldz#
   if object position z(1) <= 2 then position object 1,oldx#,0,oldz#
   if object collision (1,2) then gosub score
   `updating the screen
   sync
   `starting all over again :)
loop
      `getting points
      score:
      plr_scr=plr_scr+1
      `moving the target
      position object 2,rnd(matx),get ground height (1,matx,matz),rnd(matz)
      return

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 14th Jun 2006 02:41

Link

Thexter,

That little "Game" could actually become addicting if you added enemies and more onto it! Of course with you joining a little over a month ago I do not expect you to be able to do that... But if you could it'd be funny! You could add a time limit that you have to reach the cube each time it moves! Objectve could be to hit the green cube w/out hitting the enemies! Just a little pitiful idea

I doubt you can draw me/60 by hand, so you REALLY can't draw ME/1, can you?

Back to top

Profile PM Email

Jester Race

18

Years of Service

User Offline

Joined: 13th Jun 2006

Location:

Posted: 14th Jun 2006 16:11

Link

If i was to change darth's code like so:

`matrix collision testing

`system settings
sync on
sync rate 40
hide mouse
`matrixs sizes
matx = 100
matz = 100
`matrix and object construction and positioning
make matrix 1,matx,matz,10,10
randomize matrix 1, 10
update matrix 1
make object box 1,5,5,5
position object 1,5,2,5
`the main loop
do
   `old object positions
   oldx# = object position x(1)
   oldz# = object position z(1)
   `position the object at ground height
   position object 1, oldx#, get ground height (1,oldx#,oldz#), oldz#
   `positioning of the camera
   position camera 0,0,20,-20
   point camera 0,object position x(1),-10,object position z(1)
   `controling the object with the arrowkeys
   if upkey() then move object 1,0.5
   if downkey() then move object 1,-0.5
   if leftkey() then move object left 1,0.5
   if rightkey() then move object right 1,0.5
   `detecting collision
   if object position x(1) = matx then position object 1,oldx#,0,oldz#
   if object position z(1) = matz then position object 1,oldx#,0,oldz#
   if object position x(1) <= 2 then position object 1,oldx#,0,oldz#
   if object position z(1) <= 2 then position object 1,oldx#,0,oldz#
   `updating the screen
   sync
   `starting all over again :)
loop

+ Code Snippet

`matrix collision testing

`system settings
sync on
sync rate 40
hide mouse
`matrixs sizes
matx = 100
matz = 100
`matrix and object construction and positioning
make matrix 1,matx,matz,10,10
randomize matrix 1, 10
update matrix 1
make object box 1,5,5,5
position object 1,5,2,5
`the main loop
do
   `old object positions
   oldx# = object position x(1)
   oldz# = object position z(1)
   `position the object at ground height
   position object 1, oldx#, get ground height (1,oldx#,oldz#), oldz#
   `positioning of the camera
   position camera 0,0,20,-20
   point camera 0,object position x(1),-10,object position z(1)
   `controling the object with the arrowkeys
   if upkey() then move object 1,0.5
   if downkey() then move object 1,-0.5
   if leftkey() then move object left 1,0.5
   if rightkey() then move object right 1,0.5
   `detecting collision
   if object position x(1) = matx then position object 1,oldx#,0,oldz#
   if object position z(1) = matz then position object 1,oldx#,0,oldz#
   if object position x(1) <= 2 then position object 1,oldx#,0,oldz#
   if object position z(1) <= 2 then position object 1,oldx#,0,oldz#
   `updating the screen
   sync
   `starting all over again :)
loop

Would the box travel along the new ground heights? The reason i ask
is that i think it should, but for some reason it just doesn't work for me. It just seems to jump around at random heights.

Back to top

Profile PM

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 28th Jun 2006 07:51

Link

@ jester
It works fine for me!

I have the longest Biog under my profile button!
"You don't know the power of Dark Basic Pro!"
-Darth Vader-

Back to top

Profile PM Email Website

Silvester

18

Years of Service

User Offline

Joined: 7th Dec 2005

Location: Netherlands

Posted: 6th Jul 2006 12:27

Link

Polygon collision works better on other objects.

Cubes can be box collision but Modeled models should be PolyGon collision...

Many tales has bein told about me,and there where i came from.Most bad ones are true.The good ones are false...

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / Small commented basic collision (DBP)