Need help with DB classic collision

Author

Message

Diggsey

19

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 31st May 2006 21:21 Edited at: 1st Jun 2006 00:04

Link

I've got a .x object that I have made, but I can't get the collision to work. When I set object collision to polygons, it never collides, but if I don't, it uses box collision and I can't co anywhere!

Can someone tell me why, or make the collision work? Please?

I thought it was the hollow box around the object, but it doesn't work even without that.

The objects are attached, neither work.

Here is the code:

sync on : hide mouse

load object "level2.x",1
==> set object collision to polygons 1

make object box 2,10,5,5
make object box 3,5,5,10
make object box 4,10,5,5
make object box 5,5,5,10
make object box 6,5,30,5

xpos# = -600
position object 6,-600,20,0

do

position mouse 320,240

if upkey() = 1 then move object 6,5
	inc lookx,mousemovey()
	inc looky,mousemovex()
	lookx = wrapvalue(lookx)
	looky = wrapvalue(looky)
	rotate camera lookx,looky,0
	Yrotate object 6,looky
	oldx# = xpos#
	oldz# = zpos#
	xpos# = object position x(6)
	ypos# = object position y(6)
	zpos# = object position z(6)
	position object 2,xpos#,ypos#+50,zpos#+10
	position object 3,xpos#+10,ypos#+50,zpos#
	position object 4,xpos#,ypos#+50,zpos#-10
	position object 5,xpos#-10,ypos#+50,zpos#
	if object collision(2,1) = 1
		zpos# = oldz#
	endif
	if object collision(3,1) = 1
		xpos# = oldx#
	endif
	if object collision(4,1) = 1
		zpos# = oldz#
	endif
	if object collision(5,1) = 1
		xpos# = oldx#
	endif
	position object 2,xpos#,ypos#+50,zpos#+10
	position object 3,xpos#+10,ypos#+50,zpos#
	position object 4,xpos#,ypos#+50,zpos#-10
	position object 5,xpos#-10,ypos#+50,zpos#
	position object 6,xpos#,ypos#,zpos#
	position camera xpos#,ypos#+100,zpos#

sync

loop

+ Code Snippet

sync on : hide mouse

load object "level2.x",1
==> set object collision to polygons 1

make object box 2,10,5,5
make object box 3,5,5,10
make object box 4,10,5,5
make object box 5,5,5,10
make object box 6,5,30,5

xpos# = -600
position object 6,-600,20,0

do

	position mouse 320,240

	if upkey() = 1 then move object 6,5
	inc lookx,mousemovey()
	inc looky,mousemovex()
	lookx = wrapvalue(lookx)
	looky = wrapvalue(looky)
	rotate camera lookx,looky,0
	Yrotate object 6,looky
	oldx# = xpos#
	oldz# = zpos#
	xpos# = object position x(6)
	ypos# = object position y(6)
	zpos# = object position z(6)
	position object 2,xpos#,ypos#+50,zpos#+10
	position object 3,xpos#+10,ypos#+50,zpos#
	position object 4,xpos#,ypos#+50,zpos#-10
	position object 5,xpos#-10,ypos#+50,zpos#
	if object collision(2,1) = 1
		zpos# = oldz#
	endif
	if object collision(3,1) = 1
		xpos# = oldx#
	endif
	if object collision(4,1) = 1
		zpos# = oldz#
	endif
	if object collision(5,1) = 1
		xpos# = oldx#
	endif
	position object 2,xpos#,ypos#+50,zpos#+10
	position object 3,xpos#+10,ypos#+50,zpos#
	position object 4,xpos#,ypos#+50,zpos#-10
	position object 5,xpos#-10,ypos#+50,zpos#
	position object 6,xpos#,ypos#,zpos#
	position camera xpos#,ypos#+100,zpos#

	sync

loop

PLEASE!!!
I need this before the end of the week

There are three types of people, those that can count and those that can't.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

nojbox87

19

Years of Service

User Offline

Joined: 26th Jun 2005

Location: England

Posted: 1st Jun 2006 11:09

Link

ok ill be honest with you i have never been able to sucessfully use DBC collision sucessfully EVER so im sure there is something huge i am doing wrong. i woudl reccomend that you use Sparkeys collision dll as it works well. there is a DBC version out there somewhere you will just have to search the forum a bit

I am a Christian and I know that God loves me. That is what makes my life so great!

Back to top

Profile PM Email Website

Commodore kid

18

Years of Service

User Offline

Joined: 3rd Jun 2006

Location: Staffordshire, England

Posted: 4th Jun 2006 19:13

Link

I used to have that problem but found a solution. what u have to do is turn collision off on the main objects and make a smaller objects inside them. then turn the collision on for the object inside. make sure the object has the same shape though.

im sorry for the spamming i used to do i hope u can all find it in your harts to forgive me

Back to top

Profile PM Email

Commodore kid

18

Years of Service

User Offline

Joined: 3rd Jun 2006

Location: Staffordshire, England

Posted: 13th Jun 2006 19:21

Link

Did it work?

im sorry for the spamming i used to do i hope u can all find it in your harts to forgive me

Back to top

Profile PM Email

Diggsey

19

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 13th Jun 2006 21:21

Link

Sorry, it's the wrong sort of world for that, it is hollow, and it doesn't move. The player object already does what you said.

But thanks anyway

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

zzz

19

Years of Service

User Offline

Joined: 13th Nov 2005

Location: Sweden

Posted: 14th Jun 2006 14:30

Link

Sparky´s collision dll --> http://forum.thegamecreators.com/?m=forum_view&t=31051&b=5

It´s really good!

Back to top

Profile PM Website

Lukas W

21

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 14th Jun 2006 16:02

Link

or use a world editor that can place collision boxes. *cough*tiame*cough*

Back to top

Profile PM Email

Diggsey

19

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 14th Jun 2006 21:53

Link

Yeah, thanks. I've already solved the problem. If you look at http://forum.thegamecreators.com/?m=forum_view&t=80576&b=8
You'll see my new problem

.

If you've got a very fast computer, the game should run fine.
Otherwise, that's the problem

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

Lucifer

19

Years of Service

User Offline

Joined: 26th Dec 2005

Location:

Posted: 15th Jun 2006 17:19

Link

hey diggsey, can you post the fixed collision code? i'm having trouble getting my collision to work... i would really like if you'd show me how it's done

Just google pallmanni and get the history of me!

http://whatishl.ytmnd.com/ so friggin funny!

Back to top

Profile PM

Diggsey

19

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 15th Jun 2006 18:48 Edited at: 15th Jun 2006 18:49

Link

Sorry, it works but it's not exactly the best method.

But I'll show you anyway.

while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#,ypos#+20,zpos#+12,0) or intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#+12,xpos#,ypos#+20,zpos#,0)
		dec zpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#+8,ypos#+20,zpos#+8,0) or intersectObjectDBC(1,0,xpos#+8,ypos#+20,zpos#+8,xpos#,ypos#+20,zpos#,0)
		dec zpos#,0.8
		dec xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#+12,ypos#+20,zpos#,0) or intersectObjectDBC(1,0,xpos#+12,ypos#+20,zpos#,xpos#,ypos#+20,zpos#,0)
		dec xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#+8,ypos#+20,zpos#-8,0) or intersectObjectDBC(1,0,xpos#+8,ypos#+20,zpos#-8,xpos#,ypos#+20,zpos#,0)
		inc zpos#,0.8
		dec xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#,ypos#+20,zpos#-12,0) or intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#-12,xpos#,ypos#+20,zpos#,0)
		inc zpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#-8,ypos#+20,zpos#-8,0) or intersectObjectDBC(1,0,xpos#-8,ypos#+20,zpos#-8,xpos#,ypos#+20,zpos#,0)
		inc zpos#,0.8
		inc xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#-12,ypos#+20,zpos#,xpos#,ypos#+20,zpos#,0) or intersectObjectDBC(1,0,xpos#-12,ypos#+20,zpos#,xpos#,ypos#+20,zpos#,0)
		inc xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#-8,ypos#+20,zpos#+8,0) or intersectObjectDBC(1,0,xpos#-8,ypos#+20,zpos#+8,xpos#,ypos#+20,zpos#,0)
		dec zpos#,0.8
		inc xpos#,0.8
	endwhile

while intersectObjectDBC(1,0,xpos#,ypos#+50,zpos#,xpos#,ypos#,zpos#,0)
		inc ypos#,0.2
		grav# = 0
		jump = 0
		position object 6,xpos#,ypos#,zpos#
	endwhile
	if ypos# < 0 then ypos# = 0 : grav# = 0 : jump = 0
	if ypos# > 410 then grav# = 0-grav#

+ Code Snippet


	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#,ypos#+20,zpos#+12,0) or intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#+12,xpos#,ypos#+20,zpos#,0)
		dec zpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#+8,ypos#+20,zpos#+8,0) or intersectObjectDBC(1,0,xpos#+8,ypos#+20,zpos#+8,xpos#,ypos#+20,zpos#,0)
		dec zpos#,0.8
		dec xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#+12,ypos#+20,zpos#,0) or intersectObjectDBC(1,0,xpos#+12,ypos#+20,zpos#,xpos#,ypos#+20,zpos#,0)
		dec xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#+8,ypos#+20,zpos#-8,0) or intersectObjectDBC(1,0,xpos#+8,ypos#+20,zpos#-8,xpos#,ypos#+20,zpos#,0)
		inc zpos#,0.8
		dec xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#,ypos#+20,zpos#-12,0) or intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#-12,xpos#,ypos#+20,zpos#,0)
		inc zpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#-8,ypos#+20,zpos#-8,0) or intersectObjectDBC(1,0,xpos#-8,ypos#+20,zpos#-8,xpos#,ypos#+20,zpos#,0)
		inc zpos#,0.8
		inc xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#-12,ypos#+20,zpos#,xpos#,ypos#+20,zpos#,0) or intersectObjectDBC(1,0,xpos#-12,ypos#+20,zpos#,xpos#,ypos#+20,zpos#,0)
		inc xpos#,0.8
	endwhile
	while intersectObjectDBC(1,0,xpos#,ypos#+20,zpos#,xpos#-8,ypos#+20,zpos#+8,0) or intersectObjectDBC(1,0,xpos#-8,ypos#+20,zpos#+8,xpos#,ypos#+20,zpos#,0)
		dec zpos#,0.8
		inc xpos#,0.8
	endwhile

	while intersectObjectDBC(1,0,xpos#,ypos#+50,zpos#,xpos#,ypos#,zpos#,0)
		inc ypos#,0.2
		grav# = 0
		jump = 0
		position object 6,xpos#,ypos#,zpos#
	endwhile
	if ypos# < 0 then ypos# = 0 : grav# = 0 : jump = 0
	if ypos# > 410 then grav# = 0-grav#

There must be a better way

This is really slow when made into an exe.

(uses sparkys collision dll)

There are three types of people, those that can count and those that can't.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Need help with DB classic collision

Attachments