PureBasic Forums - English

Hello,

I wanted to include my collision(viewtopic.php?t=11857) into my engine. Now I have one problem: The check says always there is a collision, but I don't know why. The MeshData is saved in a Buffer:

NormalX.f
NormalY.f
NormalZ.f
X1.f
Y1.f
Z1.f
X2.f
Y2.f
Z2.f
X3.f
Y3.f
Z3.f

NormalX.f
NormalY.f
NormalZ.f
X1.f
Y1.f
Z1.f
X2.f
...

Then I'm checking the collision so:
OBJ() Is the next element and the normal parameters are the privious element data

You should have a look at using newton physics engine as it includes collision detection as well as physics ... i believe it is a dll written in 'c' so it should work nicely.

http://www.physicsengine.com

Uhm, I know it, it is used by many of the 3DGameStudio A5/A6 users and it is great, but I found my fault: PI wasn't global (what a mistake )

Thanks for the reply, my real 3DCollision works now very, very, very well.

(note: mi english is bad :S:S:S:S) i speack spanish......
i use a structure , whit linked list to player and a procedure to detect collition in 3d mode ( realli 2d colition add the other Y vector to full 3d )

i use sphere colition... the player use a radio ( + ) and other player ( + ) other radio ,.... the player have a vector of direction ( + )--> when if collision the direction, back two speed back ,
<<------( + ( )---> + )
i calcule radian an trayectorie in a procedure ...

ok , i don publik all source of mi game , but only the nesesari...

firts declare procedures ( procedure of collision ) and procedure of vector direction whit radian calcle...

ah.... i use a procedure to search collision of any tipe of object collision
ej
car collision treee
car collision rock
car collision pipoll...

pipoll collision tree
pipol collision rock
etc...
ok go to source...
;declare procedures

Declare.f angrad(grado) ;radian calcle use to vector of direction calcle...
Declare.f colision(entidad) ;player collision other player <----only write ;theseprocedure change the other linked list to otrher object ...
Declare.f colision2(entidad);player collision jeep
Declare.f colision3(entidad);player collision heli
Declare.f colision4(entidad);jeep collision hely

;make player structure
Structure player
x.f ;xpos
y.f ;ypos
z.f ;zpos
radio.f ;radio of player ( + )
angulo.f ;rotation angle
rotacion.f ;rotation step
nangulo.f ; new angle , use rotate step to = to angle
corrige.f
radian.f
velocidad.f ;velocity of object
;oriented player vector
xl.f ;x look ( the player look the camera tho coordenates xyz)
yl.f ;ylook (wen the player rotate rotate the camera )
zl.f ;zlook (using the radian proyection of the xl yl zl)
;oriented camera vector
xlc.f ;xlookcamera
ylc.f ;y lookcamera
zlc.f ;zlookcamera
vista.f
nombre.s
mesh.f ;object mesh ... ( i create the radio , if the type of mesh...)

EndStructure

NewList artic.player(); player 1
NewList gsg.player(); player 2
NewList veicle.player(); veicles

;here load the mesh textures etc...

repeat
;
; here is the game...
; keys modifi the x z coord of player
; use the mouse to rotate player look and camera..
; note! ( the camera rotate more fast to player.... :S ) is a problem..
; i use only the vector to rotate camera and mesh....

; now use the procedure to calcule collitions

ForEach gsg()
; see all player1 linked list , and detect whit the procedure
;other proximiti player2
colision(gsg()) ;<---- here is the procedure
Next
ForEach veicle();colicion uno con veiculos
; see all veicles linked list , and detect whit the procedure
;other proximiti veicle
colision2(veicle());<---- here is the procedure
Next
ForEach veicle() ;colicion viculo con otros player
; see all veicles linked list , and detect whit the procedure
;other proximiti player2
colision3(gsg());<---- here is the procedure
Next
ForEach veicle() ;colicion veiculos con veiculos
; see all veicles linked list , and detect whit the procedure
;other proximiti veicle2
colision3(veicle());<---- here is the procedure
Next

;display all mesh ...

;procedures.....
; the procedure of radian is colavoration of madmax...
;use it to calcule rotation of the vector direction
Procedure.f angrad(grado)
Protected pi.f
Protected ra.f
Protected rad.f
pi=3.14159265
ra=(2*pi)/360
grado=grado % 360
rad.f=grado*ra
ProcedureReturn rad.f
EndProcedure

;and collision procedures

Procedure.f colision(entidad)

Protected x1.f
Protected z1.f
Protected x2.f
Protected z2.f
x1=artic()\x
z1=artic()\z
x2=gsg()\x
z2=gsg()\z

rchoke.f
rchoke= artic()\radio + gsg()\radio

If x1>0 And x2>0 And x1 - x2 < rchoke And x1 > x2 And z1>0 And z2>0 And z1 - z2 < rchoke And z2 < z1
artic()\radian=angrad(artic()\angulo)
artic()\x=artic()\x - (Sin (artic()\radian) * artic()\velocidad)
artic()\z=artic()\z - (Cos (artic()\radian) * artic()\velocidad)
EndIf
If x1>0 And x2>0 And x2 - x1 < rchoke And x2 > x1 And z1>0 And z2>0 And z1 - z2 < rchoke And z1 > z2
artic()\radian=angrad(artic()\angulo)
artic()\x=artic()\x - (Sin (artic()\radian) * artic()\velocidad)
artic()\z=artic()\z - (Cos (artic()\radian) * artic()\velocidad)
EndIf
If x1>0 And x2>0 And x2 - x1 < rchoke And x1 < x2 And z1>0 And z2>0 And z2 - z1 < rchoke And z1 < z2
artic()\radian=angrad(artic()\angulo)
artic()\x=artic()\x - (Sin (artic()\radian) * artic()\velocidad)
artic()\z=artic()\z - (Cos (artic()\radian) * artic()\velocidad)
EndIf
If x1>0 And x2>0 And x1 - x2 < rchoke And x2 < x1 And z1>0 And z2>0 And z2 - z1 < rchoke And z2 > z1
artic()\radian=angrad(artic()\angulo)
artic()\x=artic()\x - (Sin (artic()\radian) * artic()\velocidad)
artic()\z=artic()\z - (Cos (artic()\radian) * artic()\velocidad)
EndIf

EndProcedure
; note ... these is only a collision from the foreach of player2 to player 1
; artic is a player 1
;other variable protected is the varables of for each of gsg(player2)
;
; for each player 2
; procedure collision player 1
;
; in procedure.. first copy player 2 values, to protected variables
;
;and compare values to foreach player1
;
;if collision detected invert the velociti and backward the player....
; to detect x y z collision use these comparacion x z and y z ....:S
;good luuk!!!

http://graygriffen.net/~zefiro/demo3dzefiro.zip

is the demo , using the collision type

use wasd tho walk , mouse to rotate....
ry to up down the copter
tfgh to rotate and aceletate copter

nmjk to acelerate and rotate jeep

see the colition whit the other player
and the collition of the jeep whit the plater
and the elicopter... the copter collision whit the player but not see Y vector
y need add tho the procedure =P