Collision and What Happens When - GameCreators Forum

Author

Message

Sir_Herbert

12

Years of Service

User Offline

Joined: 6th Nov 2013

Location: The InterWebz

Posted: 16th Jan 2014 19:19

Link

I am trying to set a collision on my buildings in my world. I am trying to get it so when my object 1 collides with them that you can't move through them. I am also no to sure if I have my collision boxes set up correctly. They collision boxes can be found in the make building section towards the bottom. Thanks

REM edutainment
REM by abbas and sam
REM created 12/2/13 10:11 a.m.

autocam off
hide mouse

rem ****____****____title intro thing____****____****

center text 320,240, "Welcome to a Friend in Need"
      ink rgb(0,20,255),0
      center text 321,241, "Welcome to a Friend in Need"
      ink rgb(255,255,255),0
      center text 320,260, "A Game About Transfering Energy"
      ink rgb(0,20,255),0
      center text 321,261, "A Game About Transfering Energy"
      ink rgb(255,255,255),0
      center text 320,280, "Press [A] to Continue"
      ink rgb(0,20,255),0
      center text 321,281, "Press [A] to Continue"
      ink rgb(255,255,255),0

do
   if inkey$()="a"
   do
      if inkey$()<>"a" then cls : exit
   loop
   exit
   endif
loop

ink rgb(255,255,255),0
      center text 320,240, "Drive to Your Friend Who"
      ink rgb(0,20,255),0
      center text 321,241, "Drive to Your Friend Who"
      ink rgb(255,255,255),0
      center text 320,260, "Is Low On Energy,"
      ink rgb(0,20,255),0
      center text 321,261, "Is Low On Energy,"
      ink rgb(255,255,255),0
      center text 320,280, "Only You Can Save Him!!!"
      ink rgb(0,20,255),0
      center text 321,281, "Only You Can Save Him!!!"
      ink rgb(255,255,255),0
      center text 320,300, "Press [S] to Continoue"
      ink rgb(0,20,255),0
      center text 321,301, "Press [S] to Continoue"
      ink rgb(255,255,255),0

do
   if inkey$()="s"
   do
      if inkey$()<>"s" then cls : exit
   loop
   exit
   endif
loop

center text 320,220, "********************"
      ink rgb(0,20,255),0
      center text 321,221, "********************"
      ink rgb(255,255,255),0
      center text 320,240, "Press [P] To Start"
      ink rgb(0,20,255),0
      center text 321,241, "Press [P] To Start"
      ink rgb(255,255,255),0
      center text 320,260, "********************"
      ink rgb(0,20,255),0
      center text 321,261, "********************"
      ink rgb(155,255,255),0

do
   if inkey$()="p"
   do
      if inkey$()<>"p" then cls :exit
   loop
   exit
   endif
loop

rem ****____****_____loading section____****____****
load image "E:\My DBPRO Games\Edutainment\images\sky_texture.jpg",1

rem ****____****____MainSection Loop____****____****
MainSection:
make object cube 1,50
scale object 1, 15,20,20
color object 1, rgb(255,0,0)
position object 1,-350,0,-350
rotate object 1,0,45,0
color backdrop rgb(0,0,0)

position camera 0,85,-5
point camera 0,55,60

set camera range 1,4000000000000

rem Walls

rem starting part of the arena

rem North Wall
   make object box 4,2000,1000,10
   rotate object 4,0,180,0
   position object 4, 0,500,-1005
   texture object 4,1

rem West Wall
   make object box 5,2000,1000,10
   rotate object 5,0,270,0
   position object 5, -1005,500,0
   texture object 5,1

rem Floor
make object box 6,2000,1000,2000 : position object 6,0,-500,0 : color object 6,rgb(0,0,255)
make object collision box 6,-1000,-500,-1000,1000,500,1000,0

rem Walls

rem eastern bottom of the arena

rem east Wall
   make object box 12,2000,1000,10
   rotate object 12,0,270,0
   position object 12, 3010,500,0
   texture object 12,1

rem North Wall
   make object box 14,2000,1000,10
   rotate object 14,0,180,0
   position object 14, 2000,500,-1005
   texture object 14,1

rem Floor
make object box 15,2000,1000,2000 : position object 15,2000,-500,0 : color object 15,rgb(0,0,255)
make object collision box 15,-1000,-500,-1000,1000,500,1000,0

rem Walls

rem top western part of the arena

rem North Wall
   make object box 16,2000,1000,10
   rotate object 16,0,0,0
   position object 16, 0,500,3005
   texture object 16,1

rem West Wall
   make object box 17,2000,1000,10
   rotate object 17,0,270,0
   position object 17, -1000,500,2000
   texture object 17,1

rem Floor
make object box 19,2000,1000,2000 : position object 19,0,-500,2000 : color object 19,rgb(0,0,255)
make object collision box 19,-1000,-500,-1000,1000,500,1000,0

rem top eastern part of the arena

rem east Wall
   make object box 20,2000,1000,10
   rotate object 20,0,270,0
   position object 20, 3010,500,2000
   texture object 20,1

rem North Wall
   make object box 21,2000,1000,10
   rotate object 21,0,180,0
   position object 21, 2000,500,3000
   texture object 21,1

rem Floor
make object box 22,2000,1000,2000 : position object 22,2000,-500,2000 : color object 22,rgb(0,0,255)
make object collision box 22,-1000,-500,-1000,1000,500,1000,0

rem ****____****____ other oject creation ____****____****

NumberOfBuildings = 25

for t = 1 to NumberOfBuildings
   make object cube t + NumberOfBuildings ,100
   scale object t +NumberOfBuildings,200,750,200
   color object t + NumberOfBuildings , rgb(255,0,0)
   position object t + NumberOfBuildings ,Rnd(3900)-950,30,Rnd(3900)-950
   make object collision box t + NumberOfBuildings ,-100,-375,-100,100,375,100,0
next t

rem ****____****____ collision section ____****____****

rem ****____****____ Motion Section ____****____****

do
   rem store angle
   ay# = object angle Y(1)

rem key input
   if upkey()=1 then move object 1, 0.25
   if downkey()=1 then move object 1 ,-0.25
   if leftkey()=1 then ay# = wrapvalue(ay#-0.20)
   if rightkey()=1 then ay# = wrapvalue(ay#+0.20)

rem rotate object
   yrotate object 1,ay#
   set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 5, 15, 55, 0
loop

wait key

+ Code Snippet

REM edutainment
REM by abbas and sam
REM created 12/2/13 10:11 a.m.

autocam off
hide mouse

rem ****____****____title intro thing____****____****

      center text 320,240, "Welcome to a Friend in Need"
      ink rgb(0,20,255),0
      center text 321,241, "Welcome to a Friend in Need"
      ink rgb(255,255,255),0
      center text 320,260, "A Game About Transfering Energy"
      ink rgb(0,20,255),0
      center text 321,261, "A Game About Transfering Energy"
      ink rgb(255,255,255),0
      center text 320,280, "Press [A] to Continue"
      ink rgb(0,20,255),0
      center text 321,281, "Press [A] to Continue"
      ink rgb(255,255,255),0

do
   if inkey$()="a"
   do
      if inkey$()<>"a" then cls : exit
   loop
   exit
   endif
loop

      ink rgb(255,255,255),0
      center text 320,240, "Drive to Your Friend Who"
      ink rgb(0,20,255),0
      center text 321,241, "Drive to Your Friend Who"
      ink rgb(255,255,255),0
      center text 320,260, "Is Low On Energy,"
      ink rgb(0,20,255),0
      center text 321,261, "Is Low On Energy,"
      ink rgb(255,255,255),0
      center text 320,280, "Only You Can Save Him!!!"
      ink rgb(0,20,255),0
      center text 321,281, "Only You Can Save Him!!!"
      ink rgb(255,255,255),0
      center text 320,300, "Press [S] to Continoue"
      ink rgb(0,20,255),0
      center text 321,301, "Press [S] to Continoue"
      ink rgb(255,255,255),0

do
   if inkey$()="s"
   do
      if inkey$()<>"s" then cls : exit
   loop
   exit
   endif
loop

      center text 320,220, "********************"
      ink rgb(0,20,255),0
      center text 321,221, "********************"
      ink rgb(255,255,255),0
      center text 320,240, "Press [P] To Start"
      ink rgb(0,20,255),0
      center text 321,241, "Press [P] To Start"
      ink rgb(255,255,255),0
      center text 320,260, "********************"
      ink rgb(0,20,255),0
      center text 321,261, "********************"
      ink rgb(155,255,255),0

do
   if inkey$()="p"
   do
      if inkey$()<>"p" then cls :exit
   loop
   exit
   endif
loop


rem ****____****_____loading section____****____****
load image "E:\My DBPRO Games\Edutainment\images\sky_texture.jpg",1





rem ****____****____MainSection Loop____****____****
MainSection:
make object cube 1,50
scale object 1, 15,20,20
color object 1, rgb(255,0,0)
position object 1,-350,0,-350
rotate object 1,0,45,0
color backdrop rgb(0,0,0)

position camera 0,85,-5
point camera 0,55,60

set camera range 1,4000000000000



rem Walls


rem starting part of the arena


   rem North Wall
   make object box 4,2000,1000,10
   rotate object 4,0,180,0
   position object 4, 0,500,-1005
   texture object 4,1

   rem West Wall
   make object box 5,2000,1000,10
   rotate object 5,0,270,0
   position object 5, -1005,500,0
   texture object 5,1

rem Floor
make object box 6,2000,1000,2000 : position object 6,0,-500,0 : color object 6,rgb(0,0,255)
make object collision box 6,-1000,-500,-1000,1000,500,1000,0


rem Walls

rem eastern bottom of the arena


   rem east Wall
   make object box 12,2000,1000,10
   rotate object 12,0,270,0
   position object 12, 3010,500,0
   texture object 12,1


 rem North Wall
   make object box 14,2000,1000,10
   rotate object 14,0,180,0
   position object 14, 2000,500,-1005
   texture object 14,1

rem Floor
make object box 15,2000,1000,2000 : position object 15,2000,-500,0 : color object 15,rgb(0,0,255)
make object collision box 15,-1000,-500,-1000,1000,500,1000,0


rem Walls


rem top western part of the arena

   rem North Wall
   make object box 16,2000,1000,10
   rotate object 16,0,0,0
   position object 16, 0,500,3005
   texture object 16,1

   rem West Wall
   make object box 17,2000,1000,10
   rotate object 17,0,270,0
   position object 17, -1000,500,2000
   texture object 17,1


rem Floor
make object box 19,2000,1000,2000 : position object 19,0,-500,2000 : color object 19,rgb(0,0,255)
make object collision box 19,-1000,-500,-1000,1000,500,1000,0


rem top eastern part of the arena

   rem east Wall
   make object box 20,2000,1000,10
   rotate object 20,0,270,0
   position object 20, 3010,500,2000
   texture object 20,1


 rem North Wall
   make object box 21,2000,1000,10
   rotate object 21,0,180,0
   position object 21, 2000,500,3000
   texture object 21,1

rem Floor
make object box 22,2000,1000,2000 : position object 22,2000,-500,2000 : color object 22,rgb(0,0,255)
make object collision box 22,-1000,-500,-1000,1000,500,1000,0



rem ****____****____ other oject creation ____****____****

NumberOfBuildings = 25

for t = 1 to NumberOfBuildings
   make object cube t + NumberOfBuildings ,100
   scale object t +NumberOfBuildings,200,750,200
   color object t + NumberOfBuildings , rgb(255,0,0)
   position object t + NumberOfBuildings ,Rnd(3900)-950,30,Rnd(3900)-950
   make object collision box t + NumberOfBuildings ,-100,-375,-100,100,375,100,0
next t


rem ****____****____ collision section ____****____****


rem ****____****____ Motion Section ____****____****

do
   rem store angle
   ay# = object angle Y(1)

   rem key input
   if upkey()=1 then move object 1, 0.25
   if downkey()=1 then move object 1 ,-0.25
   if leftkey()=1 then ay# = wrapvalue(ay#-0.20)
   if rightkey()=1 then ay# = wrapvalue(ay#+0.20)

   rem rotate object
   yrotate object 1,ay#
   set camera to follow object position x(1), object position y(1), object position z(1), object angle y(1), 5, 15, 55, 0
loop





wait key

There are three kinds of people in this world. Those that can count and those that can't...

Back to top

Profile PM

Derek Darkly

14

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 16th Jan 2014 22:14 Edited at: 16th Jan 2014 22:21

Link

Personally I have never used/needed collision boxes. Others may swear by them, but I'm not sure.

I just use the objects themselves and detect collisions with OBJECT HIT, OBJECT COLLISION or by using AUTOMATIC CAMERA COLLISION. (For complex objects, Sparky's collision plugin works great.)

I have noticed that when you scale a cube it's a good idea to call SET OBJECT COLLISION TO BOXES after to redefine the new collision area. (At least that's what I remember doing.)

Other native command options are INTERSECT OBJECT and AUTOMATIC OBJECT COLLISION and I'm sure someone will come along with some other ideas soon.

D.D.

Back to top

Profile PM

SamKM

17

Years of Service

User Offline

Joined: 25th May 2009

Location:

Posted: 16th Jan 2014 23:00

Link

At a quick glance, it looks like you're setting up your collision boxes great, but you're not checking collision with them! If you're going to use collision boxes, you have to do it manually

A quick routine which usually works for keeping objects outside of collision boxes is something like this:

if object collision(1, 2) = 1
collx# = get object collision x()
colly# = get object collision y()
collz# = get object collision z()
position object 1, object position z(1) - collx#, object position y(1) - colly#, object position z(1) - collz#
endif

Hope that helps! Play around with it and see what works best for your buildings. Good luck!

Back to top

Profile PM Email

29 games

20

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 16th Jan 2014 23:13

Link

Hm, SamKM got in with a similar but much better answer than I was going to give but I'll give you my input anyway.

Like Sam mentioned, you've not actually determine if any collisions have been made (in DBPro you have to code everything and at the moment your code is seeing a collision box but doesn't know what you want to do with it).

I wrote a simple driving game a while back which you can find here but you'll have to down a few posts to find an expanded version of the code (with lots of comments) which you can find here:

http://forum.thegamecreators.com/?m=forum_view&t=178125&b=11

It doesn't use collision boxes but does show the basic of detecting and resolving collision. I expect if you combine it with what Sam posted then you should have what you're after.

One thing you might want to do is tidy up the order in which you've create your world, so have your car as object 1, then all the walls 2 to 20 (or however many you have) and then the floors as 21 onward. This should make it easier to sort out the collision detection, especially if you what different response from different collisions (this is something you can see in game I linked to.

Purple Complex: An Arcade Style First Person Tactical Shooter - full game available now

[WIP] Hover Car Race Challenge Accepted! - NaGaCreMo 2014 project wip thread

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 16th Jan 2014 23:25

Link

Hi there.

Same here, I never use collision boxes, and nowaday I use Sparkys but I remember some code I had for DBC that I adapted for Dbpro.

@Sir_Herbert
Here is your code with some modification and my collision subrutine.