Align to vector

Hi thanks for the quick reply

 Function Update()

	CamX# = EntityX(MainCam, 1)
	CamY# = EntityY(MainCam, 1)
	CamZ# = EntityZ(MainCam, 1)
	
	Ship1X# = EntityX(Ship1, 1)
	Ship1Y# = EntityY(Ship1, 1)
	Ship1Z# = EntityZ(Ship1, 1)
	
	PositionEntity( SkyBox, CamX#, CamY#, CamZ#,1)
	PositionEntity( SkyBox2, CamX#, CamY#, CamZ#,1)

	TFormVector (0,0,1, SPivot, 0)	
	SpX# = TFormedX()
	SpY# = TFormedY()											; Align Ship to +Z of SPivot
	SpZ# = TFormedZ()
	AlignToVector (Ship1, SpX#, SpY#, SpZ#, 3, 0.1)				
			
	TFormVector (0,1,0, SPivot, 0)	
	SpX# = TFormedX()
	SpY# = TFormedY()											; Align Ship to +Y of SPivot
	SpZ# = TFormedZ()	
	AlignToVector (Ship1, SpX#, SpY#, SpZ#, 2, 0.1)
			
	TFormVector (0,1,0, CPivot, 0)	
	SpX# = TFormedX()
	SpY# = TFormedY()											; Align Cam to +Y of CPivot
	SpZ# = TFormedZ()	
	AlignToVector (MainCam, SpX#, SpY#, SpZ#, 2, 0.1 )
	
	TFormVector (0,0,1, CPivot, 0)	
	SpX# = TFormedX()
	SpY# = TFormedY()											; Align Cam to +Z of CPivot
	SpZ# = TFormedZ()

	AlignToVector (MainCam, SpX#, SpY#, SpZ#, 3, 0.1 )
	
	
	ToPivX# = EntityX(TPivot, 1) - EntityX(MainCam, 1)
	ToPivY# = EntityY(TPivot, 1) - EntityY(MainCam, 1)			; Get Vector to TPivot
	ToPivZ# = EntityZ(TPivot, 1) - EntityZ(MainCam, 1)


	AlignToVector (CPivot, ToPivX#, ToPivY#, ToPivZ#, 3, 1)		; Point Rest Pivot at TPivot

		
	AlignToVector (CamPiv, ToPivX#, ToPivY#, ToPivZ#, 3, 1)	    ; Point CamPiv at TPivot
	
	SmoothMove ( CamPiv, CPivot, 0.1 )							; Move Camera to rest smoothly
	
	; Ship Movement
	MoveEntity (SPivot, 0, 0, SSpeed#)
	PositionEntity ( Ship1,EntityX(SPivot,1),EntityY(SPivot,1),EntityZ(SPivot,1),1 )
	
End Function 

this is a small snippet from my code (its a bit of a sprawling mess) im using pivots to position my camera behind my ship and the camera is pointed towards another pivot infront (TPivot)

I hope this makes sense

[Edit] oh just to add my world isnt very big its just a sky sphere and my ship floating about the world origin point