1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

function TMath.Collision(P1,P2,PW1,PW2:TPointS;Anzahl:integer):boolean;//funktion zum ermitteln ob Wand im Weg steht oder nicht
var
 y1,y2,m1,n1,m2,n2:extended;
 x1,x2 : integer;
begin
 result := false;
 zaehl := 0;
 if (P2.x-P1.x) = 0 then
   m1 := (P2.Y-P1.Y)/0.00001
 else
   m1 := (P2.Y-P1.Y)/(P2.X-P1.X)
 n1 := P1.Y-m1*P1.X;
 if (PW2.X-PW1.X) = 0 then
  m2 := (PW2.Y-PW1.Y)/0.00001
 else 
  m2 := (PW2.Y-PW1.Y)/(PW2.X-PW1.X);
 n2 := PW1.Y-m2*PW1.X;// Werte ermittelt (m und n) anhand y = mx + n
 for x1 := 1 to Anzahl do 
begin
   for x2 := 1 to Anzahl do 
 begin
     y1 := m1*x1+n1;//ermitteln der y - Werte
     y2 := m2*x2+n2;
     if(y1=y2)and(x1=x2)then // wenn x,y-Werte identisch sollen Punkte gespeichert werden
      begin
       result := true;
       zaehl := zaehl+1;
       SaveWall(zaehl,PW1,PW2);
      end
     else
       result := false;
    end;
  end;
end;