سؤال في التصادم في المحرك Irrlicht

وعليكم السلام ورحمة الله وبركاته

كيف الأحوال أخي العزيز

مازلت تبحث عن هذا السؤال ؟

مع ان الاجابة وضعتها لك في الموضوع المخصص للمحرك B) هنا

للتذكير:

Public Function TestCollision(ByVal NodeA As ISceneNode, ByVal Tpoint As Vector3D) As Boolean
Dim Cx, Cy, Cz As Boolean
Dim OBJbox As Box3D = NodeA.BoundingBox
Dim Pos As Vector3D = NodeA.Position
If (Tpoint.X > (Pos.X + OBJbox.MinEdge.X) And Tpoint.X < (Pos.X + OBJbox.MaxEdge.X)) Then Cx = True
If (Tpoint.Y > (Pos.Y + OBJbox.MinEdge.Y) And Tpoint.Y < (Pos.Y + OBJbox.MaxEdge.Y)) Then Cy = True

If (Tpoint.Z > (Pos.Z + OBJbox.MinEdge.Z) And Tpoint.Z < (Pos.Z + OBJbox.MaxEdge.Z)) Then Cz = True

If (Cx And Cy And Cz) Then Return True

End Function

بالتوفيق ان شاء الله