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]

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