AlignToVector Dosn't translate angles right.

Okay Using AlignToVector to place a ball in this breakoutgame I'm coding doesn't seem to give the right angles when a collision occurs with the playingfield boundries, most notabaly on the upper part of the playfield.
the ball will come in at an angle of 50-70 degrees colide and after collision instead of coming out at the same angle reversed, it comes out on a totally different less steep angle like 30 or 40 degrees. Heres the code.

Graphics3D 800,600

Const CUBE_COL=1
Const SPHERE_COL=2
Global sy#=2
Global sx#=0

SetBuffer BackBuffer()
Global plength=25
Global camera=CreateCamera()
CameraViewport camera,0,0,800,600
PositionEntity camera,0,0,-5
Global vtimer=0
Global light=CreateLight()

;create arena
Global leftwall=CreateCube()
EntityColor leftwall,100,100,100
ScaleEntity leftwall,4,200,4
PositionEntity leftwall,-200,20,0
Global rightwall=CreateCube()
EntityColor rightwall,100,100,100
ScaleEntity rightwall,4,200,4
PositionEntity rightwall,200,20,0
Global topwall=CreateCube()
EntityColor topwall,100,100,100
ScaleEntity topwall,200,4,4
PositionEntity topwall,0,-150,0
EntityType leftwall,CUBE_COL
EntityType rightwall,CUBE_COL
EntityType topwall,CUBE_COL
Global x1# = 0

;Players Paddle
Global cube=CreateCube()
EntityColor cube,70,80,190
ScaleEntity cube,plength,2,2
EntityType cube,CUBE_COL

;Players Ball
Global sphere=CreateSphere(12)
EntityColor sphere,170,80,90
ScaleEntity sphere,2,2,2
EntityType sphere,SPHERE_COL
PositionEntity sphere,0,110,0

Collisions SPHERE_COL,CUBE_COL,2,1
PositionEntity camera,0,100,1
	RotateEntity camera,80,0,0
	PositionEntity camera,0,0,200
	RotateEntity camera,180,0,0

While Not KeyHit(1)
Update_Player()
Update_Ball()

UpdateWorld
RenderWorld


Text 30,30, "x:"+EntityX(sphere)
Text 30,50, "y:"+EntityY(sphere)
Text 30,70, "cx:"
Text 30,90, "cy:"
Text 335,500,"Collision Detection"
Flip
x1#=x1#+MouseXSpeed()
Wend

Function Update_Ball()
MoveEntity sphere,sx#,sy#,0

; Calculate bounce: 
If EntityCollided(sphere,CUBE_COL) Then
	If EntityCollided(cube,SPHERE_COL)
		If EntityX(sphere) => EntityX(cube) And EntityX(sphere) < EntityX(cube) +5
			sx#=0
			sx#=CollisionNX(cube,1)+2
		ElseIf EntityX(sphere) => EntityX(cube)+5 And EntityX(sphere) <= EntityX(cube)+10 
			sx#=0
			sx#=CollisionNX(cube,1)+1
		ElseIf EntityX(sphere) => EntityX(cube)+11 And EntityX(sphere) =< EntityX(cube)+15
			sx#=0
			sx#=CollisionNX(cube,1)+.5
		ElseIf EntityX(sphere) => EntityX(cube)+16 And EntityX(sphere) =< EntityX(cube)+20
			sx#=0
			sx#=CollisionNX(cube,1)-1
		ElseIf EntityX(sphere) => EntityX(cube)+21 And EntityX(sphere) =< EntityX(cube)+25
			sx#=0
			sx#=CollisionNX(cube,1)-2
		;ElseIf EntityX(sphere) > EntityX(cube)+26
		;	sx#=0
		;	sx#=CollisionNX(cube,1)-3


		EndIf
	EndIf
	    AlignToVector sphere,CollisionNX(sphere,1) ,CollisionNY(sphere,1),0,1


EndIf


End Function

Function Update_Player()
	MoveMouse GraphicsHeight()/2,GraphicsWidth()/2
	If x1#<-180 Then x1#=-180
	If x1#>180 Then x1#=180
PositionEntity cube,x1#,122,0
End Function

End

So can anyone tell me ifI'm doing something wrong or is this just the way that B3D's alignvectors function behaves?
*scratchin my head*

i dunno much about aligntovector. but you should try doing this, as an alternative to aligntovector.

use an angle variable.

angle=45

use sin and cos to move the ball in the x and y direction

x=x+sin(angle)*ballspeed
Translateentity ball,x,y,0

then check for a collision. if a collision occurs, the reverse the angle on the x axis

move the ball in the y direction

y=y+cos(angle)*ballspeed)
TranslateEntity ball,x,y,0

again check for collisions, if there is one then reverse the angle along the y axis