Nearing the end of my tether - Simple object collision

Author

Message

Mk II

13

Years of Service

User Offline

Joined: 9th Oct 2010

Location:

Posted: 22nd Dec 2010 14:34

Link

I'm making a game for an assignment, having received zero tuition from the lecturer.

The concept is simple. Two cars, one ball.

I've used TDK guide for object slide on the ball and it works great. Not so much for the two vehicles or pitch walls.

All I need is to detect collision between the two vehicles and the pitch walls.

I'm attempting to use sparky's collision and failing superbly.

Setting up my object

+ Code Snippet

IF player1Car=6
         LOAD OBJECT "Media\Models\X Models\Vehicles\Beach Bug\H-Beach Bug-Move.X",6
         LOAD IMAGE "Media\Models\X Models\Vehicles\Beach Bug\beachBug.DDS",60
         LOAD SOUND "Media\Sounds\beepbeep.wav",3
         scaleX=2300
         scaleY=2300
         scaleZ=2300
     ENDIF

    POSITION OBJECT 6,100,14,250
    YROTATE OBJECT 6,270
    TEXTURE OBJECT 6,60
    SC_setupObject 6,1,2
    sc_AllowObjectScaling 6  
    SCALE OBJECT 6,scaleX,scaleY,scaleZ   
    SC_UpdateObject 6

In the main Do Loop I call the control and collision function

+ Code Snippet

set cursor 0,0
    print collide

    collide = sc_ObjectCollision(6,0)
    
    IF collide > 0
        `Dec XPos1#, Get OBJECT Collision X()
        `Dec YPos1#, Get GROUND Height(1,XPos1#,ZPos1#)
        `Dec ZPos1#, Get OBJECT Collision Z()
        color object 6,rgb(255,255,0)
        else
        color object 6,rgb(0,255,0)
    ENDIF

Initially I'm simply trying to detect if object 6 collides with any other objects. But nothing.

I'm loosing my mind here.

Back to top

Profile PM

Mk II

13

Years of Service

User Offline

Joined: 9th Oct 2010

Location:

Posted: 22nd Dec 2010 15:45

Link

After hours of hair pulling I've got Sparky's slide code to work, from examining the demos provided.

My code. I set the pitch walls and vehicles to group 1. Not sure what Collision_Type does, but 2 seemed to work best.

REM -------- Player One Old Position --------
    oldXPos1# = OBJECT POSITION X(6)
    oldYPos1# = GET GROUND HEIGHT(1,oldXPos1#,oldZPos1#)
    oldZPos1# = OBJECT POSITION Z(6)
    
    set cursor 0,0
    print oldXPos1#
    
    REM -------- Player One Movement --------
    Up=KEYSTATE(17)
    Down=KEYSTATE(31)
    Left=KEYSTATE(30)
    Right=KEYSTATE(32)

IF player1Hit = 0 REM Disabled movemement controls when player is hit by rocket
       IF Up=1 THEN MOVE OBJECT 6,-P1Speed
       IF Down=1 THEN MOVE OBJECT 6,P1Speed

REM Stops player from turning vehicle when stationary
       IF Up=1
           IF Left=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)-player1TurnSpeed)
           IF Right=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)+player1TurnSpeed)
       ENDIF

IF Down=1
           IF Left=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)+player1TurnSpeed)
           IF Right=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)-player1TurnSpeed)
       ENDIF
    ENDIF

REM -------- Player One New Position --------
    newXPos1# = OBJECT POSITION X(6)
    newYPos1# = GET GROUND HEIGHT(1,newXPos1#,newZPos1#)
    newZPos1# = OBJECT POSITION Z(6)

REM player only collides with group 1 (level) objs and moves freely through others
	collide = sc_SphereSlideGroup(1,oldXPos1#,oldYPos1#,oldZPos1#,newXPos1#,newYPos1#,newZPos1#,50,0)
    
    IF collide>0
		rem if hit, reposition player, halt movement vector
		newXPos1# = sc_getCollisionSlideX()
		oldYPos1# = sc_getCollisionSlideY()
		newZPos1# = sc_getCollisionSlideZ()
		
		rem re-position the player
	   position object 6,newXPos1#,oldYPos1#,newZPos1#
	ENDIF   
    
    sc_updateObject 6

+ Code Snippet

REM -------- Player One Old Position --------
    oldXPos1# = OBJECT POSITION X(6)
    oldYPos1# = GET GROUND HEIGHT(1,oldXPos1#,oldZPos1#)
    oldZPos1# = OBJECT POSITION Z(6)
    
    set cursor 0,0
    print oldXPos1#
    
    REM -------- Player One Movement --------
    Up=KEYSTATE(17)
    Down=KEYSTATE(31)
    Left=KEYSTATE(30)
    Right=KEYSTATE(32)

    IF player1Hit = 0 REM Disabled movemement controls when player is hit by rocket
       IF Up=1 THEN MOVE OBJECT 6,-P1Speed
       IF Down=1 THEN MOVE OBJECT 6,P1Speed

       REM Stops player from turning vehicle when stationary
       IF Up=1
           IF Left=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)-player1TurnSpeed)
           IF Right=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)+player1TurnSpeed)
       ENDIF

       IF Down=1
           IF Left=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)+player1TurnSpeed)
           IF Right=1 THEN YROTATE OBJECT 6,WRAPVALUE(OBJECT ANGLE Y(6)-player1TurnSpeed)
       ENDIF
    ENDIF

    REM -------- Player One New Position --------
    newXPos1# = OBJECT POSITION X(6)
    newYPos1# = GET GROUND HEIGHT(1,newXPos1#,newZPos1#)
    newZPos1# = OBJECT POSITION Z(6)

    REM player only collides with group 1 (level) objs and moves freely through others
	collide = sc_SphereSlideGroup(1,oldXPos1#,oldYPos1#,oldZPos1#,newXPos1#,newYPos1#,newZPos1#,50,0)
    
    IF collide>0
		rem if hit, reposition player, halt movement vector
		newXPos1# = sc_getCollisionSlideX()
		oldYPos1# = sc_getCollisionSlideY()
		newZPos1# = sc_getCollisionSlideZ()
		
		rem re-position the player
	   position object 6,newXPos1#,oldYPos1#,newZPos1#
	ENDIF   
    
    sc_updateObject 6

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 22nd Dec 2010 16:09

Link

Collision type is whether to use a "Sphere", "Box" or "Per polygon" collision. Sphere and box are faster for simple objects.

Take a look at the help files in your DBP instalation folder it'll save you some head scratching...

Is this a car football game then?

I did a game like that a while back (Still not 100% finished) but it uses Dark Physics here:
http://forum.thegamecreators.com/?m=forum_view&t=170702&b=8&p=0

Maybe it'll give you some ideas?

Back to top

Profile PM Email

Mk II

13

Years of Service

User Offline

Joined: 9th Oct 2010

Location:

Posted: 22nd Dec 2010 22:31

Link

Yeh lol, I thought making an arcade game like this would be the most fun for people to play, as opposed to making an incredibly mediocre FPS.

Dark Physics would have been very nice to have.

I actually come across your game a while after I'd started making mine. It looks good and more importantly very fun to play.

Back to top

Profile PM

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 23rd Dec 2010 10:21

Link

Thanks. I guess the main reason I haven't finished it yet is that I have to test it on my own. Not very often I have someone willing/able to play a two player with me

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Nearing the end of my tether - Simple object collision