Finish Line end on intersection

ok, great! its kinda working now. But both sides stop once a collision is registered...
updated (and somewhat indented) code:

Function CheckWallCollisions()
Local x,y,axis,x2,y2

For v.wall=Each wall

x=v\x
y=v\y
axis=v\axis
x2=v\x2
y2=v\y2

For w.wall=Each wall

If w<>v

If w\axis<>axis

	If w\axis=1 Then 
	   If axis=2 Then 
	   If w\x=x Or w\x=x-1 Or w\x=x+1 Then 
	   w\placed1=1
	   If w\x2=x2 Or w\x2=x2-1 Or w\x2=x2+1 Then 
	   w\placed2=1
	   EndIf 
	   EndIf 
	   EndIf 
	Else If w\axis=2 Then 
	   If w\y=y Or w\y=y-1 Or w\y=y+1 Then 
	   w\placed1=1
	   If w\y2=y2 Or w\y2=y2-1 Or w\y2=y2+1 Then 
 	   w\placed2=1
	   EndIf
	   EndIf 
	   EndIf 

        EndIf 

EndIf 

Next 

Next 

End Function