object collision problem - GameCreators Forum

Author

Message

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 20th Aug 2017 09:07

Link

using dbpro.

i have an object with many limbs and a sphere as a stand in player. The level i made has different height floors but the player will not drop to lower levels but if i walk off the map the player will fall. tried to delete object collision boxes and tried using object hit which did nothing.

Rem Project: packman
Rem Created: 3/16/2016 6:47:57 PM
Rem ***** Main Source File *****
autocam off
draw sprites first
`sync rate 60

global lava_block
global water_block
lava_block=4
water_block=4096

set ambient light 1
color light 0,255,255,255
backdrop off
color backdrop 0,rgb(0,0,0)
set global object creation 1
set image colorkey 0,0,0

load bitmap "sky.bmp",1
get image 1,0,0,512,512
set current bitmap 0
paste image 1,0,0
sprite 1,0,0,1
size sprite 1,screen width(),screen height()

load object "map1.dbo",1
xrotate object 1,0
set object light 1,1
set object collision on 1
set object cull 1,1
`show object bounds 1
delete object collision box 1
SET OBJECT COLLISION TO BOXES 1

make object sphere 2,1
set object collision on 2
set object collision to boxes 2
position object 2,32,1,-60
show object bounds 2
delete object collision box 2

yrotate camera 0,0
xrotate camera 0,45
zrotate camera 0,0
position camera 0,31,40,-70
perform checklist for object limbs 1

make light 1
set spot light 1,15,45
color light 1,RGB(128,0,0)
set light range 1 ,1000
position light 1, 0, 100,100
point light 1,0,0,0
`set shadow shading on 1

lava()
torch(x,y,z)
water(x,y,z)

Do
`gravity
if object collision (2,1)=0
move object down 2,.1
endif

objx#=object position x(2)
objy#=object position y(2)
objz#=object position z(2)

scroll_lava()
scroll_water()
animate_torches()

text 100,100,"FPS: "+str$(screen fps())+ str$(lava_block)+ "  Objects: 1  limbs: "+str$(checklist quantity()-1)
text 100,120, "entitys"
text 100,140, "water Cubes "+str$(water_block-4096)+ " Lava Cubes "+str$(lava_block-4)

`##$$ start camera control
if upkey()=1
    move object 2,.3
 endif
 if downkey()=1
    move object 2,-.3
 endif

if leftkey()=1
   position object 2,objx#-.3,objy#,objz#
 endif

if rightkey()=1
   position object 2,objx#+.3,objy#,objz#
 endif
loop

+ Code Snippet

Rem Project: packman
Rem Created: 3/16/2016 6:47:57 PM
Rem ***** Main Source File *****
autocam off
draw sprites first
`sync rate 60


global lava_block
global water_block
lava_block=4
water_block=4096

set ambient light 1
color light 0,255,255,255
backdrop off
color backdrop 0,rgb(0,0,0)
set global object creation 1
set image colorkey 0,0,0


load bitmap "sky.bmp",1
get image 1,0,0,512,512
set current bitmap 0
paste image 1,0,0
sprite 1,0,0,1
size sprite 1,screen width(),screen height()

load object "map1.dbo",1
xrotate object 1,0
set object light 1,1
set object collision on 1
set object cull 1,1
`show object bounds 1
delete object collision box 1
SET OBJECT COLLISION TO BOXES 1

make object sphere 2,1
set object collision on 2
set object collision to boxes 2
position object 2,32,1,-60
show object bounds 2
delete object collision box 2



yrotate camera 0,0
xrotate camera 0,45
zrotate camera 0,0
position camera 0,31,40,-70
perform checklist for object limbs 1



make light 1
set spot light 1,15,45
color light 1,RGB(128,0,0)
set light range 1 ,1000
position light 1, 0, 100,100
point light 1,0,0,0
`set shadow shading on 1

lava()
torch(x,y,z)
water(x,y,z)




Do
`gravity
if object collision (2,1)=0
move object down 2,.1
endif




objx#=object position x(2)
objy#=object position y(2)
objz#=object position z(2)

scroll_lava()
scroll_water()
animate_torches()

text 100,100,"FPS: "+str$(screen fps())+ str$(lava_block)+ "  Objects: 1  limbs: "+str$(checklist quantity()-1)
text 100,120, "entitys"
text 100,140, "water Cubes "+str$(water_block-4096)+ " Lava Cubes "+str$(lava_block-4)

`##$$ start camera control
if upkey()=1
    move object 2,.3
 endif
 if downkey()=1
    move object 2,-.3
 endif

if leftkey()=1
   position object 2,objx#-.3,objy#,objz#
 endif

if rightkey()=1
   position object 2,objx#+.3,objy#,objz#
 endif
loop

A child's dream never dies.

Attachments

Login to view attachments

Back to top

Profile PM Email

LBFN

17

Years of Service

User Offline

Joined: 7th Apr 2007

Location: USA

Posted: 21st Aug 2017 22:39

Link

I made up a quick level similar to part of yours to try and see what is going on, although I simply modeled a level instead of adding boxes as limbs. I used your program and it did basically what you are saying. The sphere object drops to the main level but will not drop down to lower levels and it does fall off the edge. I tried manually adding a collision box to object 2, but it did not make any difference.

To be candid, I have used DBP's native collision very little and use Sparky's collision https://forum.thegamecreators.com/thread/74762 It takes a little getting used to, but with the example given you should be able to figure it out. Additionally, there are a lot of threads here about it. I do not know if it is possible to setup a 'complex' object in native DBP collision; if not, that would be the issue. You can easily do that with Sparky's collision.

I cannot help but think with all the limbs needing to be checked every time that it would be more efficient to model this world.

So many games to code.....so little time.

Back to top

Profile PM Email

Scorpyo

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 22nd Aug 2017 08:02

Link

Not really solutions but few comments/suggestions:

Did you track the collision value to see what it does in real time?

put this in the do-loop and see what it does when moving around

+ Code Snippet

set cursor 0,0
print object collision (2,1)

probably it stays at 1 till you cross the map edges

another test trial would be to manually position the sphere at different heights by binding the y positioning to a key press and see if the collision value changes at a certain height.

Also, it could be that your objects y size is too small for native collision to properly work . try to scale up everything by 10

Just a few ideas though
Cheers

Back to top

Profile PM

smerf

19

Years of Service

User Offline

Joined: 24th Feb 2005

Location: nm usa

Posted: 23rd Aug 2017 08:36

Link

yeah i figured it might be a dbp collision problem ive used sparkys before been a long time though. thanks for the help guys.

A child's dream never dies.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / object collision problem

Attachments