Nuclear Glory Collision DLL - GameCreators Forum

Author

Message

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 12th Mar 2004 22:49

Link

Someone help me understand how to use the nuclear glory collision dll and give a few short demos on how to use it? i need it for the pacman thread i'm also using the demo version and might buy if it does wot it needs.

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 12th Mar 2004 22:55

Link

Did you examine the example code that comes with the DLL package?

Also, be sure to read our online manual at:
http://www.nuclearglory.com/tutorials/NGColl/203/DBPro/

And, here's a nice codebase entry on the DLL's usage:
http://darkbasic.thegamecreators.com/?m=codebase_view&i=6d99af4a5acc16df108236b718052d76

And if you have any specific questions, feel free to ask.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 12th Mar 2004 23:17

Link

i've had alook at the tut section of you're site but it is just explaining the commands and there syntax and the codebase entry doesn't work so that no use. could you or someone else give me a few short tuts on using this for a pacman game.? (check the pacman thread for the existing code) please

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 12th Mar 2004 23:46 Edited at: 13th Mar 2004 00:19

Link

There's a lot of various code posted all over that thread, lol.

The DLL is designed to work for 3D graphics so I'll assume you're doinng the pacman game in 3D.

Most of the work goes into the setup.

Code would run like:

rem Constant block to make code easy to read
#Constant ELLIP_2_ELLIP=1
#Constant ELLIP_2_POLY=2

#Constant RESP_STICK=1
#Constant RESP_SLIDE=2
#Constant RESP_SLIDE_NO_SLOPES=3
#Constant RESP_SLIDE_NO_GRAV=4
#Constant RESP_NONE=5

#Constant DYN_NO_RESP=1
#Constant DYN_RESP=2
#Constant DYN_RESP_LOCK=3
#Constant DYN_RESP_LOCK_NOTURN=4

rem Starts up the collision system
StartCollisionPRO()
StartCollisionDebugPRO()

rem Sets up some collision constants
#Constant TYPE_PLAYER = 1
#Constant TYPE_WORLD = 2

rem ***you would set up how collisions are handled here
rem set the player to collide with the the world
SetCollisionsPRO(TYPE_PLAYER, TYPE_WORLD, ELLIP_2_POLY, RESP_SLIDE, DYN_NO_RESP)

rem Tags your object(s) for collision
CollisionTypePRO( yourPlayerObj, TYPE_PLAYER  )
CollisionTypePRO( anEnemyObj,    TYPE_PLAYER  )

CollisionTypePRO( yourWorldMesh, TYPE_WORLD )

rem Do the main loop
do

rem Move your player/enemies here

rem handles game collision for you
    RunCollisionPRO()

loop

+ Code Snippet


rem Constant block to make code easy to read
#Constant ELLIP_2_ELLIP=1
#Constant ELLIP_2_POLY=2

#Constant RESP_STICK=1
#Constant RESP_SLIDE=2
#Constant RESP_SLIDE_NO_SLOPES=3
#Constant RESP_SLIDE_NO_GRAV=4
#Constant RESP_NONE=5

#Constant DYN_NO_RESP=1
#Constant DYN_RESP=2
#Constant DYN_RESP_LOCK=3
#Constant DYN_RESP_LOCK_NOTURN=4

rem Starts up the collision system
StartCollisionPRO()
StartCollisionDebugPRO()

rem Sets up some collision constants
#Constant TYPE_PLAYER = 1
#Constant TYPE_WORLD = 2

rem ***you would set up how collisions are handled here
rem set the player to collide with the the world
SetCollisionsPRO(TYPE_PLAYER, TYPE_WORLD, ELLIP_2_POLY, RESP_SLIDE, DYN_NO_RESP)

rem Tags your object(s) for collision
CollisionTypePRO( yourPlayerObj, TYPE_PLAYER  )
CollisionTypePRO( anEnemyObj,    TYPE_PLAYER  )

CollisionTypePRO( yourWorldMesh, TYPE_WORLD )


rem Do the main loop
do

    rem Move your player/enemies here

    rem handles game collision for you
    RunCollisionPRO()

loop

That's mostly pseudo-style code. You'll have to try and plug it in

EDIT:
I also posted on your PacMan thread.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 00:22

Link

could you explain what the #Constant command does?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 13th Mar 2004 00:30 Edited at: 13th Mar 2004 00:31

Link

That's a DBP command, it's not specific to the collision system.

A constant is a global variable (a variable that can be accessed from all parts of the program) that cannot be changed at all during runtime (hence the term "constant" or "not changing").

You do not NEED to use constant variables. I do because it's good programming practice and prevents us from accidentally changing the value of the variable sometime during the program.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 00:42

Link

Sync on : sync rate 0
hide mouse

Load Image "floor.png",1

make object sphere 1,7
color object 1, RGB(247,252,44)
set object collision to spheres 1

make object box 2,8,8, 165
color object 2,rgb(255,0,0)
set object collision to boxes 2

make object box 3,8,8, 165
color object 3,rgb(255,0,0)
set object collision to boxes 3

make object box 4,8,8, 155
color object 4,rgb(255,0,0)
yrotate object 4,90
set object collision to boxes 4

make object box 5,8,8, 155
color object 5,rgb(255,0,0)
yrotate object 5,90
set object collision to boxes 5

make object box 6,8,8, 145
color object 6,rgb(255,0,0)
set object collision to boxes 6

make object box 7,8,8, 60
color object 7,rgb(255,0,0)
set object collision to boxes 7

make object box 8,8,8, 50
color object 8,rgb(255,0,0)
yrotate object 8,90
set object collision to boxes 8

make object box 9,8,8, 60
color object 9,rgb(255,0,0)
set object collision to boxes 9

make object box 10,8,8, 50
color object 10,rgb(255,0,0)
yrotate object 10,90
set object collision to boxes 10

make object box 11,8,8, 67
color object 11,rgb(255,0,0)
yrotate object 11,90
set object collision to boxes 11

make object box 12,8,8, 67
color object 12,rgb(255,0,0)
yrotate object 12,90
set object collision to boxes 12

make object box 13,8,8, 67
color object 13,rgb(255,0,0)
yrotate object 13,90
set object collision to boxes 13

make object box 14,8,8, 67
color object 14,rgb(255,0,0)
yrotate object 14,90
set object collision to boxes 14

make object box 15,8,8, 67
color object 15,rgb(255,0,0)
yrotate object 15,90
set object collision to boxes 15

make object box 16,8,8, 67
color object 16,rgb(255,0,0)
yrotate object 16,90
set object collision to boxes 16

make object box 17,8,8, 60
color object 17,rgb(255,0,0)
set object collision to boxes 17

make object box 18,8,8, 60
color object 18,rgb(255,0,0)
set object collision to boxes 18

make object box 19,8,8, 50
color object 19,rgb(255,0,0)
yrotate object 19,90
set object collision to boxes 19

make object box 20,8,8, 50
color object 20,rgb(255,0,0)
yrotate object 20,90
set object collision to boxes 20

make object box 21,8,8, 40
color object 21,rgb(255,0,0)
set object collision to boxes 21

make object box 22,8,8, 40
color object 22,rgb(255,0,0)
set object collision to boxes 22

make matrix 1, 175, 175, 8, 8
Prepare Matrix texture 1,1,1,1
fill matrix 1,0,1

position object 2, 8, get ground height(1,8,8)-2, 87.5
position object 3, 167, get ground height(1,8,8)-2, 87.5
position object 4, 87, get ground height(1,8,8)-2, 9
position object 5, 87, get ground height(1,8,8)-2, 166
position object 6, 87, get ground height(1,8,8)-2, 95
position object 7, 25, get ground height(1,8,8)-2, 122
position object 8, 48, get ground height(1,8,8)-2, 148
position object 9, 71, get ground height(1,8,8)-2, 122
position object 10, 48, get ground height(1,8,8)-2, 96
position object 11, 41, get ground height(1,8,8)-2, 79
position object 12, 54, get ground height(1,8,8)-2, 63
position object 13, 120, get ground height(1,8,8)-2, 63
position object 14, 133, get ground height(1,8,8)-2, 79
position object 15, 54, get ground height(1,8,8)-2, 26.5
position object 16, 120, get ground height(1,8,8)-2, 26.5
position object 17, 150, get ground height(1,8,8)-2, 122
position object 18, 103, get ground height(1,8,8)-2, 122
position object 19, 125, get ground height(1,8,8)-2, 148
position object 20, 125, get ground height(1,8,8)-2, 96
position object 21, 24.5, get ground height(1,8,8)-2, 45
position object 22, 149.5, get ground height(1,8,8)-2, 45

X# = 79
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,X#,get ground height(1, 87, 87),87

position camera 87, 150, 87
point camera 87,0,87

do

If escapekey()=1 then end

if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.
      GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.
      GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.
      GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

if GoingRight = 1 and X# < 167 and Colliding = 0 then PrevX# = X# : X# = X# + 0.6

if GoingLeft = 1 and X# > 6 and Colliding = 0 then PrevX# = X# : X# = X# - 0.6

if GoingUp = 1 and Z# < 167 and Colliding = 0 then PrevZ# = Z# : Z# = Z# + 0.6

if GoingDown = 1 and Z# > 7 and Colliding = 0 then PrevZ# = Z# : Z# = Z# - 0.6

if object hit(1, 0)
      Colliding = 1
      if GoingDown = 1
         Z# = PrevZ# + 1.0
         GoingDown = 0
         Colliding = 0
      endif
      if GoingLeft = 1
         X# = PrevX# + 1.0
         GoingLeft = 0
         Colliding = 0
      endif
      if GoingRight = 1
         X# = PrevX# - 1.0
         GoingRight = 0
         Colliding = 0
      endif
      if GoingUp = 1
         Z# = PrevZ# - 1.0
         GoingUp = 0
         Colliding = 0
      endif
   endif

Position object 1,X#, get ground height(1, X#, Z#), Z#

Sync
loop

+ Code Snippet

Sync on : sync rate 0
hide mouse

Load Image "floor.png",1

make object sphere 1,7
color object 1, RGB(247,252,44)
set object collision to spheres 1

make object box 2,8,8, 165
color object 2,rgb(255,0,0)
set object collision to boxes 2

make object box 3,8,8, 165
color object 3,rgb(255,0,0)
set object collision to boxes 3

make object box 4,8,8, 155
color object 4,rgb(255,0,0)
yrotate object 4,90
set object collision to boxes 4

make object box 5,8,8, 155
color object 5,rgb(255,0,0)
yrotate object 5,90
set object collision to boxes 5

make object box 6,8,8, 145
color object 6,rgb(255,0,0)
set object collision to boxes 6

make object box 7,8,8, 60
color object 7,rgb(255,0,0)
set object collision to boxes 7

make object box 8,8,8, 50
color object 8,rgb(255,0,0)
yrotate object 8,90
set object collision to boxes 8

make object box 9,8,8, 60
color object 9,rgb(255,0,0)
set object collision to boxes 9

make object box 10,8,8, 50
color object 10,rgb(255,0,0)
yrotate object 10,90
set object collision to boxes 10

make object box 11,8,8, 67
color object 11,rgb(255,0,0)
yrotate object 11,90
set object collision to boxes 11

make object box 12,8,8, 67
color object 12,rgb(255,0,0)
yrotate object 12,90
set object collision to boxes 12

make object box 13,8,8, 67
color object 13,rgb(255,0,0)
yrotate object 13,90
set object collision to boxes 13

make object box 14,8,8, 67
color object 14,rgb(255,0,0)
yrotate object 14,90
set object collision to boxes 14

make object box 15,8,8, 67
color object 15,rgb(255,0,0)
yrotate object 15,90
set object collision to boxes 15

make object box 16,8,8, 67
color object 16,rgb(255,0,0)
yrotate object 16,90
set object collision to boxes 16

make object box 17,8,8, 60
color object 17,rgb(255,0,0)
set object collision to boxes 17

make object box 18,8,8, 60
color object 18,rgb(255,0,0)
set object collision to boxes 18

make object box 19,8,8, 50
color object 19,rgb(255,0,0)
yrotate object 19,90
set object collision to boxes 19

make object box 20,8,8, 50
color object 20,rgb(255,0,0)
yrotate object 20,90
set object collision to boxes 20

make object box 21,8,8, 40
color object 21,rgb(255,0,0)
set object collision to boxes 21

make object box 22,8,8, 40
color object 22,rgb(255,0,0)
set object collision to boxes 22

make matrix 1, 175, 175, 8, 8
Prepare Matrix texture 1,1,1,1
fill matrix 1,0,1

position object 2, 8, get ground height(1,8,8)-2, 87.5
position object 3, 167, get ground height(1,8,8)-2, 87.5
position object 4, 87, get ground height(1,8,8)-2, 9
position object 5, 87, get ground height(1,8,8)-2, 166
position object 6, 87, get ground height(1,8,8)-2, 95
position object 7, 25, get ground height(1,8,8)-2, 122
position object 8, 48, get ground height(1,8,8)-2, 148
position object 9, 71, get ground height(1,8,8)-2, 122
position object 10, 48, get ground height(1,8,8)-2, 96
position object 11, 41, get ground height(1,8,8)-2, 79
position object 12, 54, get ground height(1,8,8)-2, 63
position object 13, 120, get ground height(1,8,8)-2, 63
position object 14, 133, get ground height(1,8,8)-2, 79
position object 15, 54, get ground height(1,8,8)-2, 26.5
position object 16, 120, get ground height(1,8,8)-2, 26.5
position object 17, 150, get ground height(1,8,8)-2, 122
position object 18, 103, get ground height(1,8,8)-2, 122
position object 19, 125, get ground height(1,8,8)-2, 148
position object 20, 125, get ground height(1,8,8)-2, 96
position object 21, 24.5, get ground height(1,8,8)-2, 45
position object 22, 149.5, get ground height(1,8,8)-2, 45

X# = 79
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,X#,get ground height(1, 87, 87),87

position camera 87, 150, 87
point camera 87,0,87

do

   If escapekey()=1 then end

   if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# < 170
      GoingUp = 1
      GoingDown = 0
      GoingLeft = 0
      GoingRight = 0
   endif
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0 and Z# > 5
      REM Set variables to show we're going down.
      GoingDown = 1
      GoingUp = 0
      GoingLeft = 0
      GoingRight = 0
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0 and X# > 5
      REM Set variables to show we're going left, and nothing else.
      GoingLeft = 1
      GoingRight = 0
      GoingUp = 0
      GoingDown = 0
   endif
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0 and X# < 170
      REM Set variables to show that we're going right and nothing else.
      GoingRight = 1
      GoingLeft = 0
      GoingDown = 0
      GoingUp = 0
   endif

   if GoingRight = 1 and X# < 167 and Colliding = 0 then PrevX# = X# : X# = X# + 0.6

   if GoingLeft = 1 and X# > 6 and Colliding = 0 then PrevX# = X# : X# = X# - 0.6

   if GoingUp = 1 and Z# < 167 and Colliding = 0 then PrevZ# = Z# : Z# = Z# + 0.6

   if GoingDown = 1 and Z# > 7 and Colliding = 0 then PrevZ# = Z# : Z# = Z# - 0.6

if object hit(1, 0)
      Colliding = 1
      if GoingDown = 1
         Z# = PrevZ# + 1.0
         GoingDown = 0
         Colliding = 0
      endif
      if GoingLeft = 1
         X# = PrevX# + 1.0
         GoingLeft = 0
         Colliding = 0
      endif
      if GoingRight = 1
         X# = PrevX# - 1.0
         GoingRight = 0
         Colliding = 0
      endif
      if GoingUp = 1
         Z# = PrevZ# - 1.0
         GoingUp = 0
         Colliding = 0
      endif
   endif

   Position object 1,X#, get ground height(1, X#, Z#), Z#

   Sync
loop

How would i set up the collision for this code what do i need to put in the SetCollisionPro() command?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 13th Mar 2004 01:16

Link

Here you go, the completed code:

Sync on
sync rate 0
hide mouse

#include "NGCollision.dba"

Load Image "floor.png",1

TYPE_NGC_ELLIP=1
TYPE_NGC_MESH=2

ELLIP_2_ELLIP=1
ELLIP_2_POLY=2

RESP_STICK=1
RESP_SLIDE=2
RESP_SLIDE_NO_SLOPES=3
RESP_SLIDE_NO_GRAV=4
RESP_NONE=5

DYN_NO_RESP=1
DYN_RESP=2
DYN_RESP_LOCK=3
DYN_RESP_LOCK_NOTURN=4

PLAYER_OBJ = 1
WALL_OBJ = 2

StartCollisionPRO(000000000,000000000,000000000)

StartCollisionDebugPRO()

SetCollisionsPRO( PLAYER_OBJ, WALL_OBJ, ELLIP_2_POLY, RESP_SLIDE, DYN_RESP )

make object sphere 1,7
color object 1, RGB(247,252,44)

make object box 2,8,8, 165
color object 2,rgb(255,0,0)

make object box 3,8,8, 165
color object 3,rgb(255,0,0)

make object box 4,8,8, 155
color object 4,rgb(255,0,0)
yrotate object 4,90

make object box 5,8,8, 155
color object 5,rgb(255,0,0)
yrotate object 5,90

make object box 6,8,8, 145
color object 6,rgb(255,0,0)

make object box 7,8,8, 60
color object 7,rgb(255,0,0)

make object box 8,8,8, 50
color object 8,rgb(255,0,0)
yrotate object 8,90

make object box 9,8,8, 60
color object 9,rgb(255,0,0)

make object box 10,8,8, 50
color object 10,rgb(255,0,0)
yrotate object 10,90

make object box 11,8,8, 67
color object 11,rgb(255,0,0)
yrotate object 11,90

make object box 12,8,8, 67
color object 12,rgb(255,0,0)
yrotate object 12,90

make object box 13,8,8, 67
color object 13,rgb(255,0,0)
yrotate object 13,90

make object box 14,8,8, 67
color object 14,rgb(255,0,0)
yrotate object 14,90

make object box 15,8,8, 67
color object 15,rgb(255,0,0)
yrotate object 15,90

make object box 16,8,8, 67
color object 16,rgb(255,0,0)
yrotate object 16,90

make object box 17,8,8, 60
color object 17,rgb(255,0,0)

make object box 18,8,8, 60
color object 18,rgb(255,0,0)

make object box 19,8,8, 50
color object 19,rgb(255,0,0)
yrotate object 19,90

make object box 20,8,8, 50
color object 20,rgb(255,0,0)
yrotate object 20,90

make object box 21,8,8, 40
color object 21,rgb(255,0,0)

make object box 22,8,8, 40
color object 22,rgb(255,0,0)

make matrix 1, 175, 175, 8, 8
Prepare Matrix texture 1,1,1,1
fill matrix 1,0,1

position object 2, 8, get ground height(1,8,8)-2, 87.5
position object 3, 167, get ground height(1,8,8)-2, 87.5
position object 4, 87, get ground height(1,8,8)-2, 9
position object 5, 87, get ground height(1,8,8)-2, 166
position object 6, 87, get ground height(1,8,8)-2, 95
position object 7, 25, get ground height(1,8,8)-2, 122
position object 8, 48, get ground height(1,8,8)-2, 148
position object 9, 71, get ground height(1,8,8)-2, 122
position object 10, 48, get ground height(1,8,8)-2, 96
position object 11, 41, get ground height(1,8,8)-2, 79
position object 12, 54, get ground height(1,8,8)-2, 63
position object 13, 120, get ground height(1,8,8)-2, 63
position object 14, 133, get ground height(1,8,8)-2, 79
position object 15, 54, get ground height(1,8,8)-2, 26.5
position object 16, 120, get ground height(1,8,8)-2, 26.5
position object 17, 150, get ground height(1,8,8)-2, 122
position object 18, 103, get ground height(1,8,8)-2, 122
position object 19, 125, get ground height(1,8,8)-2, 148
position object 20, 125, get ground height(1,8,8)-2, 96
position object 21, 24.5, get ground height(1,8,8)-2, 45
position object 22, 149.5, get ground height(1,8,8)-2, 45

X# = 79
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,X#,get ground height(1, 87, 87),Z#

position camera 87, 150, 87
point camera 87,0,87

rem Sets up player collision
CollisionTypePRO( 1, PLAYER_OBJ )
SetObjRadiusPRO( 1, 3.5, 3.5, 3.5 )
ResetObjPRO( 1 )

rem Sets up wall collision
for wallobj=2 to 22
   CollisionTypePRO( wallobj, WALL_OBJ )
   ResetObjPRO( wallobj )
next wallobj

rem main loop
do

rem detects escape key
   If escapekey()=1 then end

rem Gets input
   if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# + 0.6
   endif
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# - 0.6
   endif
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0
      X# = X# - 0.6
   endif
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0
      X# = X# + 0.6
   endif

rem positions the object
   Position object 1,X#, get ground height(1, X#, Z#), Z#

rem Runs collision
   RunCollisionPRO()

rem gets the updated X/Z positions after collision
   X# = object position x( 1 )
   Z# = object position z( 1 )

rem draws the screen
   sync

loop

+ Code Snippet

Sync on
sync rate 0
hide mouse

#include "NGCollision.dba"

Load Image "floor.png",1


TYPE_NGC_ELLIP=1
TYPE_NGC_MESH=2

ELLIP_2_ELLIP=1
ELLIP_2_POLY=2

RESP_STICK=1
RESP_SLIDE=2
RESP_SLIDE_NO_SLOPES=3
RESP_SLIDE_NO_GRAV=4
RESP_NONE=5

DYN_NO_RESP=1
DYN_RESP=2
DYN_RESP_LOCK=3
DYN_RESP_LOCK_NOTURN=4

PLAYER_OBJ = 1
WALL_OBJ = 2


StartCollisionPRO(000000000,000000000,000000000)

StartCollisionDebugPRO()

SetCollisionsPRO( PLAYER_OBJ, WALL_OBJ, ELLIP_2_POLY, RESP_SLIDE, DYN_RESP )


make object sphere 1,7
color object 1, RGB(247,252,44)

make object box 2,8,8, 165
color object 2,rgb(255,0,0)

make object box 3,8,8, 165
color object 3,rgb(255,0,0)

make object box 4,8,8, 155
color object 4,rgb(255,0,0)
yrotate object 4,90

make object box 5,8,8, 155
color object 5,rgb(255,0,0)
yrotate object 5,90

make object box 6,8,8, 145
color object 6,rgb(255,0,0)

make object box 7,8,8, 60
color object 7,rgb(255,0,0)

make object box 8,8,8, 50
color object 8,rgb(255,0,0)
yrotate object 8,90

make object box 9,8,8, 60
color object 9,rgb(255,0,0)

make object box 10,8,8, 50
color object 10,rgb(255,0,0)
yrotate object 10,90

make object box 11,8,8, 67
color object 11,rgb(255,0,0)
yrotate object 11,90

make object box 12,8,8, 67
color object 12,rgb(255,0,0)
yrotate object 12,90

make object box 13,8,8, 67
color object 13,rgb(255,0,0)
yrotate object 13,90

make object box 14,8,8, 67
color object 14,rgb(255,0,0)
yrotate object 14,90

make object box 15,8,8, 67
color object 15,rgb(255,0,0)
yrotate object 15,90

make object box 16,8,8, 67
color object 16,rgb(255,0,0)
yrotate object 16,90

make object box 17,8,8, 60
color object 17,rgb(255,0,0)

make object box 18,8,8, 60
color object 18,rgb(255,0,0)

make object box 19,8,8, 50
color object 19,rgb(255,0,0)
yrotate object 19,90

make object box 20,8,8, 50
color object 20,rgb(255,0,0)
yrotate object 20,90

make object box 21,8,8, 40
color object 21,rgb(255,0,0)

make object box 22,8,8, 40
color object 22,rgb(255,0,0)

make matrix 1, 175, 175, 8, 8
Prepare Matrix texture 1,1,1,1
fill matrix 1,0,1

position object 2, 8, get ground height(1,8,8)-2, 87.5
position object 3, 167, get ground height(1,8,8)-2, 87.5
position object 4, 87, get ground height(1,8,8)-2, 9
position object 5, 87, get ground height(1,8,8)-2, 166
position object 6, 87, get ground height(1,8,8)-2, 95
position object 7, 25, get ground height(1,8,8)-2, 122
position object 8, 48, get ground height(1,8,8)-2, 148
position object 9, 71, get ground height(1,8,8)-2, 122
position object 10, 48, get ground height(1,8,8)-2, 96
position object 11, 41, get ground height(1,8,8)-2, 79
position object 12, 54, get ground height(1,8,8)-2, 63
position object 13, 120, get ground height(1,8,8)-2, 63
position object 14, 133, get ground height(1,8,8)-2, 79
position object 15, 54, get ground height(1,8,8)-2, 26.5
position object 16, 120, get ground height(1,8,8)-2, 26.5
position object 17, 150, get ground height(1,8,8)-2, 122
position object 18, 103, get ground height(1,8,8)-2, 122
position object 19, 125, get ground height(1,8,8)-2, 148
position object 20, 125, get ground height(1,8,8)-2, 96
position object 21, 24.5, get ground height(1,8,8)-2, 45
position object 22, 149.5, get ground height(1,8,8)-2, 45

X# = 79
Z# = 87
PrevX# = 87
PrevZ# = 87

position object 1,X#,get ground height(1, 87, 87),Z#

position camera 87, 150, 87
point camera 87,0,87


rem Sets up player collision
CollisionTypePRO( 1, PLAYER_OBJ )
SetObjRadiusPRO( 1, 3.5, 3.5, 3.5 )
ResetObjPRO( 1 )

rem Sets up wall collision
for wallobj=2 to 22
   CollisionTypePRO( wallobj, WALL_OBJ )
   ResetObjPRO( wallobj )
next wallobj



rem main loop
do

   rem detects escape key
   If escapekey()=1 then end

   rem Gets input
   if Upkey()=1 and Downkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# + 0.6
   endif
   if Downkey()=1 and Upkey()=0 and Leftkey()=0 and Rightkey()=0
      Z# = Z# - 0.6
   endif
   if Leftkey()=1 and Downkey()=0 and Upkey()=0 and Rightkey()=0
      X# = X# - 0.6
   endif
   if Rightkey()=1 and Downkey()=0 and Leftkey()=0 and Upkey()=0
      X# = X# + 0.6
   endif

   rem positions the object
   Position object 1,X#, get ground height(1, X#, Z#), Z#

   rem Runs collision
   RunCollisionPRO()

   rem gets the updated X/Z positions after collision
   X# = object position x( 1 )
   Z# = object position z( 1 )

   rem draws the screen
   sync

loop

Make sure it's in the same folder with the NGCollision.dba and NGCollision.dll file. And that's all there is to it.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 12:34

Link

what doe the vaible do why re they there?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 12:38

Link

that does not collide with the walls i have possitioned just random wall on the map that i cant see. why is that? how is it fixed so it colliside with create and positioned objects?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 13th Mar 2004 13:22 Edited at: 13th Mar 2004 13:22

Link

That code snipplet compiles and runs great in DBP. Are you using DBC?

I'm not sure what you're asking, could you be clearer in your questions?

Read our online manual to learn what all of the commands and variables are for. It's all in there.

You also need the demo package from our website installed that has the NGCollision.dba and NGCollision.dll file in it.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 13:26

Link

I have DBPro and the demo pack installed and in the same directory but when i compile it collides with wall i can't see not the ones i can see. why is this?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 13th Mar 2004 13:56

Link

Did you change the code at all? The above snipplet runs without any issues like that.

Could you provide the source you're having trouble with?

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 14:30

Link

the code you provided ealier doesn't collide with my walls it collides invisable walls.

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 13th Mar 2004 14:38 Edited at: 13th Mar 2004 14:40

Link

lol, I don't know what you're talking about.

I just copied that code EXACTLY from the code snipplet above and created a new project for it and everything. It runs great with collision. What are these "invisible walls" you're talking about?

I can make a package for you so you can download, unzip, and run it if you want to see that it actually does work.

Make sure you have the most recent DBP patch installed as well.

EDIT:
The laid out red blocks (ordered in a maze fashion) are the walls, am I correct?

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 15:11

Link

yes your correct and i have the latest patch installed. could you send me the zip please?

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

nuclear glory

21

Years of Service

User Offline

Joined: 2nd Oct 2003

Location:

Posted: 13th Mar 2004 15:30

Link

With pleasure.

Link at: http://www.nuclearglory.com/developer/NGColl/gj.zip
(Roughly 2.5 MB)

You should be able to open the .dbpro file and just run it. I included the EXE file in case it doesn't work for some reason.

Lead Programmer/Director
Powerful Collision DLL for DBPro and DBC: http://www.nuclearglory.com

Back to top

Profile PM Email Website

GameMaker Jason

21

Years of Service

User Offline

Joined: 22nd Nov 2003

Location: UK

Posted: 13th Mar 2004 15:36

Link

thanx

http://www.freewebs.com/the_code_monkeys/ My Games Website

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Nuclear Glory Collision DLL