just a quick scan but shouldn't it be?
If EntityCollided(ball,p1) Then
AlignToVector ball, CollisionNX (ball, 1), CollisionNY (ball, 1),CollisionNZ(ball,1), 3
EndIf
If EntityCollided(ball,p1) Then
AlignToVector ball, CollisionNX (ball, 1), CollisionNY (ball, 1),CollisionNZ(ball,1), 3
EndIf