Collisions with multiple objects created with For x = 1 to 100 command

Author

Message

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 12th Jan 2005 05:32

Link

Is there anyway to do this without typing

+ Code Snippet

If object collision 1,2 then ...
If object collision 1,3 then ...
If object collision 1,4 then ...

You get the idea

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 12th Jan 2005 05:42

Link

for x = 2 to 100
if object collision(1,i) = 1 then ...
next x

Or depending on what you are doing

if object collision(1,0) <> 0 then ....

Back to top

Profile PM Email

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 12th Jan 2005 05:51

Link

That doesnt work :S as i have position the objects randomly and i need then to move when my player moves into it

+ Code Snippet

Sync on
Sync Rate 60

`Boxs

For x = 3 to 120
a = Rnd(28) - 14
b = Rnd(28) - 14
Make object cube x,0.5
Position object x,a,0,b
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
if object collision (2,x) and rightkey() = 1 then position object x,a,0,b
next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

This is my code. I am recreating purple people eaters. A game where you push around blocks and pin in monsters.

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 12th Jan 2005 06:52 Edited at: 12th Jan 2005 16:22

Link

I'll test this when I get home but have you tried reasigning new values to a and b each loop?

+ Code Snippet

Sync on
Sync Rate 60

`Boxs

For x = 3 to 120
a = Rnd(28) - 14
b = Rnd(28) - 14
Make object cube x,0.5
Position object x,a,0,b
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a = Rnd(28) - 14
b = Rnd(28) - 14
if object collision (2,x) and rightkey() = 1 then position object x,a,0,b
next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

[edit] That code I posted works but only when you are pressing the right arrow key. I kept that because it was in your code. Note however there are bugs in DBP's collision and you would be better to rotate the entire world 180 degrees on the x axis as the collision is dead on from left to right (x+ to x-) and it is exactly half the objects size of in the right to left (x- to x+) direction. So your objects will have to pretty much on top of each other to register a collision in that direction. As long as you keep moving the cube the same as the objects distance it won't be a problem though.

Back to top

Profile PM Email

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 13th Jan 2005 02:56

Link

Your code didnt work because it created a new random number so moved the block somewhere random. I need the blocks to move 1 space to the right.

You did give me an idea though.

When creating the many boxes, could i use this

+ Code Snippet

For x = 3 to 120
a[x] = Rnd(28) - 14
b[x] = Rnd(28) - 14
Make object cube x,0.5
Position object x,a[x],0,b[x]
Color object x, rgb(0,0,255)
next x

The [x] is meant to be the number x so if it was on X = 10 loop then the varible would be A10 and if it was x= 89 then the warible would be A89

I can't get this to work though as it creates a varible ax not a[x]

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 13th Jan 2005 04:42

Link

Oh you want to actually push the object

I didn't read that correctly. Probably because I was too sleepy. Try this instead. It is untested because I am at work. Remember the collision bugs I posted about as well.

+ Code Snippet

Sync on
Sync Rate 60

`Boxs

For x = 3 to 120
a = Rnd(28) - 14
b = Rnd(28) - 14
Make object cube x,0.5
Position object x,a,0,b
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a = object position x(x) + 0.5
b = object position z(x)
if object collision (2,x) and rightkey() = 1 then position object x,a,0,b
next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

Back to top

Profile PM Email

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 13th Jan 2005 06:02

Link

My player object just moves through them with that :S

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 13th Jan 2005 06:19

Link

try changing the a and b variables to floats.

+ Code Snippet

Sync on
Sync Rate 60

`Boxs

For x = 3 to 120
a# = Rnd(28) - 14
b# = Rnd(28) - 14
Make object cube x,0.5
Position object x,a#,0,b#
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a# = object position x(x) + 0.5
b# = object position z(x)
if object collision (2,x) and rightkey() = 1 then position object x,a#,0,b#
next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

Back to top

Profile PM Email

Shadowed Lightning

19

Years of Service

User Offline

Joined: 10th Nov 2004

Location:

Posted: 13th Jan 2005 11:50

Link

that works lost in thought, heres that same thing so that you can push the blocks in all directions and u dont go through them...

Sync on
Sync Rate 60

`Boxs

For x = 3 to 120
a# = Rnd(28) - 14
b# = Rnd(28) - 14
Make object cube x,0.5
Position object x,a#,0,b#
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a# = object position x(x)
b# = object position z(x)
if object collision (2,x) and rightkey() = 1 then position object x,a#+.5,0,b#
if object collision (2,x) and leftkey() = 1 then position object x,a#-.5,0,b#
if object collision (2,x) and upkey() = 1 then position object x,a#,0,b#+.5
if object collision (2,x) and downkey() = 1 then position object x,a#,0,b#-.5

next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

+ Code Snippet

Sync on
Sync Rate 60

`Boxs

For x = 3 to 120
a# = Rnd(28) - 14
b# = Rnd(28) - 14
Make object cube x,0.5
Position object x,a#,0,b#
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a# = object position x(x)
b# = object position z(x)
if object collision (2,x) and rightkey() = 1 then position object x,a#+.5,0,b#
if object collision (2,x) and leftkey() = 1 then position object x,a#-.5,0,b#
if object collision (2,x) and upkey() = 1 then position object x,a#,0,b#+.5
if object collision (2,x) and downkey() = 1 then position object x,a#,0,b#-.5

next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

now u need to do collision detection from one blue cube to another so they dont stack into eachother...

NukeSoft
http://www.geocities.com/nukesoft0

Back to top

Profile PM

Lost in Thought

20

Years of Service

User Offline

Joined: 4th Feb 2004

Location: U.S.A. : Douglas, Georgia

Posted: 13th Jan 2005 15:23 Edited at: 13th Jan 2005 15:25

Link

Yeah

I have a suggestion though. If you are going to have all of the cubes the same size and you are going to move the same distance each loop like that ... it would be faster to do distance checks than object collision checks I would think.

I get 530 fps with this code

Sync on
Sync Rate 0

`Boxs

For x = 3 to 120
a# = Rnd(28) - 14
b# = Rnd(28) - 14
Make object cube x,0.5
Position object x,a#,0,b#
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a# = object position x(x)
b# = object position z(x)
c# = object position x(2)
d# = object position z(2)
e = abs(c#-a#)
f = abs(d#-b#)
if e < .1 and f < .1 and rightkey() = 1 then position object x,a#+.5,0,b#
if e < .1 and f < .1 and leftkey() = 1 then position object x,a#-.5,0,b#
if e < .1 and f < .1 and upkey() = 1 then position object x,a#,0,b#+.5
if e < .1 and f < .1 and downkey() = 1 then position object x,a#,0,b#-.5

next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

+ Code Snippet

Sync on
Sync Rate 0

`Boxs

For x = 3 to 120
a# = Rnd(28) - 14
b# = Rnd(28) - 14
Make object cube x,0.5
Position object x,a#,0,b#
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a# = object position x(x)
b# = object position z(x)
c# = object position x(2)
d# = object position z(2)
e = abs(c#-a#)
f = abs(d#-b#)
if e < .1 and f < .1 and rightkey() = 1 then position object x,a#+.5,0,b#
if e < .1 and f < .1 and leftkey() = 1 then position object x,a#-.5,0,b#
if e < .1 and f < .1 and upkey() = 1 then position object x,a#,0,b#+.5
if e < .1 and f < .1 and downkey() = 1 then position object x,a#,0,b#-.5

next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

vs 460 FPS with this code

Sync on
Sync Rate 0

`Boxs

For x = 3 to 120
a# = Rnd(28) - 14
b# = Rnd(28) - 14
Make object cube x,0.5
Position object x,a#,0,b#
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a# = object position x(x)
b# = object position z(x)
hit =  object collision(2,x) 
if hit = 1 and rightkey() = 1 then position object x,a#+.5,0,b#
if hit = 1 and leftkey() = 1 then position object x,a#-.5,0,b#
if hit = 1 and upkey() = 1 then position object x,a#,0,b#+.5
if hit = 1 and downkey() = 1 then position object x,a#,0,b#-.5

next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

+ Code Snippet

Sync on
Sync Rate 0

`Boxs

For x = 3 to 120
a# = Rnd(28) - 14
b# = Rnd(28) - 14
Make object cube x,0.5
Position object x,a#,0,b#
Color object x, rgb(0,0,255)
next x

`Table

Make Object Box 1,30,1,30
Position Object 1,0,-1,0
color object 1, rgb(0,255,0)

`Player

Make Object Cube 2,0.5
Color Object 2,rgb(255,0,0)

Playerx# = 0
Playery# = 0
Playerz# = 0

`Time
Time# = 0

Sync

`loop

Do

Time# = Time# + 1

Position Camera 0,12,-30
Point Camera 0,0,0

`Movement
Position object 2,playerx#,playery#,playerz#

If upkey() = 1 And time# = 5 then playerz# = Playerz# + 0.5
If downkey() = 1 And time# = 5 then playerz# = playerz# - 0.5
if rightkey() = 1 And time# = 5 then playerx# = playerx# + 0.5
if leftkey() = 1 And time# = 5 then playerx# = playerx# - 0.5

`Collisions NOT WORKING!

For X = 3 to 120
a# = object position x(x)
b# = object position z(x)
hit =  object collision(2,x) 
if hit = 1 and rightkey() = 1 then position object x,a#+.5,0,b#
if hit = 1 and leftkey() = 1 then position object x,a#-.5,0,b#
if hit = 1 and upkey() = 1 then position object x,a#,0,b#+.5
if hit = 1 and downkey() = 1 then position object x,a#,0,b#-.5

next x

If time# = 5 Then Time# = 0

Sync

Loop

Wait key

Also it is better to assign object collision(2,x) to a variable as it lags each time it is called.

Back to top

Profile PM Email

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 14th Jan 2005 02:47

Link

Okay thanks a lot guys

Back to top

Profile PM

Major Payn

20

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 14th Jan 2005 06:14

Link

OH Xlaydos, just some quick advice from me...

Making objects with the for-next loop is the fastest way! But naming those objects things like x,b, or a, can get a bit confusing, I recommand naming them things that really sum up what they are, because you can name then whatever you want! Say your making a bunch of enemies....

for enemies=1 to 100

see! now you can make every object command easier, because the name is simple to understand, such as this object collision statement...

if object collision(enemies,bullet)>0

Guns arn't the problem, people are the problem, shoot all the people and guns arn't a problem anymore.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Collisions with multiple objects created with For x = 1 to 100 command