Freebasic - Shooter Problem

[Manni]

Hm...

Code:

Rechnung1=(LinieX1(i)-LinieX2(i))/(LinieY1(i)-LinieY2(i))
Rechnung2=(LinieX1(i)-PunktX(a))/(LinieY2(i)-PunktY(a))

...

Wenn du aus Rechnung2 folgendes machst, sollte es gehen :

Code:

Rechnung2=(LinieX1(i)-PunktX(a))/(LinieY1(i)-PunktY(a))

[Cherry]

Du kannst in FB "_" benutzen, um eine Anweisung über mehrere Zeilen zu strecken, z.B. so:

Code:

If (LinieX1(i)-LinieX2(i))/(LinieY1(i)-LinieY2(i)) = (LinieX1(i)-PunktX(a))/(LinieY1(i)-PunktY(a)) And _
  ((LinieX1(i)<=PunktX(a)) AND (PunktX(a)<=LinieX2(i)) Then
    ' Kollision
EndIf

Bringt mehr Übersichtlichkeit rein.

mfG Cherry