Spherical Collision problems - GameCreators Forum

Author

Message

BLink

20

Years of Service

User Offline

Joined: 1st Jan 2004

Location: Laptop, wherever that is

Posted: 31st Jul 2006 19:09 Edited at: 19th Aug 2006 00:57

Link

I'm really not sure what's wrong, but for some reason this code just isn't working...the "bomb" appears when you right click, and it's supposed to destroy( read: hide) the small gray spheres. Can someone just take a look at this and see what's wrong?

sync on
sync rate 60
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*50,0,0
set object collision to spheres x
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
	hide object x
ghost object on x
set object collision to spheres x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0

position camera 0,500,-1500

do

set cursor 0,0
print tyme2#
print object collision(bomb#+201,0)

if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#>19 then scale object bomb#+201,200,200,200
if tyme2#>20 then scale object bomb#+201,400,400,400
if tyme2#>21 then scale object bomb#+201,800,800,800
if tyme2#>22 then scale object bomb#+201,1600,1600,1600
if tyme2#>23 then scale object bomb#+201,3200,3200,3200
if tyme2#>24 then scale object bomb#+201,6400,6400,6400

for x=200 to 210
if tyme2#>50
tyme2#=0
shoot2#=0
position object x,0,1500,0
scale object x,100,100,100
endif

next x

if mouseclick()=2 and shoot2#=0
if bomb#>0
make object collision box bomb#+200,-10,-10,-10,10,10,10,0
show object bomb#+200
shoot2#=1
bomb#=bomb#-1
endif
endif

`bombed#=object collision(bomb#+201,0)
`if bombed#>0 and bombed#<21 then hide object bombed#

if object collision(bomb#+201,0)>0 and object collision(bomb#+201,0)<21 then hide object object collision(bomb#+201,0)

sync
loop

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*50,0,0
set object collision to spheres x
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
	hide object x
ghost object on x
set object collision to spheres x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0


position camera 0,500,-1500




do

set cursor 0,0
print tyme2#
print object collision(bomb#+201,0)



if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#>19 then scale object bomb#+201,200,200,200
if tyme2#>20 then scale object bomb#+201,400,400,400
if tyme2#>21 then scale object bomb#+201,800,800,800
if tyme2#>22 then scale object bomb#+201,1600,1600,1600
if tyme2#>23 then scale object bomb#+201,3200,3200,3200
if tyme2#>24 then scale object bomb#+201,6400,6400,6400

for x=200 to 210
if tyme2#>50
tyme2#=0
shoot2#=0
position object x,0,1500,0
scale object x,100,100,100
endif

next x


if mouseclick()=2 and shoot2#=0
if bomb#>0
make object collision box bomb#+200,-10,-10,-10,10,10,10,0
show object bomb#+200
shoot2#=1
bomb#=bomb#-1
endif
endif

`bombed#=object collision(bomb#+201,0)
`if bombed#>0 and bombed#<21 then hide object bombed#

if object collision(bomb#+201,0)>0 and object collision(bomb#+201,0)<21 then hide object object collision(bomb#+201,0)

sync
loop

Thanks!

EDIT: DBC btw.

Pineapple juice, the best drink ever made.

Back to top

Profile PM Email Website

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 31st Jul 2006 20:07 Edited at: 31st Jul 2006 20:36

Link

if object collision(bomb#+201,0)>0 and object collision(bomb#+201,0)<21 then hide object bomb#+201

[edit] nevermind, that won't work...

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 1st Aug 2006 05:05

Link

Maybe it's the scaling for the bomb...

Back to top

Profile PM Email

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 1st Aug 2006 15:44 Edited at: 1st Aug 2006 15:45

Link

You need to check collision of each object in a for-next loop

sync on
sync rate 60
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*50,0,0
set object collision to spheres x
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
   hide object x
ghost object on x
set object collision to spheres x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0

position camera 0,500,-1500

do

set cursor 0,0
print tyme2#
print object collision(bomb#+201,0)

if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#>19 then scale object bomb#+201,200,200,200
if tyme2#>20 then scale object bomb#+201,400,400,400
if tyme2#>21 then scale object bomb#+201,800,800,800
if tyme2#>22 then scale object bomb#+201,1600,1600,1600
if tyme2#>23 then scale object bomb#+201,3200,3200,3200
if tyme2#>24 then scale object bomb#+201,6400,6400,6400

for x=200 to 210
if tyme2#>50
tyme2#=0
shoot2#=0
position object x,0,1500,0
scale object x,100,100,100
endif

next x

if mouseclick()=2 and shoot2#=0
if bomb#>0
show object bomb#+201
shoot2#=1
bomb#=bomb#-1
endif
endif

`bombed#=object collision(bomb#+201,0)
`if bombed#>0 and bombed#<21 then hide object bombed#

for x= 1 to 20
 if object collision(bomb#+201,x) then hide object x
next x
sync
loop

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*50,0,0
set object collision to spheres x
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
   hide object x
ghost object on x
set object collision to spheres x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0


position camera 0,500,-1500




do

set cursor 0,0
print tyme2#
print object collision(bomb#+201,0)



if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#>19 then scale object bomb#+201,200,200,200
if tyme2#>20 then scale object bomb#+201,400,400,400
if tyme2#>21 then scale object bomb#+201,800,800,800
if tyme2#>22 then scale object bomb#+201,1600,1600,1600
if tyme2#>23 then scale object bomb#+201,3200,3200,3200
if tyme2#>24 then scale object bomb#+201,6400,6400,6400

for x=200 to 210
if tyme2#>50
tyme2#=0
shoot2#=0
position object x,0,1500,0
scale object x,100,100,100
endif

next x


if mouseclick()=2 and shoot2#=0
if bomb#>0
show object bomb#+201
shoot2#=1
bomb#=bomb#-1
endif
endif

`bombed#=object collision(bomb#+201,0)
`if bombed#>0 and bombed#<21 then hide object bombed#

for x= 1 to 20
 if object collision(bomb#+201,x) then hide object x
next x
sync
loop

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

BLink

20

Years of Service

User Offline

Joined: 1st Jan 2004

Location: Laptop, wherever that is

Posted: 10th Aug 2006 17:55

Link

The problem still seems to exist, even in your code Crit.

I've transfered it to box collisions now, as I thought that would be easier, but...

sync on
sync rate 60
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*50,0,0
make object collision box x,50,50,50,-50,-50,-50,0
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
	hide object x
ghost object on x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0

position camera 0,500,-1500

do

set cursor 0,0
print tyme2#
print object collision(bomb#+200,0)

if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#>19 then scale object bomb#+201,200,200,200 : make object collision box bomb#+201,100,100,100,-100,-100,-100,0
if tyme2#>20 then scale object bomb#+201,400,400,400 : make object collision box bomb#+201,200,200,200,-200,-200,-200,0
if tyme2#>21 then scale object bomb#+201,800,800,800 : make object collision box bomb#+201,400,400,400,-400,-400,-400,0
if tyme2#>22 then scale object bomb#+201,1600,1600,1600 : make object collision box bomb#+201,800,800,800,-800,-800,-800,0
if tyme2#>23 then scale object bomb#+201,3200,3200,3200 : make object collision box bomb#+201,1600,1600,1600,-1600,-1600,-1600,0
if tyme2#>24 then scale object bomb#+201,6400,6400,6400 : make object collision box bomb#+201,3200,3200,3200,-3200,-3200,-3200,0

for x=200 to 210
if tyme2#>50
tyme2#=0
shoot2#=0
position object x,0,1500,0
scale object x,100,100,100
delete object collision box x
endif

next x

if mouseclick()=2 and shoot2#=0
if bomb#>0
show object bomb#+200
shoot2#=1
bomb#=bomb#-1
endif
endif

for x= 1 to 20
 if object collision(bomb#+201,x)=1 then hide object x : delete object collision box x
next x

`wait key

sync
loop

+ Code Snippet

sync on
sync rate 60
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*50,0,0
make object collision box x,50,50,50,-50,-50,-50,0
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
	hide object x
ghost object on x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0


position camera 0,500,-1500




do

set cursor 0,0
print tyme2#
print object collision(bomb#+200,0)



if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#>19 then scale object bomb#+201,200,200,200 : make object collision box bomb#+201,100,100,100,-100,-100,-100,0
if tyme2#>20 then scale object bomb#+201,400,400,400 : make object collision box bomb#+201,200,200,200,-200,-200,-200,0
if tyme2#>21 then scale object bomb#+201,800,800,800 : make object collision box bomb#+201,400,400,400,-400,-400,-400,0
if tyme2#>22 then scale object bomb#+201,1600,1600,1600 : make object collision box bomb#+201,800,800,800,-800,-800,-800,0
if tyme2#>23 then scale object bomb#+201,3200,3200,3200 : make object collision box bomb#+201,1600,1600,1600,-1600,-1600,-1600,0
if tyme2#>24 then scale object bomb#+201,6400,6400,6400 : make object collision box bomb#+201,3200,3200,3200,-3200,-3200,-3200,0

for x=200 to 210
if tyme2#>50
tyme2#=0
shoot2#=0
position object x,0,1500,0
scale object x,100,100,100
delete object collision box x
endif

next x


if mouseclick()=2 and shoot2#=0
if bomb#>0
show object bomb#+200
shoot2#=1
bomb#=bomb#-1
endif
endif


for x= 1 to 20
 if object collision(bomb#+201,x)=1 then hide object x : delete object collision box x
next x

`wait key

sync
loop

...still broken.

Pineapple juice, the best drink ever made.

Back to top

Profile PM Email Website

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 10th Aug 2006 22:52 Edited at: 10th Aug 2006 22:53

Link

Really? That code worked for me. At least I think it did... The bomb exploded and took out the first 10 or so circles as the explosion grew. What is supposed to happen? BTW, I tried it in DB Pro.

edit: by "that code", I mean the code I posted, not the box collision code you posted.

CHESS ENCOUNTER
Demo
WIP

Back to top

Profile PM

BLink

20

Years of Service

User Offline

Joined: 1st Jan 2004

Location: Laptop, wherever that is

Posted: 11th Aug 2006 05:23

Link

It does work that way, but that's not the right way for it to work. It should destroy spheres as it comes to them, while instead, with the collision of the first, it destroys all that it's going to eventually destroy. Slow down the framerate and see for yourself, it's weird.

Pineapple juice, the best drink ever made.

Back to top

Profile PM Email Website

BLink

20

Years of Service

User Offline

Joined: 1st Jan 2004

Location: Laptop, wherever that is

Posted: 18th Aug 2006 19:11 Edited at: 19th Aug 2006 00:58

Link

sync on
sync rate 20
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*75,0,0
`make object collision box x,50,50,50,-50,-50,-50,0
set object collision to spheres x
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
	hide object x
ghost object on x
set object collision to spheres x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0

position camera 0,500,-2500

do

set cursor 0,0
print tyme2#

if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#=21 then scale object bomb#+201,3200,3200,3200 
if tyme2#=22 then scale object bomb#+201,6000,6000,6000
if tyme2#=23 then scale object bomb#+201,6200,6200,6200
if tyme2#=24 then scale object bomb#+201,6400,6400,6400
if tyme2#=25 then scale object bomb#+201,6500,6500,6500
if tyme2#>25 then scale object bomb#+201,6550,6550,6550

if tyme2#>50
tyme2#=0
shoot2#=0
position object bomb#+201,0,1500,0
scale object bomb#+201,100,100,100
hide object bomb#+201
endif

if mouseclick()=2 and shoot2#=0
if bomb#>0
show object bomb#+200
shoot2#=1
bomb#=bomb#-1
endif
endif

for x= 1 to 20
 if object collision(bomb#+201,x) then hide object x
next x

wait key

sync
loop

+ Code Snippet

sync on
sync rate 20
hide mouse
autocam on

for x = 1 to 20
make object sphere x,50
position object x,x*75,0,0
`make object collision box x,50,50,50,-50,-50,-50,0
set object collision to spheres x
next x

for x = 200 to 211
make object sphere x,20
color object x,RGB(255,100,100)
	hide object x
ghost object on x
set object collision to spheres x
next x

bomb#=8
bombed#=0
shoot2#=0
tyme2#=0


position camera 0,500,-2500




do

set cursor 0,0
print tyme2#



if shoot2#>0 then tyme2#=tyme2#+1

if tyme2#=21 then scale object bomb#+201,3200,3200,3200 
if tyme2#=22 then scale object bomb#+201,6000,6000,6000
if tyme2#=23 then scale object bomb#+201,6200,6200,6200
if tyme2#=24 then scale object bomb#+201,6400,6400,6400
if tyme2#=25 then scale object bomb#+201,6500,6500,6500
if tyme2#>25 then scale object bomb#+201,6550,6550,6550

if tyme2#>50
tyme2#=0
shoot2#=0
position object bomb#+201,0,1500,0
scale object bomb#+201,100,100,100
hide object bomb#+201
endif




if mouseclick()=2 and shoot2#=0
if bomb#>0
show object bomb#+200
shoot2#=1
bomb#=bomb#-1
endif
endif


for x= 1 to 20
 if object collision(bomb#+201,x) then hide object x
next x

wait key

sync
loop

I've cut down to the basics again, because I need to figure out this problem before moving on to collision boxes, since at least in this form the spheres can be collided with(unlike collision boxes), even though wrongly done. The bomb now destroys all the spheres though, so I don't really understand what's going on anymore...not that I ever did

EDIT: DBC btw.

Pineapple juice, the best drink ever made.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Spherical Collision problems