the joy of 3d collisions!

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|114\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> the joy of 3d collisions!
Tue, 26 Sep 2006, 15:52
magicman	i was wondering if anyone knows of a way to say somthing like.... if entitycollided(user,chair) do stuff...... were chair is a type and i only want to collide with one of the chair in they type, normaly i would have to say (user,chair_collide) chair_collide being the chair entity type. anybody got any ideas? -=-=- Stuff... Yeah...
Tue, 26 Sep 2006, 17:58
Scherererer	Graphics3D 800,600 Const USER = 1, CUBE = 2 cam = CreateCamera() EntityType cam, USER EntityRadius cam, 2 Type objects Field entity End Type Function objects.objects(x,y,z) o.objects = New objects o\entity = CreateCube() EntityType o\entity, CUBE PositionEntity o\entity, x, y, z End Function objects(0,0,20) objects(5,0,15) objects(-5,0,15) objects(15,0,0) Collisions USER, CUBE, 2, 3 While Not KeyDown(1) UpdateWorld RenderWorld ; Checks to see if an object collided, if so it changes red For o.objects = Each objects If EntityCollided(cam, CUBE) = o\entity EntityColor o\entity, 255, 0,0 EndIf Next If KeyDown(200) TurnEntity cam,.1,0,0 ElseIf KeyDown(208) TurnEntity cam,-.1,0,0 EndIf If KeyDown(205) TurnEntity cam,0,-.3,0 ElseIf KeyDown(203) TurnEntity cam,0,.3,0 EndIf If KeyDown(30) MoveEntity cam,0,0,.1 ElseIf KeyDown(44) MoveEntity cam,0,0,-.1 EndIf Flip Wend --v try it, not sure if it works, it's kindof a hassle for me to test cause i didn't install b3d on this computer so i have to remote in to another computer, create an executable, then run it on this one... quite a process. -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Tue, 26 Sep 2006, 18:05
magicman	ah, perfect, i already told you on gabbly, but thank you again. -=-=- Stuff... Yeah...
Tue, 26 Sep 2006, 18:23
Scherererer	Again, glad to have helped. I think i'll comment it up and then throw it in the code snippets section for future reference for other people. -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus
Tue, 26 Sep 2006, 18:46
magicman	grand idea!