Kleines Pferdespiel

[Leanahtan]

Hmm, also für eine Kollisionsabfrage sollte man nicht unbedingt nur prüfen, ob sich die Ränder berühren (also '='). Denn wenn sich das Pferd in einem Rechenschritt mal um mehrere Pixel bewegt, könnte es in das Hindernis eindringen. Besser ist da imho mit Bereichen (>= bzw. <=) zu arbeiten, oder hab ich was falsch verstanden?

[zapper54]

Zitat:

Hmm, also für eine Kollisionsabfrage sollte man nicht unbedingt nur prüfen, ob sich die Ränder berühren (also '='). Denn wenn sich das Pferd in einem Rechenschritt mal um mehrere Pixel bewegt, könnte es in das Hindernis eindringen. Besser ist da imho mit Bereichen (>= bzw. <=) zu arbeiten, oder hab ich was falsch verstanden?

Das hast du richtig verstanden. Ich wollte das auch so machen. Leider bin ich grad in meiner Schule, und wir machen grad was anderes. Ich werde aber die Möglichkeiten durchtesten. Ich sag wieder bescheid, wenn ich eine Frage habe oder alles ok ist.

[zapper54]

So, ich melde mich doch noch einmal.

In letzter Zeit hatte ich einfach keine Lust mehr, daran zu basteln.

Zitat:

var
Hindernisse: TObjectList;

{...}
Hindernisse := TObjectList.Create;
Hindernisse.OwnsObjects := False;
Hindernisse.Add(ImageHindernis1);
{...}

function IsKollision(APferdImage: TImage): Boolean;
var
Hinderniss: TObject;
Rx, R1: TRect;
begin
R1 := APferdImage.BoundsRect;
for i := 0 to Hindernisse.Count - 1 do
begin
Hinderniss := Hindernisse[i];
if Hinderniss is TImage then
begin
Result := IntersectRect(Rx, R1, TImage(Hinderniss).BoundsRect);
if Result then
Exit;
end;
end;
Result := False;
end;

Das hört sich für mich ganz gut an, aber wie ist das mit der TObjektList gemeint? Wie erstellt man die?

[Blup]

TObjectList ist eine fertige Klasse die Delphi in der Unit "Contnrs" zur Verfügung stellt.

Zitat von Delphi-Hilfe zu 'TObjectList':

Mit TObjectList können Sie eine Liste von Objekten speichern und verwalten. ...

Bitte selbständig weiterlesen.

Erstellen in diesem Fall:

Delphi-Quellcode:

Hindernisse := TObjectList.Create; 
Hindernisse.OwnsObjects := False; // da die Hindernisse vermutlich dem Formular gehören