Аркадный движок

Оформил: XVeL
Автор: JibSkeart

A2:=-yy2+yy1; B2:=xx2-xx1;
A1:=-y2+y1; B1:=x2-x1;
If (A1*B2-A2*B1><0) and (A1*A2+B1*B2><0) Then    _Alpha :=(A1*B2-A2*B1)/(A1*A2+B1*B2)
   else
   _Alpha:=0;
_AlphaRad := ArcTan(_Alpha);
_AlphaDeg := RadToDeg(ArcTan(_Alpha));
_Fddx:=Sin(_AlphaRad)*_StepX;
_Fddy:=Cos(_AlphaRad)*_StepY;
If _AlphaRad>0 Then _Fddx:=-_Fddx;
If _AlphaRad>0 Then _Fddy:=-_Fddy;

For i:=0 to _LinesCount-1 do
begin
   //Если линия не вертикальна и в пределах экрана то
   If not _ListLines[i].vert and _Visible(i) Then
   begin
      //вычисляем растояние от точки до этих прямых авось на кокую да встанем
      LLine(_X,_Y, {Координаты героя}
      _ListLines[i]._XY1.X, {Координаты прямой}
      _ListLines[i]._XY1.Y,
      _ListLines[i]._XY2.X,
      _ListLines[i]._XY2.Y,
      _LBDist); {Растояние}
      If (_LBDist>=8)and(_LBDist<-8) Then
      begin
         ...
         // если условие выполнилось то выдергиваем индекс линия 
				 // для дальнейших работ с ней а также сообщаяем что мы наконецто куда-то приземлились :)
      end;
   end;
end;