How to detect the object I collided with?

Author

Message

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 8th Jan 2006 21:38

Link

How is this done? I've tried using a variable like so

+ Code Snippet

WALL=OBJECT HIT(PLR,0)
IF WALL > 0 THEN SlidingCollision(WALL)

but it says "Object Number Illegal at Line 63" where my function SlidingCollision() reffers to it's argument "w".

What's the best way to check if I'm hitting something, and if so, retrieve the object number of the object I collided with?

Back to top

Profile PM Email

Jerok

19

Years of Service

User Offline

Joined: 7th May 2005

Location: Mars. Wait a sec I\'m on MARS. OMG

Posted: 9th Jan 2006 02:21 Edited at: 9th Jan 2006 02:22

Link

there doesn't, seem to be anything wrong with the code you have unless at one point plr = 0 but id have to see the sliding collision function if you say your problem is at a line withen it.

Back to top

Profile PM

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 9th Jan 2006 19:49

Link

+ Code Snippet

FUNCTION SlidingCollision(w)
   IF OBJECT COLLISION(PLR,w)
      IF ABS(OBJECT POSITION Z(w)-PLRZ#)<(OBJECT SIZE Z(w)/2)
         IF PLRX#<OBJECT POSITION X(w)
            IF PLRA>=1 AND PLRA<=180
               XLOCKSTATE=1
            ELSE
               XLOCKSTATE=0
            ENDIF
         ENDIF
         IF PLRX#>OBJECT POSITION X(w)
            IF PLRA>=180
               XLOCKSTATE=1
            ELSE
               XLOCKSTATE=0
            ENDIF
         ENDIF
      ENDIF
      IF ABS(OBJECT POSITION X(w)-PLRX#)<(OBJECT SIZE X(w)/2)
         IF PLRZ#>OBJECT POSITION Z(w)
            IF PLRA>=90 AND PLRA<=270
               ZLOCKSTATE=1
            ELSE
               ZLOCKSTATE=0
            ENDIF
         ENDIF
         IF PLRZ#<OBJECT POSITION Z(w)
            IF PLRA>=270 OR PLRA<=90
               ZLOCKSTATE=1
            ELSE
               ZLOCKSTATE=0
            ENDIF
         ENDIF
      ENDIF
   ELSE
      XLOCKSTATE=0
      ZLOCKSTATE=0
   ENDIF
ENDFUNCTION

Back to top

Profile PM Email

Jerok

19

Years of Service

User Offline

Joined: 7th May 2005

Location: Mars. Wait a sec I\'m on MARS. OMG

Posted: 10th Jan 2006 02:41

Link

there doesn't seem to be anything wrong with your collision but the only two things i can think of would be instead of
IF OBJECT COLLISION(PLR,w)
try
IF OBJECT COLLISION(PLR,w)=1
i dont know if it will help but other then that as far as i can see the only other thing is if at one point w = 0

Back to top

Profile PM

Flashing Blade

21

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 10th Jan 2006 14:03

Link

Is the variable PLR declared as global?
If not PLR will always be 0 within function.

The word "Gullible" cannot be found in any English Dictionary.

Back to top

Profile PM Email Website

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 11th Jan 2006 08:20 Edited at: 11th Jan 2006 08:36

Link

Haven't been here in awhile

Thnx for your answers, I figured it out and took Flashing Blade's advice and turned all meh variables into globals

Here is the working code:

+ Code Snippet

FUNCTION SlidingCollision()
   W=OBJECT COLLISION(PLR,0)
   IF W>0
      IF ABS(PLRX#-OBJECT POSITION X(W))<OBJECT SIZE X(W)/2
         IF PLRZ#<OBJECT POSITION Z(W) THEN DEC PLRZ#,0.201
         IF PLRZ#>OBJECT POSITION Z(W) THEN INC PLRZ#,0.201
      ENDIF
      IF ABS(PLRZ#-OBJECT POSITION Z(W))<OBJECT SIZE Z(W)/2
         IF PLRX#<OBJECT POSITION X(W) THEN DEC PLRX#,0.201
         IF PLRX#>OBJECT POSITION X(W) THEN INC PLRX#,0.201
      ENDIF
   ENDIF
ENDFUNCTION

Just add SlidingCollision() to your main loop and change PLR, PLRX# and PLRZ# into the variables representing your player's ObjectNumber, ObjectPositionX and ObjectPositionZ respectively.

/me tests with a cylinder...
It crashed

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / How to detect the object I collided with?