Figur läuft einfach durch die Mauer

[Coxy]

Hallo,
ich habe ein Problem: und zwar bewegen sich meine Figuren manchmal durch die wand obwohl mein script das verbietet Oo
das passiert nur manchmal aber es trotzdem nervig. Weiß jemand vielleicht woran das liegt?

Der Script ist

Delphi-Quellcode:

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

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

[rollstuhlfahrer]

Ich würde mal versuchen, den Schnipsel ein wenig zu sortieren und zwar würde ich dazu eine CASE-Struktur für die Richtung einbauen, weil man sonst nix sieht.

Bernhard

[Luckie]

Und Benutze für die Richtungen Konstanten, dann liest sich das auch besser.

[nachti1505]

Delphi-Quellcode:

If (richtung=1) and (img_Stern.Left < 100) then Richtungstern :=1;

Sollte das richtig sein?

[Coxy]

nachti, ich verstehe leider nicht was du mir sagen willst.

@Rest
ich habe schon eine case Struktur für die Richtung siehe hier
[DP]case Richtungstern of
1: Begin
img_Stern.Top := img_Stern.Top + 1;
img_Stern.Left := img_Stern.Left + 1;
end;

2: Begin
img_Stern.Top := img_Stern.Top - 1;
img_Stern.Left := img_Stern.Left + 1;
end;

3: Begin
img_Stern.Top := img_Stern.Top - 1;
img_Stern.Left := img_Stern.Left - 1;
end;

4: Begin
img_Stern.Top := img_Stern.Top + 1;
img_Stern.Left := img_Stern.Left - 1;
end;
end;


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Richtung :=1;
Richtungstern :=1;
end;

end.[/DP]

ich grübel immer noch darüber was daran nicht stimmt :/

[Bjoerk]

das hast du programmiert. sieht etwas merkwürdig aus. Ist das korrekt, das Richtungsstern überschrieben wird, wenn mehrere Bedingungen für eine Richtung erfüllt sind?

Delphi-Quellcode:

function TForm1.Richtungstern (const Richtung: integer): integer;
begin
  Result:=0;
  case Richtung of
    1: begin
         if img_Stern.Top + img_Stern.Height + 100 > ClientHeight then Result:=2;
         if img_Stern.Left < 100 then Result:=1;
         if img_Stern.Left + img_Stern.Width + 100 > ClientWidth then Result:=4;
       end;
    2: begin
         if img_Stern.Left + img_Stern.Width + 100 > ClientWidth then Result:=3;
         if img_Stern.Top < 100 then Result:=1;
       end;
    3: begin
         if img_Stern.Top < 100 then Result:=4;
         if img_Stern.Left < 100 then Result:=2;
       end;
    4: begin
         if img_Stern.Top + img_Stern.Height + 100 > ClientHeight then Result:= 3;
       end;
  end;
end;

schieb die Function mal nach private in dein Object rein und teste die Ergebnisse. Fehlen wahrscheinlich ein paar "else" und weitere Bedingungen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  ...
  private
    function Richtungstern (const richtung: integer): integer;
  end;

[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?

[alfold]

Jo, benutzte erst eine Richtung und lass Dir die Werte anzeigen die Du als vergleich benutzten tust! So erkennst Du ganz schnell wo der Fehler liegt.

Gruss aldold

[rollstuhlfahrer]

Dein Problem ist, dass du den Stern in abhängigkeit von dem anderen Typ die Richtung wechseln lässt. So kann der Stern den Rahmen ohne Probleme verlassen, da es deinem Programm ja gar nicht auffällt, dass was falsch ist. Also: Stern mit Sternrichtung und Böser-Typ mit Böser-Typ-Richtung.

Bernhard

[Coxy]

Vielen Vielen Dank
es klappt jetzt eiwandfrei :)