2d Jump 'N' Run Animations Problem

[Chewbacca]

Ok, wieder ne überflüssige Frage. Ich habs hinbekommen. So einigermaßen. Wie prüfe ich aber jetzt ob die Figur nach links schaut.
Das neuste Update ist auch wieder als Anhang dabei.
Was ich hier mach grenzt ja schon an spammen....sry
Also die letzten 2 endgültigen Fragen: Das Problem mit dem schießen oben geschildert
und Kollisionen.

[freak4fun]

Du kannst doch schauen welche Grafik gerade zu sehen ist. Dementsprechend guckt der nach links oder rechts.

MfG
fR34k

[Chewbacca]

Das hab ich versucht, aber kriegs net hin.
Wie genau überprüfe ich das? Bis jetzt isses das

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
If Key = VK_RETURN AND Figur1.??? (Rechts) Then
 Begin
  Shot.SetBounds (Figur1.Left + 70, Figur1.Top + 20, 40, 6);
  Shot.Visible := True;
  Shot.Transparent := True;
  Shot.Walk ((Figur1.Left + 70) + 300, Figur1.Top + 20, 30);
  Shot.Visible := False;
 End
Else
 Begin
  Shot.SetBounds (Figur1.Left + 10, Figur1.Top + 20, 40, 6);
  Shot.Visible := True;
  Shot.Transparent := True;
  Shot.Walk ((Figur1.Left + 10) - 300, Figur1.Top + 20, 30);
  Shot.Visible := False;
 End;
end;

was genau muss überprüft werden?

[freak4fun]

Hast du vielleicht dir Laufrichtung irgendwo verfügbar. Das wäre dann auch die Schussrichtung.

MfG
fR34k

[Chewbacca]

Naja ich hab in der Walk Prozedur ein Boolsche Variable ModusRechts. Aber die kann ich irgendwie net abfragen.
Belehre mich BITTE eines besseren und sag mir dass es doch geht.

[freak4fun]

Was ist den TFigur für eine Klasse? :gruebel:

Delphi-Quellcode:

Figur1 : TFigur;

MfG
fR34k

[Chewbacca]

TImage.

[freak4fun]

Boah, da muss man sich erstmal durchfinden. :mrgreen:
Also "ModusRechts: boolean;" kannst du nicht nehmen, weil es eine lokale Variable ist, die nach Beendigung der Procedure nicht mehr gültig ist.

Setze Sie doch in public der Figur.pas datei.

Bin auch kein Delphiprofi, muesste dann aber gehen. :gruebel:

MfG
fR34k

[Chewbacca]

Da sagt er Fehldefinition. Das kann ich unter Public nicht deklarieren.

[freak4fun]

Hm... Haste es in der Procedure auch raus genommen? :gruebel:

PS. Komm doch ebend mal in den chat. :roll:

MfG
fR34k