Kollisionsabfrage

[shmia]

Hi, dein Vorhaben ist auch noch etwas zu schwer für Dich.
Space Invaders sieht einfach aus, aber Spieleprogrammierung ist halt die Königsdiziplin beim Programmieren.

Delphi-Quellcode:

procedure p_schuss(var x,y:integer);  // Parameterliste sollte genau so sein, wie oben deklariert
var geschoss:trect;
begin
  if schuss1 then
  begin
    y := y - 4;  // Geschoss bewegen

    geschoss:=rect(x,y,x+1,y+6);
//  keine Ahnung woher diese Werte -38, -33 usw kommen, aber hier muss evtl etwas angepasst werden 
//    geschoss:=rect(x-38,y-33,x-36,y-18);
    if KollisionMitImage(form1.image3, geschoss) then
    begin
      form1.image3.visible:=false;
      schuss1 := false;
    end
    else
    begin
      form1.Image1.canvas.rectangle(geschoss);  // Geschoss zeichnen
    end;
  end;
end;