joy of 3d collision part deux

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|114\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> joy of 3d collision part deux
Fri, 13 Oct 2006, 11:32
svrman	Graphics3D 800, 600, 32, 2 Const COL_CUBE=0 Const COL_SPHERE=2 cam=CreateCamera() lite=CreateLight() PositionEntity cam, 0,2,-7 c=CreateCube() PositionEntity c,-2,0,0 EntityType c,COL_CUBE s=CreateSphere(5) PositionEntity s,2,0,0 EntityType s,COL_SPHERE EntityRadius s,2 Collisions COL_CUBE,COL_SPHERE,2,3 Repeat If EntityCollided(c,COL_SPHERE) EntityColor c,255,0,0 If KeyDown(203) Then MoveEntity c,-1,0,0 If KeyDown(205) Then MoveEntity c,1,0,0 UpdateWorld RenderWorld Flip Until KeyHit(1) End --v Why doesn't this work? -=-=- BlitzRSS script back online!
Fri, 13 Oct 2006, 13:15
magicman	im at school at the moment so i cant run it to see, but you might want to make col_cube = 1, im not sure if that will make a diffrence, but seeing as how 0 = false? ill take a closer look at it when i get home in an hour or so. \|edit\| yep, that was it, i just tested it. \|edit\| -=-=- Stuff... Yeah...
Fri, 13 Oct 2006, 19:28
svrman	Ahh thanks much.
Fri, 13 Oct 2006, 20:14
magicman	No problem.