Multiple Collision plz some help >.<

Author

Message

Mit surugi

19

Years of Service

User Offline

Joined: 13th Jun 2007

Location:

Posted: 13th Jun 2007 19:00

Link

I\'m making a game for school, yet i have stumbled on a problem :\'(

At the moment i\'m putting Collisions in the game, though i can\'t do: If Object Collision (x,0)... because then i can\'t seem to move...
So i was trying multiple Collision codes...
DB only seems to act acording to the first Collision line of code :S

+ Code Snippet

If Object collision(99,22)>0 then position object 99,X#,0,Z#
If Object collision(99,28)>0 then position object 99,X#,0,Z#
If Object collision(99,29)>0 then position object 99,X#,0,Z#

With this object 99 only stops when hitting 22...
It just goes trough 28 and 29... :S
Does any1 know how to fix this?

Back to top

Profile PM

Mit surugi

19

Years of Service

User Offline

Joined: 13th Jun 2007

Location:

Posted: 14th Jun 2007 17:56

Link

I have tried:

+ Code Snippet

If Object collision(99,22)>0 or Object collision(99,28)>0 then position object 99,X#,0,Z#

Though it still only makes me stop when i hit object 22

http://forum.thegamecreators.com/?m=forum_view&t=85387&b=10
I've also tried the suggest made here, but it doesnt seem to work for me

Does anyone know how to do it? or will i have to use very difficult pieces of code to determin where an object is, plus that the charrecter can't walk there?

Back to top

Profile PM

Link102

21

Years of Service

User Offline

Joined: 1st Dec 2004

Location: On your head, weeeeee!

Posted: 14th Jun 2007 20:58

Link

Did you try

+ Code Snippet

If Object collision(99,0)=22 then position object 99,X#,0,Z#
If Object collision(99,0)=28 then position object 99,X#,0,Z#
If Object collision(99,0)=29 then position object 99,X#,0,Z#

Did you get the object number correct?

Try

+ Code Snippet

set cursor 0,0:print Object collision(99,0)

somewhere in your do loop.

If that fail you should post more of your code becouse we can't help you much with this

Don't look at my sig!

Back to top

Profile PM

Mit surugi

19

Years of Service

User Offline

Joined: 13th Jun 2007

Location:

Posted: 15th Jun 2007 08:39

Link

These are my full lines of code:

Sync On
Sync Rate 30
Backdrop on
Set camera range 1,2000
Color Backdrop RGB(4,1,69)
Hide Mouse

Fog on
Fog distance 1900
Fog color RGB(4,1,69)

Load image "Images/gras.bmp",1
Load image "Images/Broek.bmp",2
Load image "Images/Gezicht.bmp",3
Load Image "Images/Rock.bmp",4
Load Image "Images/Bosrand.bmp",5
Load Image "Images/Cave.bmp",6
Load Image "Images/Grot.bmp",7
Load Image "Images/Lazor.bmp",8
Load Image "Images/TehEntrance.bmp",9

Load object "Images/WOMAN3.x",97

Rem make matrix
Make matrix 1,2500,3500,25,35
Make matrix 2,2500,2500,25,25

Rem Make Trow Brick
Make Object Cylinder 96,2
Texture object 96,8
XRotate Object 96,90
Fix object pivot 96
Scale object 96,100,100,500
Hide Object 96

Make Object Cylinder 95,2
Texture object 95,8
XRotate Object 95,90
Scale object 95,100,100,500
Hide Object 95

Rem texture matrix
Prepare matrix texture 1,7,1,1
Fill matrix 1,0,1

Prepare matrix texture 2,1,1,1
Fill matrix 2,0,1

Rem Make player pawn
Make object sphere 99,50
Texture object 99,2
position object 99,100,0,100
Scale Object 99,60,100,60

Make object sphere 98,20
Texture object 98,3
position object 98,100,70,100
Scale object 98,90,99,99

Rem Make bricks
Set object collision to spheres 99

For x = 1 to 20
   Make object Box x,15,15,15
   Texture object x,4
   Position Object x,RND(2500),30,RND(2500)
   Set object collision to boxes x
   If Object collision(99,x)>0 then position object 99,X#,0,Z#
   If Object collision(99,x)>0 then BC#=BC#+1
next x

Rem Make Gwen
Position Object 97,100,50,3000
Scale object 97,500,500,500

Rem make walls
Make Object box 21,2500,250,3
Make Object box 22,2000,250,3
Make Object box 23,3,250,2500
Make Object box 24,3,250,2500
Make Object box 25,2500,250,3
Make Object box 26,3,250,1000
Make Object box 27,3,250,1000
Make Object box 28,2000,250,3
Make Object box 29,500,260,100
Texture Object 21,5
Texture Object 22,5
Texture Object 23,5
Texture Object 24,5
Texture Object 25,6
Texture Object 26,6
Texture Object 27,6
Texture Object 28,6
Texture Object 29,9
Position Object 21,1250,100,0
Position Object 22,1000,100,2498
Position Object 23,0,100,1250
Position Object 24,2500,100,1250
Position Object 25,1250,100,3500
Position Object 26,2500,100,3000
Position Object 27,0,100,3000
Position Object 28,1000,100,2502
Position Object 29,2250,110,2500

Set object collision to boxes 22
Set object collision to boxes 28
Set object collision to boxes 29

rem Randomize the matrix
randomize matrix 1,20
Randomize matrix 2,35

B1$="By pressing Spacebar u can shoot Lazors from your eyes"
B2$="Find the entrance of the cave!"
B3$="After that Kill the evil Gwen!"
B4$="Use them Arrows to move!"
B5$="Congratulations you have saved the world!"
B6$="Press escape to exit!"

Rem Main loop
Do
   set cursor 0,0
	Print B4$
   Print B1$
   Print B2$
   Print B3$

oldX#=X#
   oldY#=Y#
   oldZ#=Z#

Rem  Store Object angle
 ABY# = object angle Y(99)
 Yrotate object 97,270

if Spacekey()=1 and BulletLife=0 
    Position object 96,X#,Y#+50,Z# 
    Set object to camera orientation 96
    BulletLife =25 
    show object 96 
 Endif

If BulletLife > 0 
    Dec BulletLife 
    Move object 96,15
	 If XL#<120 and XL#>80 and ZL#<3020 and ZL#>2980
		Ghost Object on 97
		Set Cursor 0,0
		B1$="Congratulations You have saved the world!!"
		B2$="Press Escape to exit!!"
		B3$=""
		B4$=""
	 Endif
    if BulletLife = 0 then Hide object 96 
 Endif

Rem  Control input for camera
 If Upkey()=1
  XTest# = Newxvalue(X#,ABY#,20)
  ZTest# = Newzvalue(Z#,ABY#,20)
  If XTest#>15 and XTest#<2485 and ZTest#>15 and ZTest#<3485
   Move object 99,10
  Endif
 Endif

If Downkey()=1
  XTest# = Newxvalue(X#,ABY#,-20)
  ZTest# = Newzvalue(Z#,ABY#,-20)
  If XTest#>15 and XTest#<2485 and ZTest#>15 and ZTest#<3485
   Move object 99,-10
  Endif
 Endif

If Leftkey()=1 then Yrotate object 99,Wrapvalue(ABY#-5)
 If Rightkey()=1 then Yrotate object 99,Wrapvalue(ABY#+5)
 If Leftkey()=1 then Yrotate object 98,Wrapvalue(ABY#-5)
 If Rightkey()=1 then Yrotate object 98,Wrapvalue(ABY#+5)

Rem Collisions
If Object collision(99,22)>0 or Object collision(99,28)>0 then position object 99,X#,0,Z#

If Escapekey()=1 then Exit

X# = Object position x(99)
 Z# = Object position z(99)
 Y# = Get Ground Height(1,X#,Z#)
 XL#= Object position x(96)
 ZL#= Object position z(96)
 YL#= Get Ground Height(1,X#,Z#)

Position object 99,X#,Y#+12.5,Z#
 Position object 98,X#,Y#+42.5,Z#

CameraZ# = Newzvalue(Z#,ABY#-180,100)
 CameraX# = Newxvalue(X#,ABY#-180,100)

Position camera CameraX#,Y#+40,CameraZ#

Point camera X#,Y#+35,Z#

Rem Refresh Screen
 Sync
Loop

+ Code Snippet

Sync On
Sync Rate 30
Backdrop on
Set camera range 1,2000
Color Backdrop RGB(4,1,69)
Hide Mouse

Fog on
Fog distance 1900
Fog color RGB(4,1,69)

Load image "Images/gras.bmp",1
Load image "Images/Broek.bmp",2
Load image "Images/Gezicht.bmp",3
Load Image "Images/Rock.bmp",4
Load Image "Images/Bosrand.bmp",5
Load Image "Images/Cave.bmp",6
Load Image "Images/Grot.bmp",7
Load Image "Images/Lazor.bmp",8
Load Image "Images/TehEntrance.bmp",9

Load object "Images/WOMAN3.x",97

Rem make matrix
Make matrix 1,2500,3500,25,35
Make matrix 2,2500,2500,25,25

Rem Make Trow Brick
Make Object Cylinder 96,2
Texture object 96,8
XRotate Object 96,90
Fix object pivot 96
Scale object 96,100,100,500
Hide Object 96

Make Object Cylinder 95,2
Texture object 95,8
XRotate Object 95,90
Scale object 95,100,100,500
Hide Object 95

Rem texture matrix
Prepare matrix texture 1,7,1,1
Fill matrix 1,0,1

Prepare matrix texture 2,1,1,1
Fill matrix 2,0,1

Rem Make player pawn
Make object sphere 99,50
Texture object 99,2
position object 99,100,0,100
Scale Object 99,60,100,60

Make object sphere 98,20
Texture object 98,3
position object 98,100,70,100
Scale object 98,90,99,99


Rem Make bricks
Set object collision to spheres 99

For x = 1 to 20
   Make object Box x,15,15,15
   Texture object x,4
   Position Object x,RND(2500),30,RND(2500)
   Set object collision to boxes x
   If Object collision(99,x)>0 then position object 99,X#,0,Z#
   If Object collision(99,x)>0 then BC#=BC#+1
next x

Rem Make Gwen
Position Object 97,100,50,3000
Scale object 97,500,500,500

Rem make walls
Make Object box 21,2500,250,3
Make Object box 22,2000,250,3
Make Object box 23,3,250,2500
Make Object box 24,3,250,2500
Make Object box 25,2500,250,3
Make Object box 26,3,250,1000
Make Object box 27,3,250,1000
Make Object box 28,2000,250,3
Make Object box 29,500,260,100
Texture Object 21,5
Texture Object 22,5
Texture Object 23,5
Texture Object 24,5
Texture Object 25,6
Texture Object 26,6
Texture Object 27,6
Texture Object 28,6
Texture Object 29,9
Position Object 21,1250,100,0
Position Object 22,1000,100,2498
Position Object 23,0,100,1250
Position Object 24,2500,100,1250
Position Object 25,1250,100,3500
Position Object 26,2500,100,3000
Position Object 27,0,100,3000
Position Object 28,1000,100,2502
Position Object 29,2250,110,2500

Set object collision to boxes 22
Set object collision to boxes 28
Set object collision to boxes 29

rem Randomize the matrix
randomize matrix 1,20
Randomize matrix 2,35

B1$="By pressing Spacebar u can shoot Lazors from your eyes"
B2$="Find the entrance of the cave!"
B3$="After that Kill the evil Gwen!"
B4$="Use them Arrows to move!"
B5$="Congratulations you have saved the world!"
B6$="Press escape to exit!"

Rem Main loop
Do
   set cursor 0,0
	Print B4$
   Print B1$
   Print B2$
   Print B3$

   oldX#=X#
   oldY#=Y#
   oldZ#=Z#


 Rem  Store Object angle
 ABY# = object angle Y(99)
 Yrotate object 97,270

  if Spacekey()=1 and BulletLife=0 
    Position object 96,X#,Y#+50,Z# 
    Set object to camera orientation 96
    BulletLife =25 
    show object 96 
 Endif 

 If BulletLife > 0 
    Dec BulletLife 
    Move object 96,15
	 If XL#<120 and XL#>80 and ZL#<3020 and ZL#>2980
		Ghost Object on 97
		Set Cursor 0,0
		B1$="Congratulations You have saved the world!!"
		B2$="Press Escape to exit!!"
		B3$=""
		B4$=""
	 Endif
    if BulletLife = 0 then Hide object 96 
 Endif 

 Rem  Control input for camera
 If Upkey()=1
  XTest# = Newxvalue(X#,ABY#,20)
  ZTest# = Newzvalue(Z#,ABY#,20)
  If XTest#>15 and XTest#<2485 and ZTest#>15 and ZTest#<3485
   Move object 99,10
  Endif
 Endif



 If Downkey()=1
  XTest# = Newxvalue(X#,ABY#,-20)
  ZTest# = Newzvalue(Z#,ABY#,-20)
  If XTest#>15 and XTest#<2485 and ZTest#>15 and ZTest#<3485
   Move object 99,-10
  Endif
 Endif

 If Leftkey()=1 then Yrotate object 99,Wrapvalue(ABY#-5)
 If Rightkey()=1 then Yrotate object 99,Wrapvalue(ABY#+5)
 If Leftkey()=1 then Yrotate object 98,Wrapvalue(ABY#-5)
 If Rightkey()=1 then Yrotate object 98,Wrapvalue(ABY#+5)

Rem Collisions
If Object collision(99,22)>0 or Object collision(99,28)>0 then position object 99,X#,0,Z#

If Escapekey()=1 then Exit

 X# = Object position x(99)
 Z# = Object position z(99)
 Y# = Get Ground Height(1,X#,Z#)
 XL#= Object position x(96)
 ZL#= Object position z(96)
 YL#= Get Ground Height(1,X#,Z#)

 Position object 99,X#,Y#+12.5,Z#
 Position object 98,X#,Y#+42.5,Z#

 CameraZ# = Newzvalue(Z#,ABY#-180,100)
 CameraX# = Newxvalue(X#,ABY#-180,100)

 Position camera CameraX#,Y#+40,CameraZ#

 Point camera X#,Y#+35,Z#


 Rem Refresh Screen
 Sync
Loop

As far as i know the object numbers are correct

Back to top

Profile PM

Latch

19

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 16th Jun 2007 00:18

Link

I haven't raked through all of your code so this may be in there - any and every object that you want collidible has to have it's collision set to either boxes, spheres or polygons before it is used in collision. While you can still get collision detection without having set them, it becomes unpredictable and will detect sometimes and other times it won't.

Ok looked through it now - The not moving problem has to do with the two spheres stacked on top of each other. The way you have things set up, if you test for collision with code such as

if object collision(99,x) or object collision(98,x)

Your object won't move because the two objects are colliding with each other (the head of the snowman and the body of the snowman) and your code says if there is collision, position the object a x,y,z which is where it is standing at that moment.

You can correct this by turning off the collision for object 98 and 99 (the head and the body) and putting an invisible collision box around them - or (making sure collision is off for object 98 and 99)create an object such as a cube, box, sphere or whatever, set this object's collision on (to boxes ,spheres or whatever) hide this object, and position it with your main player object. Use collision detection for this newly created invisible object. This way you avoid the constant collision between the two objects that is making up you main character.

Enjoy your day.

Back to top

Profile PM

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Jun 2007 03:10

Link

Hallo Mit surugi ....try something like this:

+ Code Snippet

for i= 1 to 100
if object exist(i)
if object collision(99,i)>0 then position object i,x#,0,z#
endif
next i

oh my god

Back to top

Profile PM Email

Mit surugi

19

Years of Service

User Offline

Joined: 13th Jun 2007

Location:

Posted: 16th Jun 2007 12:13

Link

Latch i've tried what u said, moved the head up so they wouldnt hit eacht other, by changing this:

+ Code Snippet

If Object collision(99,22)>0 or Object collision(99,28)>0 then position object 99,X#,0,Z#

 Position object 99,X#,Y#+12.5,Z#
 Position object 98,X#,Y#+42.5,Z#

+ Code Snippet

Into:
If Object collision(99,22)>0 then position object 99,X#,0,Z#
If Object collision(99,28)>0 then position object 99,X#,0,Z#
If Object collision(99,29)>0 then position object 99,X#,0,Z#

 Position object 99,X#,Y#+12.5,Z#
 Position object 98,X#,Y#+60,Z#

But still could move trough object 29 :S

@Chafari
about to try your idea

Back to top

Profile PM

Mit surugi

19

Years of Service

User Offline

Joined: 13th Jun 2007

Location:

Posted: 16th Jun 2007 13:04

Link

@ Latch
I've raised the head so they dont collide, the put this line of code in:
If Object collision(99,0)>0 then position object 99,X#,0,Z#
[/Code]
And found out the head was making me stop here ^^ tnx

Tough i still wonder why it wont read multiple line of Code with Collision, because i wanted to be able to pick up the bricks, and since it only acts towards the first line of Collision i can't think of an other way of pickin them up :S

@Chafari
Now i can walk trough everything xD, Oh well tnx though

Back to top

Profile PM

Mit surugi

19

Years of Service

User Offline

Joined: 13th Jun 2007

Location:

Posted: 17th Jun 2007 13:19

Link

To simplefy things, i've reduced the code to only neccesarry things (by copying the Tutorial collision text)

Why wont this code work to full potential?:

Rem Make sphere 
       Rem Setup sync 
      Sync On 
      Sync Rate 30

Rem Make Cubes and place randomly 
      For x = 1 to 5 
          Make object cube x,100 
          Position object x,Rnd(2000),0,Rnd(2000) 
          Set object collision to boxes x 
      Next x

Rem Make sphere 
      Make object sphere 10,50 
      Position object 10,-100,0,-100 
      Set object collision to spheres 10

Rem Main loop 
      Do 
         Rem  Store Object angle Y in aY# 
         aY# = Object angle Y(10)

Rem  Control input for camera 
         If Upkey()=1 then Move object 10,10 
         If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5) 
         If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)

Rem Detect collision 
         If Object collision(10,1)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,2)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,3)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,4)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,5)>0 then position object 10,X#,0,Z#

Rem get player object position and store in X# and Z# 
         X# = Object position x(10) 
         Z# = Object position z(10)

Rem get new camera position and store in cZ# and cX# 
         cZ# = Newzvalue(Z#,aY#-180,100) 
         cX# = Newxvalue(X#,aY#-180,100)

Rem position camera 
         Position Camera cX#,75,cZ#

Rem point the camera at the player object 
         Point camera X#,25,Z#

Rem Refresh Screen 
         Sync

Loop

+ Code Snippet


      Rem Make sphere 
       Rem Setup sync 
      Sync On 
      Sync Rate 30 

      Rem Make Cubes and place randomly 
      For x = 1 to 5 
          Make object cube x,100 
          Position object x,Rnd(2000),0,Rnd(2000) 
          Set object collision to boxes x 
      Next x 

      Rem Make sphere 
      Make object sphere 10,50 
      Position object 10,-100,0,-100 
      Set object collision to spheres 10 

      Rem Main loop 
      Do 
         Rem  Store Object angle Y in aY# 
         aY# = Object angle Y(10) 

         Rem  Control input for camera 
         If Upkey()=1 then Move object 10,10 
         If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5) 
         If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5) 

         Rem Detect collision 
         If Object collision(10,1)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,2)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,3)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,4)>0 then position object 10,X#,0,Z# 
	      If Object collision(10,5)>0 then position object 10,X#,0,Z# 


         Rem get player object position and store in X# and Z# 
         X# = Object position x(10) 
         Z# = Object position z(10) 

         Rem get new camera position and store in cZ# and cX# 
         cZ# = Newzvalue(Z#,aY#-180,100) 
         cX# = Newxvalue(X#,aY#-180,100) 

         Rem position camera 
         Position Camera cX#,75,cZ# 

                    Rem point the camera at the player object 
         Point camera X#,25,Z# 

         Rem Refresh Screen 
         Sync 

      Loop

It only stops me at 1 box, box number 1...
(thats basicly what i've been asking for those just jumping in)

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Multiple Collision plz some help >.<

Sorry your browser is not supported!

DarkBASIC Discussion / Multiple Collision plz some help &gt;.&lt;

DarkBASIC Discussion / Multiple Collision plz some help >.<