My collision box doesn't work!!?? HELP!!

Author

Message

gopherbro 94

17

Years of Service

User Offline

Joined: 21st Dec 2008

Location:

Posted: 5th Jan 2009 02:15 Edited at: 5th Jan 2009 02:16

Link

I am trying to make a collision box for this box. Although when I start the game I can go right through it. I understand the make object collision box command. But it doesnt work!!!!!!!!!!!!!!! HElp, my game is due on monday and it is Sunday. I need a fast answer!

code for box

+ Code Snippet

make object box 3,50,50,50
color object 3,rgb(100,210,100)
position object 3,-300,25,-100
make object collision box 3,-25,-25,-25,25,25,25,0

code for the player

+ Code Snippet

make object cylinder 1,50
scale object 1,100,140,100
texture object 1,1
position object 1,0,35,0
make object collision box 1,-25,-35,-25,25,35,25,0

Back to top

Profile PM Email

Yodaman Jer

User Banned

Posted: 5th Jan 2009 02:44

Link

Do you have a main program loop, variables for the values in which the player's gravity and position are stored and such? Also, to make an object use box collision,

+ Code Snippet

make object box 2,4,4,4 : position object 2,0,0,0 
set object collision on 2
make object collision box 2,-2,-2,-2,2,2,2,0

I was just using that in my program, so I copied/pasted it here.

You really need to provide much more information before anyone can help you out.

http://forum.thegamecreators.com/?m=forum_view&t=138753&b=19

Back to top

Profile

gopherbro 94

17

Years of Service

User Offline

Joined: 21st Dec 2008

Location:

Posted: 5th Jan 2009 03:11 Edited at: 5th Jan 2009 03:12

Link

It tried the set object collision on 3, but that still did not work. My character goes all the way through it. For some reason it wont let me post the entire code, so ill put the gravity and player positions down. * also, there are steps in the game and spheres that the collision box works for. For some reason it just does not like my box.

player:

+ Code Snippet

make object cylinder 1,50
scale object 1,100,140,100
texture object 1,1
position object 1,0,35,0
make object collision box 1,-25,-35,-25,25,35,25,0

make object cylinder 99,50

make mesh from object 1,99
delete object 99

add limb 1,1,1
offset limb 1,1,0,25,0
scale limb 1,1,100,1,100
texture limb 1,1,99

Gravity:

Rem Gravity Effects

if MyAcceleration# = 0.0 : rem If I am not moving up or down
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I am touching something
               1pY# = 1pY# - Gravity# : rem Look below me
               position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
               if object collision(1,CheckObject) = 0 : rem If I feel only air
                  EmptySpace = EmptySpace + 1 : rem Mark up a free space
               endif : rem I am touching something, but it is not below me
               1pY# = 1pY# + Gravity# : rem Look up
               position object 1, 1pX#,1pY#,1pZ# : rem Move back
            else : rem If I am not touching anything
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I have checked all the objects and nothing is below me
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity begins to pull
         endif
      endif

if MyAcceleration# <> 0.0 : rem If I am moving
         1pY# = 1pY# + MyAcceleration# : rem Find where I am going
         position object 1, 1pX#,1pY#,1pZ# : rem Put me there
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I hit an object
               1pY# = 1pY# - MyAcceleration# : rem Find where I was
               position object 1, 1pX#,1pY#,1pZ# : rem Put me back
               MyAcceleration# = 0.0 : rem Stop me from moving
            else : rem If the space I am going to is just air
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I have checked all the objects and nothing is in my path
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity pulls more
         endif
      endif

+ Code Snippet

Rem Gravity Effects

      if MyAcceleration# = 0.0 : rem If I am not moving up or down
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I am touching something
               1pY# = 1pY# - Gravity# : rem Look below me
               position object 1, 1pX#,1pY#,1pZ# : rem Feel below me
               if object collision(1,CheckObject) = 0 : rem If I feel only air
                  EmptySpace = EmptySpace + 1 : rem Mark up a free space
               endif : rem I am touching something, but it is not below me
               1pY# = 1pY# + Gravity# : rem Look up
               position object 1, 1pX#,1pY#,1pZ# : rem Move back
            else : rem If I am not touching anything
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I have checked all the objects and nothing is below me
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity begins to pull
         endif
      endif

      if MyAcceleration# <> 0.0 : rem If I am moving
         1pY# = 1pY# + MyAcceleration# : rem Find where I am going
         position object 1, 1pX#,1pY#,1pZ# : rem Put me there
         EmptySpace = 0 : ObjectsChecked = 0 : rem Get ready to start checking collisions
         for CheckObject = 6 to 12 : rem Check the floor and every step object
            if object collision(1,CheckObject)>0 : rem If I hit an object
               1pY# = 1pY# - MyAcceleration# : rem Find where I was
               position object 1, 1pX#,1pY#,1pZ# : rem Put me back
               MyAcceleration# = 0.0 : rem Stop me from moving
            else : rem If the space I am going to is just air
               EmptySpace = EmptySpace + 1 : rem rem Mark up a free space
            endif
            ObjectsChecked = ObjectsChecked + 1 : rem Done with that one!
         next CheckObject : rem On to the next one!
         if EmptySpace = ObjectsChecked : rem If I have checked all the objects and nothing is in my path
            MyAcceleration# = MyAcceleration# - Gravity# : rem Gravity pulls more
         endif
      endif

Back to top

Profile PM Email

BN2 Productions

22

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 5th Jan 2009 06:34

Link

It looks like you update the 1py# variable in the checks and position it there if you hit something, essentially saying:

If you hit something position yourself where you are. Then take input, move again and if you hit something, don't move, take input....etc etc. This makes nothing change. What you would need to do is have it place you at where you WERE BEFORE moving.

Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / My collision box doesn't work!!?? HELP!!