schnellster weg von A nach B

[Elayn]

hallo,
wie kann man ein sprite so bewegen, dass es immer den kürzesten weg zu zwei anderen koordinate nimmt (ich mein das es sich sichtbar dorthin bewegt)?

[cxAlex]

Der schnellste Weg ist immer Luftlinie. Gibt es Hindernisse denen das Sprite ausweichen muss, muss man eventuell Wegfindungs - Algos einsetzen?

[Kaeru Gaman]

Luftlinie:

du nimmst die Differenz zu den Zielkoordinaten, und teilst das durch die Anzahl Frames die du brauchen willst.
diese quotienten speicherst du in zwei variablen, zum beispiel SpeedX und SpeedY.
verwende für sowas dann lieber Floats bzw. rechne mit tausendstel pixel.

jetzt kannst du in jedem Frame zu den aktuellen Sprite-Koordinaten deine SpeedX und SpeedY dazuaddieren und dann das Sprite wieder darstellen.

ich kann dir später mal ein billiges Beispiel hacken, jetzt muss ich erstmal Fisch braten....

[cxAlex]

Mit dem Macro kannst du die den Weg zwischen 2 Punkten ausrechnen, vlt. kannst du das ja brauchen:

Code: Alles auswählen

Macro Way(x1, y1, x2, y2)
  Sqr((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2))
EndMacro

Debug Way(3, 4, 6, 7)

[Elayn]

Danke erstmal!

nein, das sprite muss keinen hindernissen ausweichen.
und gibt es einen weg daraus auch einen winkel zu ziehen, um ein sprite3d in flugrichtung zu drehen?

[gnasen]

geometrie Sek I:

tan(a) = gegenkathete/ankathete = y/x
a = atan(y/x)

[KeyKon]

Ich bezweifle stark das der Normale ATan() immer den richtigen Winkel zurückgibt, du musst auch noch den Sektor berücksichtigen...

EDIT:

müsste so gehen:

Code: Alles auswählen

Procedure.d ATan2(y.d,x.d)
  If x < 0
    ProcedureReturn ATan(y/x)+#PI
  ElseIf x > 0 And y >= 0
    ProcedureReturn ATan(y/x)
  ElseIf x > 0 And y < 0
    ProcedureReturn ATan(y/x)+2*#PI
  ElseIf x = 0 And y > 0
    ProcedureReturn #PI/2
  ElseIf x = 0 And y < 0
    ProcedureReturn 3*#PI/2
  Else ; x = 0 and y = 0
    ProcedureReturn 0
  EndIf
EndProcedure


winkel1 = ATan2(y2-y1,x2-x1)

[Elayn]

das funzt bei mir nicht!

[Kaeru Gaman]

Und der Preis für die Ungenaueste Fehlermeldung der Woche geht an Elayn!



lass mich mal raten... du hast einfach den dort berechneten Winkel an RotateSprite3D übergeben...
nun... diese Proc arbeitet mit Winkelfunktionen, die bemessen einen Winkel im Bogenmaß.
RotateSprite3D hingegen erwartet einen Winkel der in Grad bemessen ist, also muss man wohl umrechnen.

und auch wenn ich jetzt richtig geraten habe - mach dir nächstes mal gefälligst die Mühe, halbwegs ausführlich zu beschreiben WAS nicht funktioniert und WIE.

[Elayn]

richtig geraten
tut mir leid