Please help me, I have a problem with Collision.

Author

Message

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 9th Nov 2004 06:23

Link

Hello

I asked this very question weeks ago, but got no straight answer. I will explain what I am trying to accomplish, and then tell you the problem...

1) the red objects are the enemies, they are to run upwards.
2) the white boxes, are barriers, they are supposed to push the red enemies either left or right randomly.
3) the green objects are supposed to kill the red objects.
4) the blue objects are supposed to kill the red objects.
5) the brown object that the bullets are shooting towards, is also supposed to kill the red objects.

All of that works fine, but there is a problem with the Red objects, you see, sometimes two red objects hit the white objects, and are pushed into each other, they are colliding, and thus cancell any other collision out, so they are stuck together, and pass through everything. This shouldn't happen. I need to know how to keep the red objects from colliding with themselves. Any help would be appreciated, I will enclude the code now...

randomize timer()
set display mode 1024,768,16
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)
dim mover(120)
dim victorytimer(0)

`important variables
selection(0)=0
player(0)=1
timeleft(0)=2000
victorytimer(0)=1000
wavetime(0)=1000

rem the new mouse object to play with
make object cube 8000,10
position object 8000,100,0,100
set object collision to boxes 8000
color object 8000,RGB(128,128,0)
hide object 8000

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do
set cursor 10,10: Print "Press Space bar to start level 1"

if spacekey()=1
    gosub level1
endif

sync
loop
end

rem ============================

wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
rem -- here we move the user selection cube...
if object screen x(8000)=<mousex()
  position object 8000,object position x(8000)+4,object position y(8000),object position z(8000)
endif
if object screen x(8000)=>mousex()
  position object 8000,object position x(8000)-4,object position y(8000),object position z(8000)
endif
if object screen y(8000)=<mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)-4
endif
if object screen y(8000)=>mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
rem -- here we move any object selected by the user
    if selection(0)
      position object selection(0),object position x(8000),object position y(8000),object position z(8000)
    else
      t = object collision(8000,0)
rem -- here we test for all user movable objects...
      if t > 0 and t < 6
          selection(0) = t
      endif
      if t > 15 and t < 20
        selection(0) = t
      endif
      if t > 199 and t < 207
        selection(0) = t
      endif
    endif
  else
    selection(0) = 0
  endif
endif
return

level1:

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

`make barriers
for t=204 to 206
make object box t,30,10,10
set object collision on t
position object t, 100+rnd(50), 0,100+rnd(50)
next t

rem make machine gun nest A
m= 201
make object cube m, 10
set object collision to boxes m
color object m,RGB(90,90,40)
Position object m,100,0,100

rem make bullets
for b=207 to 208
make object sphere b,2
next b

for b=207 to 208
position object b,object position x(m),object position y(m),object position z(m)
next b

`make machine gun nest target
t = 202
make object box t,30,5,10
color object t,RGB(90,90,90)
position object t,100,0,-100

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(100),0,-200+rnd(100)
  while object collision(e,0) > 0
    position object e,100+rnd(100),0,-200+rnd(100)
  endwhile
next e

`make wave two (red)
  for e=100 to 120
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(200),0,-300+rnd(200)
    while object collision(e,0) > 0
      position object e,100+rnd(200),0,-300+rnd(200)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

do
rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left ", "time to victory", victorytimer(0)

if timeleft(0) > 0
gosub selection
endif

timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
victorytimer(0)= victorytimer(0)-1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "A second wave of enemys has been spotted on the horizon, time untill landing " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

if victorytimer(0)=<0
   set cursor 10,20: print "This is a great victory, without a beach-head here, the enemy will lose a valuable foot hold, you win the fight!"
endif

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=6 to 15
rem  if object collision(e,202)
  if object collision(e,0) = 202
      hide object e
   endif
next e

for e=100 to 120
rem  if object collision(e,202)
   if object collision(e,0) = 202
      hide object e
   endif
next e

for e=100 to 120
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=6 to 15
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

for e=100 to 120
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

fire=1
for b=207 to 208
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 10
endif
rem if object collision(b,t)>0
  if object collision(b,0) = t
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)
endif
next b
sync
loop

return

+ Code Snippet

randomize timer()
set display mode 1024,768,16
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)
dim mover(120)
dim victorytimer(0)


`important variables
selection(0)=0
player(0)=1
timeleft(0)=2000
victorytimer(0)=1000
wavetime(0)=1000

rem the new mouse object to play with
make object cube 8000,10
position object 8000,100,0,100
set object collision to boxes 8000
color object 8000,RGB(128,128,0)
hide object 8000

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0


do
set cursor 10,10: Print "Press Space bar to start level 1"


if spacekey()=1
    gosub level1
endif

sync
loop
end

rem ============================


wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
rem -- here we move the user selection cube...
if object screen x(8000)=<mousex()
  position object 8000,object position x(8000)+4,object position y(8000),object position z(8000)
endif
if object screen x(8000)=>mousex()
  position object 8000,object position x(8000)-4,object position y(8000),object position z(8000)
endif
if object screen y(8000)=<mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)-4
endif
if object screen y(8000)=>mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
rem -- here we move any object selected by the user
    if selection(0)
      position object selection(0),object position x(8000),object position y(8000),object position z(8000)
    else
      t = object collision(8000,0)
rem -- here we test for all user movable objects...
      if t > 0 and t < 6
          selection(0) = t
      endif
      if t > 15 and t < 20
        selection(0) = t
      endif
      if t > 199 and t < 207
        selection(0) = t
      endif
    endif
  else
    selection(0) = 0
  endif
endif
return



level1:


rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

`make barriers
for t=204 to 206
make object box t,30,10,10
set object collision on t
position object t, 100+rnd(50), 0,100+rnd(50)
next t

rem make machine gun nest A
m= 201
make object cube m, 10
set object collision to boxes m
color object m,RGB(90,90,40)
Position object m,100,0,100

rem make bullets
for b=207 to 208
make object sphere b,2
next b

for b=207 to 208
position object b,object position x(m),object position y(m),object position z(m)
next b


`make machine gun nest target
t = 202
make object box t,30,5,10
color object t,RGB(90,90,90)
position object t,100,0,-100


`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(100),0,-200+rnd(100)
  while object collision(e,0) > 0
    position object e,100+rnd(100),0,-200+rnd(100)
  endwhile
next e

`make wave two (red)
  for e=100 to 120
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(200),0,-300+rnd(200)
    while object collision(e,0) > 0
      position object e,100+rnd(200),0,-300+rnd(200)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

do
rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left ", "time to victory", victorytimer(0)

if timeleft(0) > 0
gosub selection
endif





timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
victorytimer(0)= victorytimer(0)-1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "A second wave of enemys has been spotted on the horizon, time untill landing " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

if victorytimer(0)=<0
   set cursor 10,20: print "This is a great victory, without a beach-head here, the enemy will lose a valuable foot hold, you win the fight!"
endif

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e


for e=6 to 15
rem  if object collision(e,202)
  if object collision(e,0) = 202
      hide object e
   endif
next e

for e=100 to 120
rem  if object collision(e,202)
   if object collision(e,0) = 202
      hide object e
   endif
next e


for e=100 to 120
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=6 to 15
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

for e=100 to 120
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e


fire=1
for b=207 to 208
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 10
endif
rem if object collision(b,t)>0
  if object collision(b,0) = t
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)
endif
next b
sync
loop

return

That is the whole program, run it to see what objects I am talking about (red, blue, green etc..) Well that is all for now. Please do not tell me to buy nuclear glory's collision DLL, as I am not inclined to spend any money

Thank you.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 9th Nov 2004 13:43

Link

MP,
I can see your problem, and it looks like a tough cookie to crack.

I'm just going over your code, and it would be easier if you comment it a bit more. Especially the area's to do with collision ( as this is where the problem is ) so that we can follow the flow of the code a little easier.

Jess.

Team EOD :: Programmer/All-Round Nice Guy
Aust. Convention!

Back to top

Profile PM Email Website

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 10th Nov 2004 06:23 Edited at: 10th Nov 2004 06:36

Link

Quote: " MP,
I can see your problem, and it looks like a tough cookie to crack.

I'm just going over your code, and it would be easier if you comment it a bit more. Especially the area's to do with collision ( as this is where the problem is ) so that we can follow the flow of the code a little easier.
"

Ok I added some comments to my code so that it's easier to find things...

randomize timer()
set display mode 1024,768,16
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

`ARRAYS!
dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)
dim mover(120)
dim victorytimer(0)

`important variables
selection(0)=0
player(0)=1
timeleft(0)=2000
victorytimer(0)=1000
wavetime(0)=1000

rem the new mouse object to play with
make object cube 8000,10
position object 8000,100,0,100
set object collision to boxes 8000
color object 8000,RGB(128,128,0)
hide object 8000

`Camera positioning
position camera -100,100,-100
xrotate camera 90
position camera 100,300,0

`MAIN loop!!!!!!!!
do
set cursor 10,10: Print "Press Space bar to start level 1"

if spacekey()=1
    gosub level1
endif

sync
loop
end

rem ============================

`Wave 1 subroutine (sends the first set of red object upwards at a constant pace)
wave:
for e=6 to 15
  move object e,.1
next e
return

`Wave 2 subroutine (sends the second set of red objects upwards at a constant pace)
wave2:
for e=100 to 150
   move object e,.1
   next e
return
`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
`Selection code, allows you to select objects,and move them around "IMPORTANT"!!!!
`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
selection:
rem the new object selection code
rem -- here we move the user selection cube...
if object screen x(8000)=<mousex()
  position object 8000,object position x(8000)+4,object position y(8000),object position z(8000)
endif
if object screen x(8000)=>mousex()
  position object 8000,object position x(8000)-4,object position y(8000),object position z(8000)
endif
if object screen y(8000)=<mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)-4
endif
if object screen y(8000)=>mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
rem -- here we move any object selected by the user
    if selection(0)
      position object selection(0),object position x(8000),object position y(8000),object position z(8000)
    else
      t = object collision(8000,0)
rem -- here we test for all user movable objects...
      if t > 0 and t < 6
          selection(0) = t
      endif
      if t > 15 and t < 20
        selection(0) = t
      endif
      if t > 199 and t < 207
        selection(0) = t
      endif
    endif
  else
    selection(0) = 0
  endif
endif
return

`Beginning of the level 1 subroutine, everything pertaining to the level goes in here!!!!!!
level1:

`makes the blue objects, that kill the red objects.
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

`make barriers (white)
for t=204 to 206
make object box t,30,10,10
set object collision on t
position object t, 100+rnd(50), 0,100+rnd(50)
next t

rem make machine gun nest A
m= 201
make object cube m, 10
set object collision to boxes m
color object m,RGB(90,90,40)
Position object m,100,0,100

rem make bullets
for b=207 to 208
make object sphere b,2
next b
`positions the bullets in the machine gun.
for b=207 to 208
position object b,object position x(m),object position y(m),object position z(m)
next b

`make machine gun nest target
t = 202
make object box t,30,5,10
color object t,RGB(90,90,90)
position object t,100,0,-100

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(100),0,-200+rnd(100)
  while object collision(e,0) > 0
    position object e,100+rnd(100),0,-200+rnd(100)
  endwhile
next e

`make wave two (red)
  for e=100 to 120
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(200),0,-300+rnd(200)
    while object collision(e,0) > 0
      position object e,100+rnd(200),0,-300+rnd(200)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

do
rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left ", "time to victory", victorytimer(0)

`lets you manipulate the objects if the time is above 0!
if timeleft(0) > 0
gosub selection
endif

`timer!
timeleft(0)=timeleft(0)-1

`All that timing crap!
if timeleft(0)=<0
if player(0)=1
victorytimer(0)= victorytimer(0)-1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "A second wave of enemys has been spotted on the horizon, time untill landing " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

if victorytimer(0)=<0
   set cursor 10,20: print "This is a great victory, without a beach-head here, the enemy will lose a valuable foot hold, you win the fight!"
endif

`Collision for the first wave of enemies
for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`Collision between first wave and machine gun nest target (202)
for e=6 to 15
rem  if object collision(e,202)
  if object collision(e,0) = 202
      hide object e
   endif
next e

`collision between second wave and machine gun nest target (202)
for e=100 to 120
rem  if object collision(e,202)
   if object collision(e,0) = 202
      hide object e
   endif
next e

`collision for second wave
for e=100 to 120
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
`Checks for collision between wave 1, and the white barriers, and moves the red objects left or right if collision is present
for e=6 to 15
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

`Same thing as above, but moves the second wave left or right if they hit the barriers
for e=100 to 120
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

`Fires the bullet from the gun, towards the target.
fire=1
for b=207 to 208
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 10
endif
rem if object collision(b,t)>0
  if object collision(b,0) = t
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)
endif
next b
sync
loop

return

+ Code Snippet

randomize timer()
set display mode 1024,768,16
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

`ARRAYS!
dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)
dim mover(120)
dim victorytimer(0)


`important variables
selection(0)=0
player(0)=1
timeleft(0)=2000
victorytimer(0)=1000
wavetime(0)=1000

rem the new mouse object to play with
make object cube 8000,10
position object 8000,100,0,100
set object collision to boxes 8000
color object 8000,RGB(128,128,0)
hide object 8000

`Camera positioning
position camera -100,100,-100
xrotate camera 90
position camera 100,300,0

`MAIN loop!!!!!!!!
do
set cursor 10,10: Print "Press Space bar to start level 1"


if spacekey()=1
    gosub level1
endif

sync
loop
end

rem ============================

`Wave 1 subroutine (sends the first set of red object upwards at a constant pace)
wave:
for e=6 to 15
  move object e,.1
next e
return

`Wave 2 subroutine (sends the second set of red objects upwards at a constant pace)
wave2:
for e=100 to 150
   move object e,.1
   next e
return
`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
`Selection code, allows you to select objects,and move them around "IMPORTANT"!!!!
`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
selection:
rem the new object selection code
rem -- here we move the user selection cube...
if object screen x(8000)=<mousex()
  position object 8000,object position x(8000)+4,object position y(8000),object position z(8000)
endif
if object screen x(8000)=>mousex()
  position object 8000,object position x(8000)-4,object position y(8000),object position z(8000)
endif
if object screen y(8000)=<mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)-4
endif
if object screen y(8000)=>mousey()
  position object 8000,object position x(8000),object position y(8000),object position z(8000)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
rem -- here we move any object selected by the user
    if selection(0)
      position object selection(0),object position x(8000),object position y(8000),object position z(8000)
    else
      t = object collision(8000,0)
rem -- here we test for all user movable objects...
      if t > 0 and t < 6
          selection(0) = t
      endif
      if t > 15 and t < 20
        selection(0) = t
      endif
      if t > 199 and t < 207
        selection(0) = t
      endif
    endif
  else
    selection(0) = 0
  endif
endif
return


`Beginning of the level 1 subroutine, everything pertaining to the level goes in here!!!!!!
level1:


`makes the blue objects, that kill the red objects.
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

`make barriers (white)
for t=204 to 206
make object box t,30,10,10
set object collision on t
position object t, 100+rnd(50), 0,100+rnd(50)
next t

rem make machine gun nest A
m= 201
make object cube m, 10
set object collision to boxes m
color object m,RGB(90,90,40)
Position object m,100,0,100

rem make bullets
for b=207 to 208
make object sphere b,2
next b
`positions the bullets in the machine gun.
for b=207 to 208
position object b,object position x(m),object position y(m),object position z(m)
next b


`make machine gun nest target
t = 202
make object box t,30,5,10
color object t,RGB(90,90,90)
position object t,100,0,-100


`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(100),0,-200+rnd(100)
  while object collision(e,0) > 0
    position object e,100+rnd(100),0,-200+rnd(100)
  endwhile
next e

`make wave two (red)
  for e=100 to 120
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(200),0,-300+rnd(200)
    while object collision(e,0) > 0
      position object e,100+rnd(200),0,-300+rnd(200)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

do
rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left ", "time to victory", victorytimer(0)

`lets you manipulate the objects if the time is above 0!
if timeleft(0) > 0
gosub selection
endif




`timer!
timeleft(0)=timeleft(0)-1

`All that timing crap!
if timeleft(0)=<0
if player(0)=1
victorytimer(0)= victorytimer(0)-1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "A second wave of enemys has been spotted on the horizon, time untill landing " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

if victorytimer(0)=<0
   set cursor 10,20: print "This is a great victory, without a beach-head here, the enemy will lose a valuable foot hold, you win the fight!"
endif

`Collision for the first wave of enemies
for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`Collision between first wave and machine gun nest target (202)
for e=6 to 15
rem  if object collision(e,202)
  if object collision(e,0) = 202
      hide object e
   endif
next e

`collision between second wave and machine gun nest target (202)
for e=100 to 120
rem  if object collision(e,202)
   if object collision(e,0) = 202
      hide object e
   endif
next e

`collision for second wave
for e=100 to 120
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
`Checks for collision between wave 1, and the white barriers, and moves the red objects left or right if collision is present
for e=6 to 15
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

`Same thing as above, but moves the second wave left or right if they hit the barriers
for e=100 to 120
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

`Fires the bullet from the gun, towards the target.
fire=1
for b=207 to 208
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 10
endif
rem if object collision(b,t)>0
  if object collision(b,0) = t
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)
endif
next b
sync
loop

return

Here is the collision code, seperated from the main code....

Collision for the first wave of enemies
for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`Collision between first wave and machine gun nest target (202)
for e=6 to 15
rem  if object collision(e,202)
  if object collision(e,0) = 202
      hide object e
   endif
next e

`collision between second wave and machine gun nest target (202)
for e=100 to 120
rem  if object collision(e,202)
   if object collision(e,0) = 202
      hide object e
   endif
next e

`collision for second wave
for e=100 to 120
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
`Checks for collision between wave 1, and the white barriers, and moves the red objects left or right if collision is present
for e=6 to 15
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

`Same thing as above, but moves the second wave left or right if they hit the barriers
for e=100 to 120
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

+ Code Snippet

Collision for the first wave of enemies
for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`Collision between first wave and machine gun nest target (202)
for e=6 to 15
rem  if object collision(e,202)
  if object collision(e,0) = 202
      hide object e
   endif
next e

`collision between second wave and machine gun nest target (202)
for e=100 to 120
rem  if object collision(e,202)
   if object collision(e,0) = 202
      hide object e
   endif
next e

`collision for second wave
for e=100 to 120
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

`!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
`Checks for collision between wave 1, and the white barriers, and moves the red objects left or right if collision is present
for e=6 to 15
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

`Same thing as above, but moves the second wave left or right if they hit the barriers
for e=100 to 120
  t = object collision(e,0)
  if t > 203 and t < 207
    if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
next e

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 10th Nov 2004 14:01

Link

MP,
Sweet, Now I can understand the flow of the code better, and I have spotted your problem.

When you are checking for collision, you are checking the "e" object ( in all your checks ) against, all other objects.
Now, as you said, when the two red objects collide, it effectively cancels out all other collision.

This is because when DBC does the collision checking, it first checks if object 'e' is colliding with object 1, then if object 'e' is colliding with object 2, and so-on untill there are no more objects to be checked, or if it finds a collision.

Now, since your red objects are between 6 and 15, and your white objects are between 203 and 207, it follows the collision checking routine as I said before, it'll check collision between 6 and 15 before it checks between 203 and 207. This means that if it finds a collision with one of the red objects, then it will return that number first, as it will come across that object that it is coliding with first.

Ok, so, you understand all that? I hope so.

To fix it, what you want to do, is do two For...Next loops, instead of one.

You want something like this;

+ Code Snippet

For e = 6 To 15
   For i = 205 To 206
      If Object Collision(e,i)
         `Do whatever to do when white hit's red here
      EndIf
   Next i
Next e

Do you understand that one?
If you do, then I suggest that you change all of your collision code to something like this now, to avoid any future mess-ups with the collision.

If not, I can explain it a bit better, if you like?

Jess.

Team EOD :: Programmer/All-Round Nice Guy
Aust. Convention!

Back to top

Profile PM Email Website

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 11th Nov 2004 03:53

Link

I understand what your saying, but I am not exactly sure how to apply it. I did what you said, and my collision code for the enemies and barriers looks like this now....

+ Code Snippet

For e = 6 To 15
   For i = 205 To 206
      If Object Collision(e,i)
         `Do whatever to do when white hit's red here
  if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
   Next i
Next e

`Same thing as above, but moves the second wave left or right if they hit the barriers
For e = 100 To 120
   For i = 205 To 206
      If Object Collision(e,i)
         `Do whatever to do when white hit's red here
  if mover(e) = 0
      if rnd(10) > 5
        mover(e) = 5
      else
        mover(e) = -5
      endif
    endif
   position object e, object position x(e)+mover(e), object position y(e), object position z(e)
  else
    mover(e) = 0
  endif
   Next i
Next e

But I am still getting collision problems, in fact alot of the time, the red objects just pass through the white ones.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Jess T

Retired Moderator

21

Years of Service

User Offline

Joined: 20th Sep 2003

Location: Over There... Kablam!

Posted: 11th Nov 2004 08:32

Link

Alrighty,
First up, I made a mistake in the code I wrote, as I was writing it real fast last night.

It should be For i = 204 To 207, as the white objects go from 204 to 207, right?

Now, for the other collision problems, explain what's happening, and I should be able to see where it's going wrong

Jess.

Team EOD :: Programmer/All-Round Nice Guy
Aust. Convention!

Back to top

Profile PM Email Website

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 12th Nov 2004 06:03

Link

Ok, well I have a bit of a problem, now when two red objects move into each other, they don't cancell collision out, but rather just kill themselves. This should not happen, as both objects should remain seperate entities that keep moving up untill they come in contact with something that is supposed to kill them. So what should I do? I was thinking of making some kind of collision statement, that keeps two red objects from moving into each other, and thus keeping them seperate, but I am not sure how I would go about this. Any suggestians?

Oh and by the way, thanks for the help so far!

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Louiz ofRohr

20

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 12th Nov 2004 07:02

Link

A simple, light and beautiful collision math... Real collision with real limits... That isn't "if object collision(1,3)=1 THEN result"... Take a look at this simple box collision...

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 13th Nov 2004 11:39

Link

Huh?? I Don't understand what you want me to look at.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Louiz ofRohr

20

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 16th Nov 2004 03:40

Link

Sorry man, the code is here:

rem Texture for boxes (forget it)
ink RGB(0,0,0),0
box 0,0,100,100
ink RGB(150,150,150),0
y#=0 : x#=0
for l=1 to 20
line x#,y#,100,y#
y#=y#+5
next l
for l=1 to 20
line x#,0,x#,100
x#=x#+5
next l
get image 1, 0,0,100,100
ink RGB(0,100,0),0
box 0,0,100,100
ink RGB(0,120,0),0
for l=1 to 100
dot rnd(100),rnd(100)
next l
ink RGB(0,50,0),0
for l=1 to 100
dot rnd(90),rnd(90)
next l
get image 2, 0,0,100,100
cls

sync on : sync rate 60
fog on : fog distance 1000 : fog color 0
backdrop on : color backdrop 0
hide mouse

make matrix 1, 3000,3000,30,30
prepare matrix texture 1, 2, 1, 1

`o personagem
make object sphere 1, 50 : color object 1, RGB(200,0,0)
position object 1, 2500,20,2500

`the boxes of collision
for obj=2 to 11
make object box obj, rnd(50)+20, 50, rnd(50)+20
texture object obj, 1
ghost object on obj
position object obj, rnd(3000), 30, rnd(3000)
next obj

DO
if upkey()=1 then move object 1,5
if downkey()=1 then move object 1,-5
if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-5)
if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+5)

REM COLLiSiONS WiTH THE 10 BOXES AND THE STAGE LiMiTS

REM COLLiSiONS WiTH THE 10 BOXES AND THE STAGE LiMiTS

x#=object position x(1) : z#=object position z(1)
for parede=2 to 11
xe#=object size x(parede)/2 : ze#=object size z(parede)/2
xp#=object position x(parede) : zp#=object position z(parede)
`please, note that the "20" is a symbolic value for (object size 1)/2 and the "25" is a distance between the 2 limitations for complete 4sided collision

if ((x#>xp#-(xe#+20)) and (x#<xp#+(xe#+20)) and (z#>zp#)):
if z#<zp#+(ze#+20) THEN z#=zp#+(ze#+20)
endif
if ((x#>xp#-(xe#+20)) and (x#<xp#+(xe#+20)) and (z#<zp#)):
if z#>zp#-(ze#+20) THEN z#=zp#-(ze#+20)
endif
if ((z#>zp#-(ze#+20)) and (z#<zp#+(ze#+20)) and (x#>xp#)):
if x#<xp#+(xe#+25) THEN x#=xp#+(xe#+25)
endif
if ((z#>zp#-(ze#+20)) and (z#<zp#+(ze#+20)) and (x#<xp#)):
if x#>xp#-(xe#+25) THEN x#=xp#-(xe#+25)
endif
next parede
position object 1, x#,20,z#
REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

xa#=object angle y(1)
set camera to follow x#,100,z#,xa#,100,100,3.2,1
xrotate camera 15
sync
LOOP

The worst foe lies within the self...

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Please help me, I have a problem with Collision.