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:
35:
36:
37:
38:
39:

function TMeColliderLine.IsColliding(const nPos, nMov: TMeleeCoord; nSize: single = 0): boolean;
var fv, nv, fvn, nvn: TMeleeCoord; q: boolean; rN, rS, sN, hitlength: single; 
begin
result := false;
// Zunächst eine einfach Box-Kollisionsabfrage um Rechenzeit zu sparen. 
if (Abs(nPos.X - FLine.A.X) > ABS(FLine.B.X - FLine.A.X) + ABS(nMov.X)) or
   (Abs(nPos.Y - FLine.A.Y) > ABS(FLine.B.Y - FLine.A.Y) + ABS(nMov.Y)) then exit;
fv := meCalculate(FLine.B, me_Substract, FLine.A);
nv := nMov;
// Bei Parallelen Vektoren besteht keine Kollisionsgefahr und außerdem wäre das Gleichungssysstem nicht lösbar.
q := meIsParallel(fv, nv);
if q then exit;
// Solve Linear Equations
if fv.X <> 0 then // Avoid Division through Zero
  begin
  // Get R of FLine:
  rN := (nPos.X - FLine.A.X) / fv.X; // Number Part of R
  rS := (nv.X) / fv.X; // S Part of R
  // Get S of nLine:
  sN := (FLine.A.Y + fv.Y * rN - nPos.Y) / (nv.Y - fv.Y * rS); // Get S
  rN := rN + rS * sN; // Set S into formula of R
  end
else
  begin
  // Get R of FLine:
  rN := (nPos.Y - FLine.A.Y) / fv.Y; // Number Part of R
  rS := (nv.Y) / fv.Y; // S Part of R
  // Get S of nLine:
  sN := (FLine.A.X + fv.X * rN - nPos.X) / (nv.X - fv.X * rS);
  rN := rN + rS * sN;
  end;
// Hitlength berechnen
hitlength := abs(nSize / meLength(nv) * tan(90 - arccos(meDot(meNormalize(fv), meNormalize(nv)))));
if (rN > 0 - nSize / meLength(fv)) and (rN < 1 + nSize / meLength(fv)) and
   (sN > 0 - hitlength) and (sN < 1 + hitlength) then begin
   result := true; 
   FHitPoint := meCalculate(FLine.A, me_Add, fv); // Punkt auf dem der Spieler auf die Wand trifft.
   end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var qVec: TMeleeCoord; x: single;
begin
// This function assumes that nLine and FLine collide.
// qVec ist der Vektor der Orthogonal zum Richtungsvektor der Wand ist.
qVec := meNormalize(meCalculate(FLine.B, me_Substract, FLine.A));
x := qVec.X;
qVec.X := qVec.Y;
qVec.Y := -x;
// der Teil von nMov (Bewegungsrichtung) der orthogonal zur Wand ist soll entfernt werden.
qVec := meCalculate(qVec, me_Multiply, meLength(nMov) * meDot(qVec, meNormalize(nMov)));
nPos := meCalculate(npos, me_Add,
          meCalculate(meNormalize(qVec), me_Multiply, ));     
nMov := meCalculate(nMov, me_Substract, qVec);
end;