2d Jump 'N' Run Animations Problem

[Chewbacca]

Und es geht immer noch net

[Chewbacca]

JAAA! Schießen geht, nur die Kollision macht mir noch Kummer.
Irgendwelche Ideen?

[Chewbacca]

schießen geht sterben net, schade eigentlich

[Chewbacca]

WO IST DER FEHLER!

[Nils_13]

Hi,

irgendwie schießt er in die falsche Richtung :gruebel:

Den push Rekord hat noch niemand gebrochen :zwinker:

[Chewbacca]

mit Enter schießen dann gehts.
Sry wegen dem gespamme aber ich bin hektisch un panisch, weil das Ding morgen abgegeben werden muss.

[Nils_13]

Gut, du solltest jetzt ruhig bleiben und dafür sorgen, dass man nur per Enter drücken schießt.

[jfheins]

Zum schießen mit Enter:

Delphi-Quellcode:

If (Key = VK_RETURN) AND Figur1.ModusRechts 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 If (Key = VK_RETURN) AND (not Figur1.ModusRechts) Then 
 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;

Er hat Probleme bei der Kollisions erkennung, weil er jede Figur in einer eigenen Klasse hat, und jede Figur sichb selbst bewegt, ohne dass irgendwas anderes die Chache hat, etwas davon mitzubekommen ...

Mach da einfach public-Variablen in jeder Figur, die du dann mit den anderen Figuren abfragen kannst.

[Chewbacca]

Bei der Abfrage

Code:

For i := 1 To Schritt Do
   Begin
    If (Left > Droid1.Left) And ((Left + Width) < (Droid1.Left + Droid1.Width)) Then
     Begin
      Break;
      Visible := False;
     End;

Hat Droid1 = nil und damit Droid1.Left etc keinen Wert. Sagt jedenfalls Delphi..
Du meinst Public Variablen, die dann die Werte wie Droid1.Left haben? Also integers?

[jfheins]

Vertan, (verdammtes Quick 'n dirty ...) Droid.Left ist ja genau das ...

Hastz du Droid1 auch mit Droid1 := TDroid.Create; erstellt ???