Collision Help - GameCreators Forum

Author

Message

KoolAid Man

15

Years of Service

User Offline

Joined: 25th Nov 2010

Location:

Posted: 25th Nov 2010 07:25

Link

I can't get collision to work.. Can someone help?

thanks

sync on
sync rate 60

gravity# = .1
jump as boolean   : jump = 0

color backdrop 0

rem Player
make object cube 1,10
make light 1
set light range 1,90000
make object collision box 1,-5,-5,-5,5,5,5,0

`COLLISON
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
   dec posx#,get object collision x()
   dec posy#,get object collision y()
   dec posz#,get object collision z()
   if get object collision y()<>0 then gravity#=0.0
endif

rem Walls

`north wall
make object cube 3,100
scale object 3,10,180,500
position object 3,-100,0,0
rotate object 3,0,0,0

`floor
make object plain 2, 50, 50
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0

`East wall
make object cube 4,100
scale object 4,10,180,500
position object 4,100,0,0

`Steps
rem Make a pedestal steps
NumberOfSteps = 8
for t=0 to NumberOfSteps
   make object box 6+t,50,8,50
   position object 6+t,0,NumberOfSteps+(t*10),100+(t*50)
   color object 6+t,white
next t

`Steps Collison
for t=0 to NumberOfSteps
   make object collision box 6+t,-25,-4,-25,25,4,25,0
next t

do
if spacekey()= 1
   if not jump ` Or if jump = 0; it means the same.
      jump = 1
      jumpVelocity# = 5.0
   endif
endif

if jump
   move object up 1, jumpVelocity#
   jumpVelocity# = jumpVelocity# - gravity#
   if object position y(1) <= object position y(2)
      jumpVelocity# = 0.0
      jump = 0
      position object 1, object position x(1), object position y(2) + (object size y(1, 1) / 2.0), object position z(1)
   endif
endif

X=object position X(1)
Y=object position Y(1)
Z=object position Z(1)
`I changed this bit
position camera X,Y,Z
set camera to object orientation 1
move camera -100
pitch camera up 90
move camera 50
point camera X,Y,Z
`up to here
if rightkey()=1 then turn object right 1,3
if leftkey()=1 then turn object left 1,3
if upkey()=1 then move object 1,3
if downkey()=1 then move object 1,-3
sync
loop

+ Code Snippet

sync on
sync rate 60


gravity# = .1
jump as boolean   : jump = 0

color backdrop 0



rem Player
make object cube 1,10
make light 1
set light range 1,90000
make object collision box 1,-5,-5,-5,5,5,5,0

`COLLISON
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
   dec posx#,get object collision x()
   dec posy#,get object collision y()
   dec posz#,get object collision z()
   if get object collision y()<>0 then gravity#=0.0
endif

rem Walls

`north wall
make object cube 3,100
scale object 3,10,180,500
position object 3,-100,0,0
rotate object 3,0,0,0

`floor
make object plain 2, 50, 50
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0


`East wall
make object cube 4,100
scale object 4,10,180,500
position object 4,100,0,0

`Steps
rem Make a pedestal steps
NumberOfSteps = 8
for t=0 to NumberOfSteps
   make object box 6+t,50,8,50
   position object 6+t,0,NumberOfSteps+(t*10),100+(t*50)
   color object 6+t,white
next t

`Steps Collison
for t=0 to NumberOfSteps
   make object collision box 6+t,-25,-4,-25,25,4,25,0
next t

do
if spacekey()= 1
   if not jump ` Or if jump = 0; it means the same.
      jump = 1
      jumpVelocity# = 5.0
   endif
endif

if jump
   move object up 1, jumpVelocity#
   jumpVelocity# = jumpVelocity# - gravity#
   if object position y(1) <= object position y(2)
      jumpVelocity# = 0.0
      jump = 0
      position object 1, object position x(1), object position y(2) + (object size y(1, 1) / 2.0), object position z(1)
   endif
endif



X=object position X(1)
Y=object position Y(1)
Z=object position Z(1)
`I changed this bit
position camera X,Y,Z
set camera to object orientation 1
move camera -100
pitch camera up 90
move camera 50
point camera X,Y,Z
`up to here
if rightkey()=1 then turn object right 1,3
if leftkey()=1 then turn object left 1,3
if upkey()=1 then move object 1,3
if downkey()=1 then move object 1,-3
sync
loop

It is I... OHH YEAHHH

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 25th Nov 2010 17:27

Link

This is just a suggestion, but it MIGHT be of good use if you put the collision checking INSIDE the main loop

+ Code Snippet

`COLLISON
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
   dec posx#,get object collision x()
   dec posy#,get object collision y()
   dec posz#,get object collision z()
   if get object collision y()<>0 then gravity#=0.0
endif

TheComet

Back to top

Profile PM Email Website

DVader

22

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 25th Nov 2010 18:22

Link

If you put the collision in the main loop it still seems not to work, but I think it is working for the first box, just none of the others and not even the first box if you move around first(off the box and back on for instance), although that seems semi random too.
I would consider binning a lot of this and trying either some maths collision or maybe the intersect object command, which I think would do a better job.

http://s6.bitefight.org/c.php?uid=103081

Back to top

Profile PM Website

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 25th Nov 2010 19:14 Edited at: 25th Nov 2010 19:15

Link

It still won't work because the collision checking code and player position processing is independent in your example. Here, I fixed it up a little for you

sync on
sync rate 60

gravity# = .1
jump as boolean   : jump = 0

rem velocity is constant
global velocity# as float
velocity#=0.1

color backdrop 0

rem Player
make object cube 1,10
make light 1
set light range 1,90000
make object collision box 1,-5,-5,-5,5,5,5,0

rem Walls

`north wall
make object cube 3,100
scale object 3,10,180,500
position object 3,-100,0,0
rotate object 3,0,0,0

`floor
make object plain 2, 50, 50
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0

`East wall
make object cube 4,100
scale object 4,10,180,500
position object 4,100,0,0

`Steps
rem Make a pedestal steps
NumberOfSteps = 8
for t=0 to NumberOfSteps
   make object box 6+t,50,8,50
   position object 6+t,0,NumberOfSteps+(t*10),100+(t*50)
   color object 6+t,white
next t

`Steps Collison
for t=0 to NumberOfSteps
   make object collision box 6+t,-25,-4,-25,25,4,25,0
next t

do

rem control movement
if rightkey()=1 then turn object right 1,3
if leftkey()=1 then turn object left 1,3
if upkey()=1 then move object 1,3
if downkey()=1 then move object 1,-3

rem control jumping
if spacekey()=1 and gravity#=0.0 then gravity#=2.0

rem get positions of object
posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)

rem control gravity
dec gravity#,velocity#
inc posy#,gravity#

`COLLISON
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
   dec posx#,get object collision x()
   dec posy#,get object collision y()
   dec posz#,get object collision z()
   if get object collision y()<>0 then gravity#=0.0
endif

rem update player positions
position object 1,posx#,posy#,posz#

`And I changed this bit a little too :)
`I changed this bit
position camera posx#,posy#,posz#
set camera to object orientation 1
move camera -100
pitch camera up 90
move camera 50
point camera posx#,posy#,posz#
`up to here
`until here

sync
loop

+ Code Snippet

sync on
sync rate 60


gravity# = .1
jump as boolean   : jump = 0

rem velocity is constant
global velocity# as float
velocity#=0.1

color backdrop 0



rem Player
make object cube 1,10
make light 1
set light range 1,90000
make object collision box 1,-5,-5,-5,5,5,5,0

rem Walls

`north wall
make object cube 3,100
scale object 3,10,180,500
position object 3,-100,0,0
rotate object 3,0,0,0

`floor
make object plain 2, 50, 50
point object 2, 0, -50, 0
position object 2, 0, -3.5, 0


`East wall
make object cube 4,100
scale object 4,10,180,500
position object 4,100,0,0

`Steps
rem Make a pedestal steps
NumberOfSteps = 8
for t=0 to NumberOfSteps
   make object box 6+t,50,8,50
   position object 6+t,0,NumberOfSteps+(t*10),100+(t*50)
   color object 6+t,white
next t

`Steps Collison
for t=0 to NumberOfSteps
   make object collision box 6+t,-25,-4,-25,25,4,25,0
next t

do

rem control movement
if rightkey()=1 then turn object right 1,3
if leftkey()=1 then turn object left 1,3
if upkey()=1 then move object 1,3
if downkey()=1 then move object 1,-3

rem control jumping
if spacekey()=1 and gravity#=0.0 then gravity#=2.0

rem get positions of object
posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)

rem control gravity
dec gravity#,velocity#
inc posy#,gravity#

`COLLISON
position object 1,posx#,posy#,posz#
if object collision(1,0)>0
   dec posx#,get object collision x()
   dec posy#,get object collision y()
   dec posz#,get object collision z()
   if get object collision y()<>0 then gravity#=0.0
endif

rem update player positions
position object 1,posx#,posy#,posz#

`And I changed this bit a little too :)
`I changed this bit
position camera posx#,posy#,posz#
set camera to object orientation 1
move camera -100
pitch camera up 90
move camera 50
point camera posx#,posy#,posz#
`up to here
`until here

sync
loop

TheComet

Back to top

Profile PM Email Website

KoolAid Man

15

Years of Service

User Offline

Joined: 25th Nov 2010

Location:

Posted: 28th Nov 2010 16:01

Link

Thank you so much Comet!

Wait. What?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Collision Help