OBJECT HIT(x,0) freezes system? - GameCreators Forum

Author

Message

Walter H M

20

Years of Service

User Offline

Joined: 20th Oct 2002

Location:

Posted: 10th Nov 2002 18:25

Link

Hello there,

I am creating a board game.
The board is made of 85 boxes numbered 101 to 185.
The game is played 48 spheres numbered 1 to 48.
I use this code snippet to test is one of the spheres is
close to an other. The distance to one of the boxes is
not important

FOR x = 1 TO 48
h = OBJECT COLLISION(x ,0)
IF h > 0 AND h 0 AND h 0 AND h

Back to top

Profile PM

Shadow Robert

20

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 11th Nov 2002 02:22

Link

surely it'd be a better idea trying ...

+ Code Snippet

for indexA = 1 to 48
  for indexB = 1 to 85
   if object collide(indexA,100+indexB) > 0
   `//<< Code Here >>
   else
   `//<< Code Here >>
   endif
  next indexB
next indexA

or even better would be ...

+ Code Snippet

for indexA = 1 to 48
  for indexB = 1 to 85
    if Collide(indexA,100,indexB) = 1
     `//<< Code Here >>
    else
     `//<< Code Here
    endif
  next indexB
next indexA

function Collision( vObjectA, vObjectSizeA , vObjectB )
 if (object position x( vObjectA ) + object position x( vObjectB)/2) < vObjectSizeA and (object position y( vObjectA ) + object position y( vObjectB)/2) < vObjectSizeA and (object position z( vObjectA ) + object position z( vObjectB)/2) < vObjectSizeA
   bCollide = 1
 else
   bCollide = 0
 endif
endfunction bCollide

Anata aru kowagaru no watashi!

Back to top

Profile PM Email Website

Walter H M

20

Years of Service

User Offline

Joined: 20th Oct 2002

Location:

Posted: 11th Nov 2002 23:05

Link

Thanks for the tip.
My final code:

+ Code Snippet

FUNCTION _list
  FOR intFlLus = 1 to 48
    IF gintStrooi(intFlLus) = 1
      MOVE OBJECT intFlLus, 2
      IF _collision(intFlLus) = 1 THEN gintStrooi(intFlLus) = 2
    ENDIF
  NEXT intFlLus
ENDFUNCTION

FUNCTION _collision(pintClObj)
  xObj = OBJECT POSITION X(pintClObj)
  yObj = OBJECT POSITION Y(pintClObj)
  zObj = OBJECT POSITION Z(pintClObj)
  intResult = 0
  FOR intClLus = 1 TO 48
    xLus = OBJECT POSITION X(intClLus)
    yLus = OBJECT POSITION Y(intClLus) - OBJECT SIZE Y(intClLus)
    zLus = OBJECT POSITION Z(intClLus)
    IF intClLus <> pintClObj
      IF xLus = xObj AND zLus = ZObj and yLus = yObj
        intResult = 1
        intClLus = 48
      ENDIF	
    ENDIF
  NEXT intClLus
ENDFUNCTION intResult

Back to top

Profile PM

Shadow Robert

20

Years of Service

User Offline

Joined: 22nd Sep 2002

Location: Hertfordshire, England

Posted: 11th Nov 2002 23:43

Link

no prob

Anata aru kowagaru no watashi!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

3 Dimensional Chat / OBJECT HIT(x,0) freezes system?