Andorra 2D [Ver. 0.4.5.1, 31.12.08]

[igel457]

Diese Fälle musst du bei der Kollisionsürpfung eben alle abfangen - da kann dir Andorra 2D nicht helfen. In meinen Spielen habe ich das folgendermaßen gemacht:

Delphi-Quellcode:

TCollisionEdge = (ceLeft, ceTop, ceRight, ceBottom);
TCollisionEdges = set of TCollisionEdge;

procedure DoMove(timegap:double);
begin
  CollisionEdges := [];

  Collision;

  if ceTop in CollisionEdges then ...
end;

procedure DoCollision(Sprite:TSprite; var Done:boolean);
begin
  wenn kollision dann
    wenn oben then CollisionEdges := CollisionEdges + [ceTop];
    wenn unten then CollisionEdges := CollisionEdges + [ceBottom];
    .
    .
    .
end;