Pong programmieren

[Mesion]

Guten Abend,
und vielen Dank für deine Antwort p80286

Das mit dem Debugger wusste ich noch gar nicht, vielen Dank für den Tipp.
Mit den Schlägern ist gleichzeitig die XKoordinate hinzugekommen, weil bei den Banden habe ich die ja nicht gebraucht.
Was ich dazu sagen muss, ich habe 3 verschiedene Kollisionssysteme.
Einmal für die Banden und dann jeweils Eins für den Schlaeger1 und Schlaeger2.
Morgen habe ich Informatik und werde mir das dann nochmal genau im Debugger anschauen.

MfG Mesion

[Blup]

Es arbeitet sich wesentlich besser mit einem Geschwindigkeitsvektor als mit dem Winkel
(Geschwindigkeit in x- und y-Richtung in zwei verschiedenen Variablen).

Delphi-Quellcode:

TGeschwindigeit: record
  dx, dy: Double;
end;

procedure derBall.Bandenkollision;
begin
  Geschwindigkeit.dy := -Geschwindigkeit.dy;
end;

procedure derBall.Schlägerkollision;
begin
  Geschwindigkeit.dx := -Geschwindigkeit.dx;
end;

function derBall.bewegt_sich_nach_links : Boolean;
begin
  Result := (Geschwindigkeit.dx < 0);
end;

function derBall.bewegt_sich_nach_rechts : Boolean;
begin
  Result := (Geschwindigkeit.dx > 0);
end;

function derBall.bewegt_sich_nach_oben : Boolean;
begin
  Result := (Geschwindigkeit.dy < 0);
end;

function derBall.bewegt_sich_nach_unten : Boolean;
begin
  Result := (Geschwindigkeit.dy > 0);
end;

procedure derBall.bewegeDich;
begin
  XKoordinate := XKoordinate + Geschwindigkeit.dx;
  YKoordinate := YKoordinate + Geschwindigkeit.dy;
end;

Zum eigentlichen Problem:

Delphi-Quellcode:

  //Kollisionssystem von Schlaeger1
    if derBall.bewegt_sich_nach_links then
    begin
      If  (derBall.XKoordinate >= Schlaeger1.XKoordinate)
      and (derBall.YKoordinate >= Schlaeger1.YKoordinate)
      and (derBall.YKoordinate <= (Schlaeger1.YKoordinate+Schlaeger1.Breite)) then
      begin
        derBall.Schlaegerkollision;
      end;
    end;

    //Kollisionssystem von Schlaeger2
    if derBall.bewegt_sich_nach_rechts then
    begin
      If  (derBall.XKoordinate >= Schlaeger2.XKoordinate)
      and (derBall.YKoordinate >= Schlaeger2.YKoordinate)
      and (derBall.YKoordinate <= (Schlaeger2.YKoordinate+Schlaeger2.Laenge)) then
      begin
        derBall.Schlaegerkollision;
      end;
    end;

    //Kollisionssystem von den Aussenwänden
    If derBall.bewegt_sich_nach_oben then
    begin
      if derBall.YKoordinate <= dasFeld.gibYKoordinate then
      begin
        derBall.Bandenkollision;
      end;
    end;

    //Kollisionssystem von den Aussenwänden
    if derBall.bewegt_sich_nach_unten then
    begin
      If derBall.YKoordinate >= (dasFeld.gibYKoordinate+dasFeld.Laenge) then
      begin
        derBall.Bandenkollision;
      end;
    end;

[Mesion]

Vielen Dank für deine Antwort Blup

Aber ich habe eine Frage: TGeschwindigkeit ist bei dir ja eine eigene Klasse, aber wie kann die dann auf ,,derBall'' zugreifen, bzw. wie müsste ich das in mein Programm einbinden?

MfG Mesion

[DeddyH]

Ich habe den Code nicht im Einzelnen verfolgt, aber soweit ich das richtig sehe, ist es genau andersherum: der Ball verfügt über ein privates Feld oder eine Property vom Typ TGeschwindigkeit. Also greift der Ball auf die Geschwindigkeit zurück und nicht umgekehrt.

[Mesion]

Danke für deine Antwort DeddyH
Und was hat das mit dem record auf sich?
Könnte ich nicht auch einfach die 4 Variablen und Methoden direkt in derBall einfügen?

MfG Mesion

[DeddyH]

Kannst Du schon, aber mit dem Record hast Du die zugehörige X- und Y-Koordinate gleich zusammen.

[Mesion]

Das verstehe ich jetzt nicht so ganz, wo da der Unterschied.
Das wäre voll nett von dir, wenn du mir das erklären könntest.
Wofür steht das record überhaupt?

MfG Mesion