collision in a vertical wall - GameCreators Forum

Author

Message

sjonny

18

Years of Service

User Offline

Joined: 25th Nov 2006

Location: darkbasic classic

Posted: 1st Dec 2006 14:09

Link

i want to make a collision into a vertical wall but when i place my collision it stays horizontal, how can i make it turn 90 degrees in my program?

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 1st Dec 2006 19:23

Link

Collision happens no matter what the angle is... the object is either touching another object or it isn't.

Back to top

Profile PM Email

sjonny

18

Years of Service

User Offline

Joined: 25th Nov 2006

Location: darkbasic classic

Posted: 1st Dec 2006 20:01 Edited at: 1st Dec 2006 20:02

Link

look i have now done it like this:

+ Code Snippet

make object box 5,150,50,3
position object 5,150,25,75
rem rotate it by 90d.
yrotate object 5,90
make object collision box 5,-75,-50,-3,75,50,3,0

see the collision in darkbasic itself

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 1st Dec 2006 21:19 Edited at: 2nd Dec 2006 02:24

Link

The collision box stays with the object. With the numbers you use you really can't see a difference between the normal collision and the modified collision box.

I've increased the size of the objects collision box modification to test it out.

+ Code Snippet

sync rate 0
sync on

make object cube 1,50
color object 1,rgb(0,255,0)

make object box 5,150,50,3
position object 5,150,25,75
rem rotate it by 90d.
yrotate object 5,90
make object collision box 5,-750,-500,-30,750,500,30,0

x#=0:y#=50:z#=100
do

 ` Check collision of object 1 to object 5
 if object collision(1,5)
  text 0,0,"Collision!"
  sync
  wait key
 endif 

 position object 1,x#,y#,z#
 inc x#
 
 sync
loop

Edit: I just thought about asking this: Are you wanting to increase the walls normal collision area so the player doesn't get too close to the wall?

Back to top

Profile PM Email

sjonny

18

Years of Service

User Offline

Joined: 25th Nov 2006

Location: darkbasic classic

Posted: 2nd Dec 2006 08:09

Link

no i just want it to not get it go through the wall, but this still doesn't work how come?

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 2nd Dec 2006 23:56 Edited at: 2nd Dec 2006 23:59

Link

It works just fine (when you see "Collision!" in the upper left corner it has detected collision). All you have to do is not let it keep going that direction when it detects collision. Also it's better to keep away from modifying the walls. If you just rem off the collision box it still works because every object already has a collision box exactly the size of the object.

The main reason I think you would want to modify the existing collision of an object (make it wider) is so the character doesn't get too close to the walls before collision is detected. But we use a better method. Instead of modifying the collision box of every object you just use one object around the player to check collision... usually it's a sphere. You make the sphere as big as you want so you can tweak the distance you want to keep away from everything (also how close an object has to be to "pick it up").

I've attached an image to illustrate a collision sphere (it's the green sphere around the robot). This object is normally hidden and follows the player object at all times (when it's not hidden it's usually a shield to protect the player). Notice in the image the sphere is right next to the wall... that's where it detects collision so the player is a good distance away from the walls and other objects at all times.

The following code makes another wall and detects collision on both walls. Once it hits the wall it changes direction and goes towards the other wall... it repeats it till you hit ESC.

+ Code Snippet

sync rate 0
sync on

make object cube 1,50
color object 1,rgb(0,255,0)

make object box 5,150,50,3
position object 5,150,25,75
rem rotate it by 90d.
yrotate object 5,90
` Don't really need this line because it already has normal collision
`make object collision box 5,-750,-500,-30,750,500,30,0

` Make another wall
make object box 6,150,50,3
yrotate object 6,90
position object 6,-150,25,75

x#=0:y#=50:z#=100
` Direction  1=Left  2=Right
Direction=2
do

 ` Check collision of object 1 to object 5 and 6
 if object collision(1,5) or object collision(1,6)
  ` Check current direction and change direction to opposite
  if Direction=1
   ` Change direction to the right
   Direction=2
  else
   ` Change direction to the left
   Direction=1
  endif
 
 endif 
 
 ` Move left
 if Direction=1
  dec x#
 endif
 
 ` Move right
 if Direction=2
  inc x#
 endif
 
 position object 1,x#,y#,z#
 
 sync
loop

Attachments

Login to view attachments

Back to top

Profile PM Email

sjonny

18

Years of Service

User Offline

Joined: 25th Nov 2006

Location: darkbasic classic

Posted: 3rd Dec 2006 12:36

Link

ok this is what i have.

rem make matrix

make matrix 1,5000.0,5000.0,70,70
load bitmap "grey01.bmp",1
get image 1,0,0,256,256
delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,1

Make Object Cube 1,5
Color Object 1,RGB(0,0,0)
Make Object Collision Box 1,-2.5,-2.5,-2.5,2.5,2.5,2.5,0
XPos#=0: YPos#=2.5: ZPos#=0
Position Object 1,0,2.5,0
make Object Box 2,150,50,3
Position Object 2,225,25,0
make Object Collision Box 2,-75,-50,-3,75,50,3,0
make object box 4,150,50,3
position object 4,75,25,0
make object collision box 4,-75,-50,-3,75,50,3,0
rem it is about this one
make object box 5,150,50,3
position object 5,150,25,75
rem rotate it by 90d.
yrotate object 5,90
make object collision box 5,-75,-50,-3,75,50,3,0

rem Activate manual sync
sync on

Do

If Upkey()=1 Then Move Object 1,2
  If Downkey()=1 Then Move Object 1,-2
  If Leftkey()=1 Then Yrotate Object 1,Wrapvalue(Object Angle Y(1)-4)
  If Rightkey()=1 Then Yrotate Object 1,Wrapvalue(Object Angle Y(1)+4)
  XPos#=Object Position X(1)
  YPos#=Object Position Y(1)
  ZPos#=Object Position Z(1)
  Rem The sliding collision bit
  If Object Collision(1,0)>0
    Dec XPos#,Get Object Collision X()
    Dec YPos#,Get Object Collision Y()
    Dec ZPos#,Get Object Collision Z()
Endif

Position Object 1,XPos#,YPos#,ZPos#
  Angle#=Object Angle y(1)
  CamDist#=+1.0 : CamHeight#=YPos#+10.0 : Camsmooth#=3.5
  Set Camera To Follow XPos#,YPos#,ZPos#,Angle#,CamDist#,CamHeight#,CamSmooth#,0

rem Syncronise
sync

rem End loop
loop

+ Code Snippet


rem make matrix

make matrix 1,5000.0,5000.0,70,70
load bitmap "grey01.bmp",1
get image 1,0,0,256,256
delete bitmap 1
prepare matrix texture 1,1,2,2
randomize matrix 1,1

Make Object Cube 1,5
Color Object 1,RGB(0,0,0)
Make Object Collision Box 1,-2.5,-2.5,-2.5,2.5,2.5,2.5,0
XPos#=0: YPos#=2.5: ZPos#=0
Position Object 1,0,2.5,0
make Object Box 2,150,50,3
Position Object 2,225,25,0
make Object Collision Box 2,-75,-50,-3,75,50,3,0
make object box 4,150,50,3
position object 4,75,25,0
make object collision box 4,-75,-50,-3,75,50,3,0
rem it is about this one
make object box 5,150,50,3
position object 5,150,25,75
rem rotate it by 90d.
yrotate object 5,90
make object collision box 5,-75,-50,-3,75,50,3,0

rem Activate manual sync
sync on

Do

  If Upkey()=1 Then Move Object 1,2
  If Downkey()=1 Then Move Object 1,-2
  If Leftkey()=1 Then Yrotate Object 1,Wrapvalue(Object Angle Y(1)-4)
  If Rightkey()=1 Then Yrotate Object 1,Wrapvalue(Object Angle Y(1)+4)
  XPos#=Object Position X(1)
  YPos#=Object Position Y(1)
  ZPos#=Object Position Z(1)
  Rem The sliding collision bit
  If Object Collision(1,0)>0
    Dec XPos#,Get Object Collision X()
    Dec YPos#,Get Object Collision Y()
    Dec ZPos#,Get Object Collision Z()
Endif

  Position Object 1,XPos#,YPos#,ZPos#
  Angle#=Object Angle y(1)
  CamDist#=+1.0 : CamHeight#=YPos#+10.0 : Camsmooth#=3.5
  Set Camera To Follow XPos#,YPos#,ZPos#,Angle#,CamDist#,CamHeight#,CamSmooth#,0

rem Syncronise
sync

rem End loop
loop

what have i done wrong?

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 4th Dec 2006 02:47

Link

Ah I see what you're trying to do now.

Instead of making the same object and rotating it... make it the right direction to begin with:

+ Code Snippet

make object box 5,3,50,150
position object 5,150,25,75
make object collision box 5,-3,-50,-75,3,50,75,0

Back to top

Profile PM Email

sjonny

18

Years of Service

User Offline

Joined: 25th Nov 2006

Location: darkbasic classic

Posted: 4th Dec 2006 08:36

Link

thanks that is what i wanted to know

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / collision in a vertical wall

Attachments