Andorra 2D Frage: Wie antworte ich auf eine Kollision?

[Spiderpig_GER_15]

Hi,

bin gerade dabei Andorra zu lernen, un habe vor ein Fangen Spiel zu Programmieren.
Ich bin so weit das man 2 figuren steuern kann die dann über den bildschirm flitzen, nur
ich weiß nicht wie ich schauen kann ob die sich berührt(kollidiert) haben.

Habe keine Ahnung wie das geht, aus den Beispielen kann ich es auch nicht entnehmen, hoffe
mir kann jemand helfen

MfG

Spiderpig

[igel457]

Wenn du die Spriteengine verwendest, dann funktioniert dies eigentlich ganz einfach. Schau dir mal in den Demos

• Wormhunter
• PixelCheck
• Breakout

die Methode "DoCollision" sowie den Aufruf von "Collision" an.

Wenn du die Spriteengine nicht verwendest, musst du manuell überprüfen ob sich die beiden Grenzrechtecke der Grafiken überschneiden.

[Spiderpig_GER_15]

ich kriege es immernoch nicht hin :(

Delphi-Quellcode:

type
  TMario = class(TImageSprite)
    private
    protected

    public
      constructor Create(AParent:TSprite);override;
      procedure GoRight   ;
      procedure GoLeft    ;
      procedure GoUp      ;
      procedure GoDown    ;
      procedure SetStartPosition;
      procedure DoCollision(Sprite: TSprite; var done: boolean); override;

  end;

Delphi-Quellcode:

procedure TMario.GoRight;
begin
inherited;
Image:=MyImageList.Find('MarioRIGHT');
X:=X + 0.4;
MyMario.AnimStart:=1;
MyMario.AnimStop :=2;
MyMario.AnimLoop:=true;
MyMario.AnimActive:=true;
MyMario.AnimSpeed:=30;
Collision;
end;

und

Delphi-Quellcode:

procedure TMario.DoCollision(Sprite: TSprite; var done: boolean);
begin
  if Sprite is TSnake then
  begin
    showmessage('geht');
  end;
end;

ich weiß nciht was daran falsch ist, es tut sich einfach garnichts :(

MfG Spiderpig

[Nuclear-Ping]

Hab schon 'ne Weile nix mehr mit Andorra gemacht, aber fehlt da nicht noch 'ne "DoMove"-Routine? Bei mir ruft diese "Collision" auf.

Delphi-Quellcode:

procedure TSpriteFigure.DoCollision(Sprite: TSprite; var Done: boolean);
begin
  CollisionEdges := [];
  FHitsEnemy := FALSE;
  FWallCollision := FALSE;

  if FDead then
    Exit;

  GetCollisionEdges;

  if (Sprite is TWall) then
    begin
      // ...
    end;
end;

procedure TSpriteFigure.DoMove(TimeGap: Double);
begin
  inherited;

  FTimeGap := TimeGap;
  FTargetSprite := nil;

  // ...

  Collision;

  XSpeed := 0;
  YSpeed := 0;

  if FWillDie then
    begin
      // ...
    end;
end;

Und soweit ich weiß, macht das die Demo auch so? :gruebel:

[NickelM]

LOL MAchst ein spiel mit Mario :mrgreen:
Das ist mein Vorname :bounce2:

[Spiderpig_GER_15]

ja,
du kennst nich zufällig superMario?
Ist ein bischen kopiert, vor allem Die Figur :mrgreen:

Achso, danke für die Tipps, habs hinbekommen, der Fehler war ein anderer... :oops:
*ist mir aber peinlich welcher* :lol:

MfG Spiderpig