Collision with .X world object - GameCreators Forum

Author

Message

Phoenix King

16

Years of Service

User Offline

Joined: 21st Sep 2008

Location: United States

Posted: 21st Sep 2008 19:55

Link

I'm a novice when it comes to programming, and I've been working on a game in which you're a spaceship that can fly around, rotate in any direction, and shoot. I've done most of the basic stuff but I can't seem to get the collisions with the world object working. It's a .X file and whenever I use the built-in functions like Object Hit or Object Collision, it seems to collide with the world in places where it shouldn't. I've looked at Sparky's Collision DLL but it looks complicated and I don't need sliding collision, just to have the spaceship explode when it hits it. Can anyone help? The project file is attached. Any help is much appreciated.

Play my games made with Game Maker at http://www.yoyogames.com/members/pichupower2

Attachments

Login to view attachments

Back to top

Profile PM Email Website

AndrewT

17

Years of Service

User Offline

Joined: 11th Feb 2007

Location: MI, USA

Posted: 21st Sep 2008 20:55

Link

The problem is that you're using box collision. That means that DBP is basically placing your terrain in an appropriately sized box, and if you hit the box then it'll register as a collision. You're gonna wanna use Sparky's collision regardless of it's complexity because polygonal collision in DBP is inefficient, and with Sparky's you can use something like SC_SetupComplexObject( ) which will do better collision while still maintaining a decent framerate.

90% of statistics are completely inaccurate.

Back to top

Profile PM

Phoenix King

16

Years of Service

User Offline

Joined: 21st Sep 2008

Location: United States

Posted: 21st Sep 2008 22:22

Link

I tried using Sparky's DLL, but every time I run the game it closes right after I press the "Start" button. I did like the Readme said, I put the DLL in the plugins-user folder, and I wrote the code like the syntax is. Am I missing something here?

+ Code Snippet

SC_setObjectCollisionOn 10
   SC_setupComplexObject 10,0,2
   If SC_objectCollision(10,1) = 1
      Gosub Dead
   Endif

Sorry to bother you again but if you know the answer that'd be really helpful. 10 is the world object number, 1 is the player.

Play my games made with Game Maker at http://www.yoyogames.com/members/pichupower2

Back to top

Profile PM Email Website

Phoenix King

16

Years of Service

User Offline

Joined: 21st Sep 2008

Location: United States

Posted: 22nd Sep 2008 00:33

Link

(I tried posting this earlier but it never went through)
I tried using Sparky's collision, but when I use it the game just closes as soon as I press Start on the menu. I did like the Readme said, I saved the DLL in the plugins-user folder and I used the correct syntax, so I don't know what's wrong.

+ Code Snippet

SC_setObjectCollisionOn 10
   SC_setupComplexObject 10,0,2
   If SC_objectCollision(10,1) = 1
      Gosub Dead
   Endif

Am I doing something wrong here? I'm sorry to bother you but any help would really be appreciated.

Play my games made with Game Maker at http://www.yoyogames.com/members/pichupower2

Back to top

Profile PM Email Website

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 22nd Sep 2008 00:38

Link

you could use an intersect object routine to check distance from map and trigger death when so close to hit it

REM Project: Astro
REM Created: 4/25/2008 8:14:21 PM
REM
REM ***** Main Source File *****
REM
Rem Set up sync etc
Sync On
Sync Rate 30
Autocam Off
Hide Mouse

Rem Load things
Gosub LoadImages
Gosub LoadShip
Gosub LoadBullet
Gosub LoadFog
Gosub LoadLevel
Gosub LoadSky
Gosub LoadSound
Gosub LoadVariables
Gosub LoadExplosion
Gosub LoadAnimation
Gosub LoadEnemy
Gosub LoadEnemyBullet
Gosub LoadLight
Gosub MakeCamera

Rem Go to main menu
Gosub MainMenu

Rem Set up sky and fog
LoadFog:
Fog on
Fog distance 4000
Fog color RGB(150,150,150)
Return

Rem Make spaceship
LoadShip:
Load Object "SPCVEH11.X",1
Scale object 1,1,1,1
rem make aim sphere:
make object sphere 100,5
Return

PositionObjects:
Rem Position objects
Position object 1,0,1000,0
Hide object 2
Hide object 3
Position object 4,1000,150,1000
Hide object 5
T# = 5
M = 1
shoot = 1
Show object 4
Goto Main

Rem Make bullet
LoadBullet:
Load Object "BULLET1.X",2
Scale Object 2,50000,50000,50000
Rotate object 2,90,0,0
Fix object pivot 2
Hide object 2
Return

Rem Make matrix
LoadLevel:
Make Matrix 1,5000,5000,20,20
Load image "grass08.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,1,1
Randomize Matrix 1,100
Position matrix 1,0,0,0
Backdrop on
Load object "valley.x",10
Scale object 10,500,500,500
Position object 10,0,100,0
Texture object 10,1
Return

Rem Make skybox
LoadSky:
Load object "set 16/skybox.x",9
Set object 9,1,1,0,0,0
Scale object 9,70000,70000,70000
Return

Rem Load music/sound
LoadSound:
Load music "SphereinSpace.mid",1
Load sound "explode4.wav",1
Load music "Shady Valley.mid",2
Return

LoadVariables:
Rem Set timer to 5
T# = 5
Rem Set mobility to true
M = 1
Rem Set enemy shooting to true
shoot = 1
Return

LoadExplosion:
Rem Load explosion
Load object "explode.x",3
Hide object 3
Return

LoadAnimation:
Rem Load animation
Load animation "failed1.avi",1
Return

LoadEnemy:
Rem Make enemy spaceships
Load object "SPCSHIP.X",4
Scale object 4,500,1000,500
Rotate object 4,90,0,0
Fix object pivot 4
Return

LoadEnemyBullet:
Rem Make enemy bullet
Load object "BULLET2.X",5
Scale object 5,50000,50000,50000
Rotate object 5,90,10,0
Fix object pivot 5
Hide object 5
Return

MakeCamera:
Rem Make camera object
Make object sphere 6,10
Return

LoadCamera:
Rem Settings for camera
Delete image 3
Set camera range 1,1000000
Set camera view 0,0,640,480
Goto PositionObjects

LoadImages:
Rem Load menu images
Load image "stars.bmp",2
Return

LoadLight:
Set ambient light 50
Make light 1
Set point light 1,0,100,0
Return

Main:
Do
set cursor 0,0
print "distance= ",distance#

Rem Store object angle y in aY#
   aY# = Object Angle Y(1)
   aX# = Object Angle X(1)

Rem Start timer
   If T# > 0 then Dec T#

Rem Store old position values for player
   OX# = Object position X(1)
   OY# = Object position Y(1)
   OZ# = Object position Z(1)

Rem Control input for player
   If Y# > 5000 then Position Object 1,X#,4950,Z#
   If Z# > 7000 then Position Object 1,X#,Y#,Z#-10
   If X# > 7000 then Position Object 1,X#-10,Y#,Z#
   If Z# < 0 then Position Object 1,X#,Y#,Z#+10
   If X# < 0 then Position Object 1,X#+10,Y#,Z#
   G# = Get ground height(1,X#,Z#)
   If Y# <= G#
      If T# = 0
         Gosub Dead
      Endif
   Endif
   If Shiftkey() = 1
      If M = 1
         Move object 1,10
         Move camera 10
      Endif
   Endif
   If Leftkey() = 1
      If M = 1
         Turn object left 1,1
      Endif
   Endif
   If Rightkey() = 1
      If M = 1
         Turn object right 1,1
      Endif
   Endif
   If Upkey() = 1
      If M = 1
         Pitch object down 1,1
      Endif
   Endif
   If Downkey() = 1
      If M = 1
         Pitch object up 1,1
      Endif
   Endif

Rem Get player object position and store in X# and Z#
   X# = Object Position X(1)
   Z# = Object Position Z(1)
   Y# = Object Position Y(1)

Rem Get back position of object for camera
   Pitch object down 1,11
   Move object 1,-50
   Position object 6,Object position X(1),Object position Y(1),Object position Z(1)
   Move object 1,50
   Pitch object up 1,11

Rem Place camera and set orientation to object
   Position camera Object position X(6),Object position Y(6),Object position Z(6)
   Set camera to object orientation 1

Rem Shoot bullet
   If Controlkey() = 1 and b = 0 and M = 1 and Object exist(19) = 0
      Instance object 19,2
      Position Object 19,X#,Y#,Z#
      Rotate object 19,90,0,0
      Fix object pivot 19
      Set object to camera orientation 19
      Show Object 19
      Scale object 19,50000,50000,50000
      bulletlife = 50
      b = 25
   Endif
   If Controlkey() = 1 and b = 0 and M = 1 and Object exist(20) = 0 and Object exist(19) = 1
      Instance object 20,2
      Position object 20,X#,Y#,Z#
      Rotate object 20,90,0,0
      Fix object pivot 20
      Set object to camera orientation 20
      Show object 20
      Scale object 20,50000,50000,50000
      bulletlife2 = 50
      b = 25
   Endif
   If bulletlife > 0
      Dec bulletlife
      Move Object 19,20
      If bulletlife = 0
         Delete object 19
      Endif
   Endif
   If bulletlife2 > 0
      Dec bulletlife2
      Move object 20,20
      If bulletlife2 = 0
         Delete object 20
      Endif
   Endif
   If b > 0 then Dec b
   If object exist(19)
      bX# = Object position X(19)
      bY# = Object position Y(19)
      bZ# = Object position Z(19)
   Endif
   If object exist(20)
      b2X# = Object position X(20)
      b2Y# = Object position Y(20)
      b2Z# = Object position Z(20)
   Endif

Rem Control enemy spaceship
   Point object 4,X#,Y#,Z#
   If enemybulletlife = 0 and RND(2) = 1 and shoot = 1
      Position object 5,eX#,eY#,eZ#
      Set object to object orientation 5,4
      Show object 5
      enemybulletlife = 25
   Endif
   If enemybulletlife > 0
      Dec enemybulletlife
      Move object 5,20
      If enemybulletlife = 0
         Hide object 5
         Position object 5,-100,0,-100
      Endif
   Endif

Rem Detect collisions
   eX# = Object position X(4)
   eY# = Object position Y(4)
   eZ# = Object position Z(4)
   ebX# = Object position X(5)
   ebY# = Object position Y(5)
   ebZ# = Object position Z(5)
   If Sqrt((X#-ebX#)^2 + (Y#-ebY#)^2 + (Z#-ebZ#)^2) < 20
      Gosub Dead
   Endif
   If object exist(19)
      If Sqrt((eX#-bX#)^2 + (eY#-bY#)^2 + (eZ#-bZ#)^2) < 20
         Gosub EnemyDead
      Endif
   Endif
   If object exist(20)
      If Sqrt((eX#-b2X#)^2 + (eY#-b2Y#)^2 + (eZ#-b2Z#)^2) < 20
         Gosub EnemyDead
      Endif
   Endif
 rem intersect object collision
 rem calculate aim coords
  frontx#=newxvalue(x#,ay#,1000)
  frontz#=newzvalue(z#,ay#,1000)
  fronth#=y#+sin(ax#)*-1000
  rem put aim sphere for visual purpose only, not mandatory
  position object 100,frontx#,fronth#,frontz#
  distance#=intersect object(10,x#,y#,z#,frontx#,fronth#,frontz#)
  if distance#>0 and distance#<10 then gosub dead
  remstart
   Set object collision to polygons 10
   Set object collision to spheres 1
   If object hit(1,10) = 1
      Gosub Dead
   Endif
   remend

Rem Hide explosion
   If object playing(3) = 0 then hide object 3

Rem Move skybox
   Position object 9,X#,Y#,Z#

Rem Refresh screen
   Sync
Loop

Dead:
Load animation "failed1.avi",1
Play sound 1
Rem Move explosion to player
Position object 3,X#,Y#,Z#
Show object 3
Play object 3
Rem Hide player
Hide object 1
Position object 1,X#,Y#+10,Z#
Rem Prevent movement
M = 0
Rem Start timer to show animations
Time = 60
If Time > 0
   Do
      Dec Time
      Sync
      If Time = 0 then exit
   Loop
Endif
If Time = 0
   Time = 60
   Rem Reset everything
   Show object 1
   Position object 1,100,150,100
   Rotate object 1,0,0,0
   M = 1
   Place animation 1,0,0,640,480
   Play animation 1
   If Time > 0
      Do
         Dec Time
         Sync
         If Time = 0 then exit
      Loop
   Endif
   Stop animation 1
   Delete animation 1
   Goto MainMenu
Endif

EnemyDead:
Play sound 1
Rem Move explosion to enemy
Position object 3,eX#,eY#,eZ#
Show object 3
Play object 3
Rem Hide enemy
Hide object 4
shoot = 0
Position object 4,-2000,0,-2000
Return

MainMenu:
Rem Place background
Load image "title.bmp",3
Paste image 2,0,0
Paste image 2,256,0
Paste image 2,0,256
Paste image 2,256,256
Paste image 2,512,0
Paste image 2,512,256
Paste image 3,150,100
blue = RGB(0,128,255)
white = RGB(255,255,255)
selecteditem = 1
if music looping(1) = 1 then stop music 1
set camera view 0,0,1,1
Do
   loop music 2
   Rem Print text
   If selecteditem = 1 then ink blue,0 else ink white,0
   Text 200,300,"Start"
   If selecteditem = 2 then ink blue,0 else ink white,0
   Text 285,300,"Secret"
   If selecteditem = 3 then ink blue,0 else ink white,0
   Text 385,300,"Exit"
   Rem Select menu items
   If leftkey() = 1 and hold = 0 then dec selecteditem : hold = 1
   If rightkey() = 1 and hold = 0 then inc selecteditem : hold = 1
   If leftkey() = 0 and rightkey() = 0 then hold = 0
   If selecteditem > 3 then selecteditem = 1
   If selecteditem < 1 then selecteditem = 3
   Rem Choose what to do when an item is selected
   If returnkey() = 1
   Rem Play game
      If selecteditem = 1 then stop music 2 : loop music 1 : goto LoadCamera
   Rem Quit game
      If selecteditem = 3 then end
   Endif
   Sync
Loop

+ Code Snippet

REM Project: Astro
REM Created: 4/25/2008 8:14:21 PM
REM
REM ***** Main Source File *****
REM
Rem Set up sync etc
Sync On
Sync Rate 30
Autocam Off
Hide Mouse

Rem Load things
Gosub LoadImages
Gosub LoadShip
Gosub LoadBullet
Gosub LoadFog
Gosub LoadLevel
Gosub LoadSky
Gosub LoadSound
Gosub LoadVariables
Gosub LoadExplosion
Gosub LoadAnimation
Gosub LoadEnemy
Gosub LoadEnemyBullet
Gosub LoadLight
Gosub MakeCamera


Rem Go to main menu
Gosub MainMenu

Rem Set up sky and fog
LoadFog:
Fog on
Fog distance 4000
Fog color RGB(150,150,150)
Return

Rem Make spaceship
LoadShip:
Load Object "SPCVEH11.X",1
Scale object 1,1,1,1
rem make aim sphere:
make object sphere 100,5
Return

PositionObjects:
Rem Position objects
Position object 1,0,1000,0
Hide object 2
Hide object 3
Position object 4,1000,150,1000
Hide object 5
T# = 5
M = 1
shoot = 1
Show object 4
Goto Main

Rem Make bullet
LoadBullet:
Load Object "BULLET1.X",2
Scale Object 2,50000,50000,50000
Rotate object 2,90,0,0
Fix object pivot 2
Hide object 2
Return

Rem Make matrix
LoadLevel:
Make Matrix 1,5000,5000,20,20
Load image "grass08.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,1,1
Randomize Matrix 1,100
Position matrix 1,0,0,0
Backdrop on
Load object "valley.x",10
Scale object 10,500,500,500
Position object 10,0,100,0
Texture object 10,1
Return

Rem Make skybox
LoadSky:
Load object "set 16/skybox.x",9
Set object 9,1,1,0,0,0
Scale object 9,70000,70000,70000
Return

Rem Load music/sound
LoadSound:
Load music "SphereinSpace.mid",1
Load sound "explode4.wav",1
Load music "Shady Valley.mid",2
Return

LoadVariables:
Rem Set timer to 5
T# = 5
Rem Set mobility to true
M = 1
Rem Set enemy shooting to true
shoot = 1
Return

LoadExplosion:
Rem Load explosion
Load object "explode.x",3
Hide object 3
Return

LoadAnimation:
Rem Load animation
Load animation "failed1.avi",1
Return

LoadEnemy:
Rem Make enemy spaceships
Load object "SPCSHIP.X",4
Scale object 4,500,1000,500
Rotate object 4,90,0,0
Fix object pivot 4
Return

LoadEnemyBullet:
Rem Make enemy bullet
Load object "BULLET2.X",5
Scale object 5,50000,50000,50000
Rotate object 5,90,10,0
Fix object pivot 5
Hide object 5
Return

MakeCamera:
Rem Make camera object
Make object sphere 6,10
Return

LoadCamera:
Rem Settings for camera
Delete image 3
Set camera range 1,1000000
Set camera view 0,0,640,480
Goto PositionObjects

LoadImages:
Rem Load menu images
Load image "stars.bmp",2
Return

LoadLight:
Set ambient light 50
Make light 1
Set point light 1,0,100,0
Return

Main:
Do
set cursor 0,0
print "distance= ",distance#

   Rem Store object angle y in aY#
   aY# = Object Angle Y(1)
   aX# = Object Angle X(1)

   Rem Start timer
   If T# > 0 then Dec T#

   Rem Store old position values for player
   OX# = Object position X(1)
   OY# = Object position Y(1)
   OZ# = Object position Z(1)

   Rem Control input for player
   If Y# > 5000 then Position Object 1,X#,4950,Z#
   If Z# > 7000 then Position Object 1,X#,Y#,Z#-10
   If X# > 7000 then Position Object 1,X#-10,Y#,Z#
   If Z# < 0 then Position Object 1,X#,Y#,Z#+10
   If X# < 0 then Position Object 1,X#+10,Y#,Z#
   G# = Get ground height(1,X#,Z#)
   If Y# <= G#
      If T# = 0
         Gosub Dead
      Endif
   Endif
   If Shiftkey() = 1
      If M = 1
         Move object 1,10
         Move camera 10
      Endif
   Endif
   If Leftkey() = 1
      If M = 1
         Turn object left 1,1
      Endif
   Endif
   If Rightkey() = 1
      If M = 1
         Turn object right 1,1
      Endif
   Endif
   If Upkey() = 1
      If M = 1
         Pitch object down 1,1
      Endif
   Endif
   If Downkey() = 1
      If M = 1
         Pitch object up 1,1
      Endif
   Endif

   Rem Get player object position and store in X# and Z#
   X# = Object Position X(1)
   Z# = Object Position Z(1)
   Y# = Object Position Y(1)

   Rem Get back position of object for camera
   Pitch object down 1,11
   Move object 1,-50
   Position object 6,Object position X(1),Object position Y(1),Object position Z(1)
   Move object 1,50
   Pitch object up 1,11

   Rem Place camera and set orientation to object
   Position camera Object position X(6),Object position Y(6),Object position Z(6)
   Set camera to object orientation 1

   Rem Shoot bullet
   If Controlkey() = 1 and b = 0 and M = 1 and Object exist(19) = 0
      Instance object 19,2
      Position Object 19,X#,Y#,Z#
      Rotate object 19,90,0,0
      Fix object pivot 19
      Set object to camera orientation 19
      Show Object 19
      Scale object 19,50000,50000,50000
      bulletlife = 50
      b = 25
   Endif
   If Controlkey() = 1 and b = 0 and M = 1 and Object exist(20) = 0 and Object exist(19) = 1
      Instance object 20,2
      Position object 20,X#,Y#,Z#
      Rotate object 20,90,0,0
      Fix object pivot 20
      Set object to camera orientation 20
      Show object 20
      Scale object 20,50000,50000,50000
      bulletlife2 = 50
      b = 25
   Endif
   If bulletlife > 0
      Dec bulletlife
      Move Object 19,20
      If bulletlife = 0
         Delete object 19
      Endif
   Endif
   If bulletlife2 > 0
      Dec bulletlife2
      Move object 20,20
      If bulletlife2 = 0
         Delete object 20
      Endif
   Endif
   If b > 0 then Dec b
   If object exist(19)
      bX# = Object position X(19)
      bY# = Object position Y(19)
      bZ# = Object position Z(19)
   Endif
   If object exist(20)
      b2X# = Object position X(20)
      b2Y# = Object position Y(20)
      b2Z# = Object position Z(20)
   Endif



   Rem Control enemy spaceship
   Point object 4,X#,Y#,Z#
   If enemybulletlife = 0 and RND(2) = 1 and shoot = 1
      Position object 5,eX#,eY#,eZ#
      Set object to object orientation 5,4
      Show object 5
      enemybulletlife = 25
   Endif
   If enemybulletlife > 0
      Dec enemybulletlife
      Move object 5,20
      If enemybulletlife = 0
         Hide object 5
         Position object 5,-100,0,-100
      Endif
   Endif

   Rem Detect collisions
   eX# = Object position X(4)
   eY# = Object position Y(4)
   eZ# = Object position Z(4)
   ebX# = Object position X(5)
   ebY# = Object position Y(5)
   ebZ# = Object position Z(5)
   If Sqrt((X#-ebX#)^2 + (Y#-ebY#)^2 + (Z#-ebZ#)^2) < 20
      Gosub Dead
   Endif
   If object exist(19)
      If Sqrt((eX#-bX#)^2 + (eY#-bY#)^2 + (eZ#-bZ#)^2) < 20
         Gosub EnemyDead
      Endif
   Endif
   If object exist(20)
      If Sqrt((eX#-b2X#)^2 + (eY#-b2Y#)^2 + (eZ#-b2Z#)^2) < 20
         Gosub EnemyDead
      Endif
   Endif
 rem intersect object collision
 rem calculate aim coords
  frontx#=newxvalue(x#,ay#,1000)
  frontz#=newzvalue(z#,ay#,1000)
  fronth#=y#+sin(ax#)*-1000
  rem put aim sphere for visual purpose only, not mandatory
  position object 100,frontx#,fronth#,frontz#
  distance#=intersect object(10,x#,y#,z#,frontx#,fronth#,frontz#)
  if distance#>0 and distance#<10 then gosub dead
  remstart
   Set object collision to polygons 10
   Set object collision to spheres 1
   If object hit(1,10) = 1
      Gosub Dead
   Endif
   remend

   Rem Hide explosion
   If object playing(3) = 0 then hide object 3

   Rem Move skybox
   Position object 9,X#,Y#,Z#

   Rem Refresh screen
   Sync
Loop

Dead:
Load animation "failed1.avi",1
Play sound 1
Rem Move explosion to player
Position object 3,X#,Y#,Z#
Show object 3
Play object 3
Rem Hide player
Hide object 1
Position object 1,X#,Y#+10,Z#
Rem Prevent movement
M = 0
Rem Start timer to show animations
Time = 60
If Time > 0
   Do
      Dec Time
      Sync
      If Time = 0 then exit
   Loop
Endif
If Time = 0
   Time = 60
   Rem Reset everything
   Show object 1
   Position object 1,100,150,100
   Rotate object 1,0,0,0
   M = 1
   Place animation 1,0,0,640,480
   Play animation 1
   If Time > 0
      Do
         Dec Time
         Sync
         If Time = 0 then exit
      Loop
   Endif
   Stop animation 1
   Delete animation 1
   Goto MainMenu
Endif

EnemyDead:
Play sound 1
Rem Move explosion to enemy
Position object 3,eX#,eY#,eZ#
Show object 3
Play object 3
Rem Hide enemy
Hide object 4
shoot = 0
Position object 4,-2000,0,-2000
Return

MainMenu:
Rem Place background
Load image "title.bmp",3
Paste image 2,0,0
Paste image 2,256,0
Paste image 2,0,256
Paste image 2,256,256
Paste image 2,512,0
Paste image 2,512,256
Paste image 3,150,100
blue = RGB(0,128,255)
white = RGB(255,255,255)
selecteditem = 1
if music looping(1) = 1 then stop music 1
set camera view 0,0,1,1
Do
   loop music 2
   Rem Print text
   If selecteditem = 1 then ink blue,0 else ink white,0
   Text 200,300,"Start"
   If selecteditem = 2 then ink blue,0 else ink white,0
   Text 285,300,"Secret"
   If selecteditem = 3 then ink blue,0 else ink white,0
   Text 385,300,"Exit"
   Rem Select menu items
   If leftkey() = 1 and hold = 0 then dec selecteditem : hold = 1
   If rightkey() = 1 and hold = 0 then inc selecteditem : hold = 1
   If leftkey() = 0 and rightkey() = 0 then hold = 0
   If selecteditem > 3 then selecteditem = 1
   If selecteditem < 1 then selecteditem = 3
   Rem Choose what to do when an item is selected
   If returnkey() = 1
   Rem Play game
      If selecteditem = 1 then stop music 2 : loop music 1 : goto LoadCamera
   Rem Quit game
      If selecteditem = 3 then end
   Endif
   Sync
Loop

Back to top

Profile PM

Phoenix King

16

Years of Service

User Offline

Joined: 21st Sep 2008

Location: United States

Posted: 22nd Sep 2008 01:00

Link

Thanks Scorpyo, it works but it's just really slow.

Play my games made with Game Maker at http://www.yoyogames.com/members/pichupower2

Back to top

Profile PM Email Website

epithika

17

Years of Service

User Offline

Joined: 19th Feb 2007

Location: Music composer for games

Posted: 22nd Sep 2008 22:30

Link

i think it would work if you didnt make any collision boxes or use any DLL's

if 10 is the world object and 1 is the player i think you could use:

+ Code Snippet

do

   if object collision(1,10)>0
       <the put your dying code here>
   endif

sync
loop

ROYALTY FREE GAME MUSIC FROM $0.99!!!

Back to top

Profile PM Email Website

Phoenix King

16

Years of Service

User Offline

Joined: 21st Sep 2008

Location: United States

Posted: 22nd Sep 2008 22:51

Link

I tried that originally, the problem is DBPro uses a bounding box for the world object, so you die even when you don't hit the actual object. I would like to get Sparky's DLL working because the intersect object routine is too slow, but I don't know how to make it work.

Play my games made with Game Maker at http://www.yoyogames.com/members/pichupower2

Back to top

Profile PM Email Website

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 22nd Sep 2008 22:55

Link

Slow?
I get 350 fps ( setting sync rate 0 )

Back to top

Profile PM

AndrewT

17

Years of Service

User Offline

Joined: 11th Feb 2007

Location: MI, USA

Posted: 22nd Sep 2008 22:56 Edited at: 22nd Sep 2008 22:57

Link

Quote: "Slow?
I get 350 fps ( setting sync rate 0 )"

Well, for now, but if you planning on making it into a full game you're gonna need AI, physics, and several aspects that WILL make it slow. And 350FPS is slow for what you're doing. Moving a simple model in a terrain for me will get roughly 1500 FPS. If adding collision slows it down by 500% you're doing something wrong.

90% of statistics are completely inaccurate.

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 22nd Sep 2008 23:08

Link

dunno
on 1 project i am working at i still get between 25 to 35 fps with 50.000 polygons on screen( 1 AT terrain, 2000 trees,100 vehicles, several buildings and many intersect collision routines - vehicles to vehicles, vehicles to trees,vehicles to scenery,plus a bit of AI, all at once: And I still have to put in place the timing routines and code optimization).
Specs: Sempron 3000+, geforce 7600 GT.
At this point I wonder what his specs are

Back to top

Profile PM

Phoenix King

16

Years of Service

User Offline

Joined: 21st Sep 2008

Location: United States

Posted: 23rd Sep 2008 01:35

Link

Even when I set Sync Rate to 0, it's still really slow. The FPS was around 16. It wasn't nearly that slow before. I'm pretty sure this is the code you gave me:

+ Code Snippet

frontx# = newxvalue(X#,aY#,1000)
frontz# = newzvalue(Z#,aY#,1000)
fronth# = Y#+sin(aX#)*-1000
distance# = intersect object(10,X#,Y#,Z#,frontx#,fronth#,frontz#)
if distance# > 0 and distance# < 10 then gosub dead

If I'm doing something wrong, please let me know. In the meantime, if anyone knows how to use Sparky's...

Play my games made with Game Maker at http://www.yoyogames.com/members/pichupower2

Back to top

Profile PM Email Website

Random color object

16

Years of Service

User Offline

Joined: 14th Aug 2008

Location: Montreal Canada

Posted: 26th Sep 2008 21:45

Link

Just get yourselve Dark Physics it make good collision on .x

-Win XP SP3 -P4 3go/Ge Force 9600 GT driver 178.13
PhysX 08.09.04
DBP + Dark A.I. + Dark Physics + Easy Rotate + enhancement + Sprite Packe

Back to top

Profile PM Email

Phoenix King

16

Years of Service

User Offline

Joined: 21st Sep 2008

Location: United States

Posted: 26th Sep 2008 23:59

Link

Maybe Dark Physics would be the best, even though it's expensive, and maybe I could get it along with Dark A.I. so it's cheaper. Hopefully I won't have a problem with DLLs again.

Play my games made with Game Maker at http://www.yoyogames.com/members/pichupower2

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Collision with .X world object

Attachments