Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Hallo,

ersetzte mal die Funktion "TSprite.GetCollisionField" durch die Folgende:

Delphi-Quellcode:

function TSprite.GetCollisionField: TRect;
var r:TRect;
begin
  r := GetFieldCoords;

  result.Left := r.Left - 1;
  if result.Left < Engine.SpriteField.StartX then
  begin
    result.Left := FEngine.SpriteField.StartX;
  end;

  result.Top := r.Top - 1;
  if result.Top < Engine.SpriteField.StartY then
  begin
    result.Top := FEngine.SpriteField.StartY;
  end;

  result.Right := r.Right + 1;
  if result.Right > Engine.SpriteField.EndX - 1 then
  begin
    result.Right := FEngine.SpriteField.EndX - 1;
  end;

  result.Bottom := r.Bottom + 1;
  if result.Bottom > Engine.SpriteField.EndY - 1 then
  begin
    result.Bottom := FEngine.SpriteField.EndY - 1;
  end;
end;

Dann läuft es - das "-1" hat gefehlt. Ich werde da aber mal nochmal genauer nachschauen, ob "EndX/Y" nicht generell 1 kleiner sein sollte.

Zu deinem Spiel: Echt Klasse! Weiter so!