Figur läuft einfach durch die Mauer

[rollstuhlfahrer]

Ich denke eher mal, dass das Problem wo anders liegt und wir das nicht lösen können, weil du selbst nicht durch deinen eigenen Code blickst. Eventuell fehlen einfach die Kommentare, was der Code wo macht (wo reflektiert werden soll).
Überdenke nochmal deinen Kollisionsmechanismus: Ich würde vorschlagen, du prüfst als erstes, ob eine Kollision mit einer Wand vorliegt und änderst daraufhin die Richtung. Was natürlich auch fatal ist, ist dass du 2 sehr ähnliche Variablen hast. Eventuell könnte es sein, dass du irgendwo mal Richtung mit RichtungStern verwechselt hast.

Bernhard

PS: Verwende doch für Code bitte die DELPHI-Tags.

@Björk: Ich hoffe doch, dass deine erfundene Methoden-Deklaration falsch ist (Variablenname).

[Bjoerk]

Nö, da is nix falsch. Aus Richtungstern is eben eine function geworden (statt einer Variable).

[Coxy]

ich benutze ein sehr altes delphi (6)
und bin irgendwie immer noch nicht weiter gekommen bei dem Problem.
gibt es sonst irgendwelche Lösungs-Ansätze?
Grüße

[rollstuhlfahrer]

ja, dann wirst du ein wenig mehr Code zeigen müssen.

Bernhard

[Coxy]

ich habs mal hochgeladen:
https://rapidshare.com/files/4600775...hi_Project.rar

gruß

[rollstuhlfahrer]

Punkt 1: Rapidshare ist Rapidshare und wenn du keinen Premium-Account hast, ist der Download nach 45 Tagen weg. Also besser hier im Forum hochladen.

Punkt 2: Dein Code compiliert gar nicht. Die Figur KANN also gar nicht aus irgendwelchem Rahmen laufen.
Es geht hier um Zeile 75 und da muss eine Begin-End-Struktur eingebaut werden.

Punkt 3: Wo ist da bitte ein Kommentar, was der wo macht? - Den Durchblick hab ich nicht.

Punkt 4: Einen Rahmen würde ich durch ein Panel setzen (und dann die Rahmen ausblenden mit BevelInner und BevelOuter).

Punkt 5: Die Punkte sind doch recht lustig, weil ich selbst ohne Aktion schon in ein paar Sekunden 13 habe.

Punkt 6: Den Fehler wollte ich für dich eigentlich nicht finden und verbessern, er war aber zu offensichtlich:

Delphi-Quellcode:

procedure TForm1.Timer_SternTimer(Sender: TObject);
begin
If (richtung=1) and (img_Stern.Top + img_Stern.Height + 200 > form1.Height) then Richtungstern :=2;

Ich hatte schon angedeutet, dass eine Variablenverwechslung vorliegen könnte. Dabei lag ich aber falsch. Es sind 4.

So und dass du jetzt noch was lernst: Mit deinen Richtungsangaben kann man NULL anfangen. Du kannst allerdings ein ENUM machen und dann die Angaben etwas benennen, wie z.B. bew_LINKSHOCH, bew_LINKSRUNTER, bew_RECHTSHOCH und bew_RECHTSRUNTER. Damit hättest du auch das Problem abgedeckt. Ansonsten sollte alles funktionieren.

Bernhard

PS: Das soll ein Spiel werden? - Laut c't ist es dabei sinnvoller, GetAsyncKeyState() zu verwenden.

[Coxy]

das mit den Punkten habe ich behoben.
Allerdings verstehe ich meinen Fehler immer noch nicht

Delphi-Quellcode:

If (richtung=1) and (img_Stern.Top + img_Stern.Height + 50 > form1.Height) then Richtungstern :=2;
If (richtung=2) and (img_Stern.Left + img_Stern.Width + 50 > form1.Width) then Richtungstern :=3;
If (richtung=3) and (img_Stern.Top < 50) then Richtungstern := 4;
If (richtung=4) and (img_Stern.Left < 50) then Richtungstern :=1;

If (richtung=2) and (img_Stern.Top < 50) then Richtungstern :=1;
If (richtung=1) and (img_Stern.Left + img_Stern.Width + 50 > form1.Width) then Richtungstern :=4;
If (richtung=4) and (img_Stern.Top + img_Stern.Height + 50 > form1.Height) then Richtungstern := 3;
If (richtung=3) and (img_Stern.Left < 50) then Richtungstern :=2;

Kann mir bitte noch einen Denkanstoß geben?