Anyeasy way to to align a ship

Blitz3D Forums/Blitz3D Beginners Area/Anyeasy way to to align a ship

WolRon
 #1
Would something like this work for you?
Open in online IDE
Graphics3D 640, 480, 0, 2
cam = CreateCamera()
MoveEntity cam, 0,0, -10
light = CreateLight()

sphere1 = CreateSphere()
EntityType sphere1, 1
EntityRadius sphere1, 1
connector1 = CreateCube(sphere1)
ScaleEntity connector1, 1.25, .1, .1
MoveEntity connector1, -.25, 0, 0
sphere2 = CreateSphere()
EntityType sphere2, 1
EntityRadius sphere2, 1
connector2 = CreateCube(sphere2)
ScaleEntity connector2, 1.25, .1, .1
MoveEntity connector2, .25, 0, 0
cube1 = CreateCube()
EntityType cube1, 3
EntityBox cube1, 0, 0, 0, 1, 1, 1
cube2 = CreateCube()
EntityType cube2, 3
EntityBox cube2, 0, 0, 0, 1, 1, 1

MoveEntity sphere1, -1.5, 0, 0
MoveEntity sphere2, 1.5, 0, 0

MoveEntity cube1, -1.5, -2.5, 0
MoveEntity cube2, 1.5, -3.5, 0

Collisions 1, 3, 2, 2

;loop
Repeat
	;gravity
	MoveEntity sphere1, 0, -.002, 0
	MoveEntity sphere2, 0, -.002, 0
	
	UpdateWorld()
	
	AlignToVector sphere1, (EntityX(sphere1)-EntityX(sphere2)), (EntityY(sphere1)-EntityY(sphere2)), (EntityZ(sphere1)-EntityZ(sphere2)), 1
	AlignToVector sphere2, (EntityX(sphere1)-EntityX(sphere2)), (EntityY(sphere1)-EntityY(sphere2)), (EntityZ(sphere1)-EntityZ(sphere2)), 1
	
	RenderWorld()
	Flip
Until KeyHit(1)