Pong Schläger Problem

[tobyV12]

Hi,

ich versuche gerade ein Pong-Spiel zu schreiben.

Momentan habe ich das Problem, dass der Ball nicht von den Schlägern abprallt.

Wie könnte ich dieses Problem lösen?

Vielen Dank für eure Hilfe.

[mkinzler]

Zeig mal, was du schon hast und wir zeigen dir dann, wo der Fehler liegt.

[tobyV12]

Würde ich gerne aber zu den Schlägern habe ich noch keinen Code, da ich nicht weiß wo ich Anfagen soll.

Ich bräuchte also einen Lösungsansatz, wie ich überprüfen kann ob der Ball den Schläger berührt.

[mkinzler]

Den Ball hast du aber schon? Wiewo speicherst du die Koordinaten von ball Schläger, Tor usw.?
Eine Kollisionserkennung erfolgt ja durch Vergleich dieser Koordinaten.

[rollstuhlfahrer]

Der Ball hat bestimmt eine X und eine Y-Koordinate. Dann hat er noch eine Breite und eine Höhe. Dann gibt es einen Schläger. Der hat eine Abprallkante. Diese hat 2 X/Y-Koordinaten (oben/unten oder rechts/links). Dann musst du nur vergleichen ob der Ball einen Abstand von 0 zu deiner Kante hat.

Bernhard

[tobyV12]

Ich habe es mal versucht aber bekomme es nicht richtig hin.

Delphi-Quellcode:

var
  x, y : double;
begin
  x := schlaeger_2.top - schlaeger_2.width;
  y := schlaeger_2.left - schlaeger_2.height;
  label4.caption := FloatToStr(x) + '   ' + FloatToStr(y);

  if (ball.Left >= schlaeger_2.left) and (ball.Top >= schlaeger_2.top) then
  begin
    form2.show;
  end;

Das war einfach nur zum testen, ob es funktioniert.

[tobyV12]

Hat noch jemand eine andere Idee oder einenen Beispiel-Codeausschnitt?

[mkinzler]

Deine x und y sind aber ausserhalb des Schlägers.

Die zu vergleichende Position muss >= der oberen Kante ( Top), <= der unteren Kante ( Top+Height), >= der linken Kante (Left) und <= der rechten Kante ( Left+Width) sein.

Btw. wir sehen es nicht gern, wenn man pusht.

[tobyV12]

Danke für deine, bzw. eure Hilfe.

Ich habe das einmal versucht:

Delphi-Quellcode:

  if (ball.top >= schlaeger_2.Top) and (ball.Top <= (schlaeger_2.Top + schlaeger_2.Height)) and (ball.Left >= schlaeger_2.Left) and (ball.Left <= (schlaeger_2.Left + schlaeger_2.Width))  then
  begin
    form2.Show; //einfach irgendwas machen
  end;

Es funktioniert aber leider immer noch nicht.

Sorry wegen dem pushen und danke für den Hinweis.

[mkinzler]

Du hast ja bisher auch nur den Punkt links oben des Balles abgeprüft.

[tobyV12]

Sorry, aber wie soll es denn richtig sein?

[mkinzler]

Der Ball besteht ja nicht nur aus dem einen Punkt? Um wiviel Pixel bewegt sich den der Ball pro Frame?

[tobyV12]

Hier ist mein gesamter Code bis jetzt.

Delphi-Quellcode:

unit pong01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids;

type
  TForm1 = class(TForm)
    schlaeger_1: TShape;
    schlaeger_2: TShape;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ball: TShape;
    Timer1: TTimer;
    Timer2: TTimer;
    Shape1: TShape;
    Timer3: TTimer;
    Label4: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses pong02;

{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
    buffer_schlaeger_1, buffer_schlaeger_2 : char;
 begin

//Schläger 1
//
//Abfrage, ob Taste gedrückt wurde (Schläger 1)
  case Key of
    Word('W') : buffer_schlaeger_1 := '1';
    Word('S') : buffer_schlaeger_1 := '2';
  end;

//Bewegungen von Schläger 1
  case buffer_schlaeger_1 of
    '1' : schlaeger_1.top := schlaeger_1.top - 2;
    '2' : schlaeger_1.top := schlaeger_1.top + 2;
  end;

//Schläger 2
//
//Abfrage, ob Taste gedrückt wurde (Schläger 2)
  case Key of
    Word(VK_UP) : buffer_schlaeger_2 := '1';
    Word(VK_DOWN) : buffer_schlaeger_2 := '2';
  end;

//Bewegungen von Schläger 2
  case buffer_schlaeger_2 of
    '1' : schlaeger_2.top := schlaeger_2.top - 2;
    '2' : schlaeger_2.top := schlaeger_2.top + 2;
  end;

  if schlaeger_1.Top = 4 then
    begin
      schlaeger_1.top := 6;
    end;

  if schlaeger_1.Top = 264 then
    begin
      schlaeger_1.top := 262;
    end;

  if schlaeger_2.Top = 4 then
    begin
      schlaeger_2.top := 6;
    end;

  if schlaeger_2.Top = 264 then
    begin
      schlaeger_2.top := 262;
    end;



 end;






procedure TForm1.FormShow(Sender: TObject);
begin
//
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ball.Left := ball.Left + 8;
  ball.Top := ball.top - 8;

  label1.caption := IntToStr(ball.left);
  label2.Caption := IntToStr(ball.top);

  if ball.Top <= 0 then
    begin
      timer1.enabled := false;
      timer2.enabled := true;
    end;

    If ((ball.left) >= (Schlaeger_2.left))
    and ((ball.top) >= (Schlaeger_2.top))
    and ((ball.top) <= (Schlaeger_2.top+Schlaeger_2.Width)) then
    begin

        ball.Left := ball.Left + 8;
         ball.Top := ball.top - 8;

    end;





end;

procedure TForm1.Timer2Timer(Sender: TObject);
  var
    bereich : double;
    v : integer;
begin

  v := 6;
  ball.Left := ball.left + 8;                     
  ball.top := ball.top + 8;
  label1.caption := IntToStr(ball.left);
  label2.Caption := IntToStr(ball.top);

  if ball.Top >= 340 then
    begin
      timer1.enabled := true;
      timer2.enabled := false;
    end;

  if ball.left >= 800 then
    begin
      form2.show;
      timer1.enabled := false;
      timer2.enabled := false;
    end;

  if ball.left <= 50 then
    begin
      form2.show;
      timer1.enabled := false;
      timer2.enabled := false;
    end;


end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
  x, y : double;
begin



  x := schlaeger_2.top;
  y := schlaeger_2.left;
  label4.caption := FloatToStr(x) + '   ' + FloatToStr(y);

  if (ball.top >= schlaeger_2.Top) and (ball.Top <= (schlaeger_2.Top + schlaeger_2.Height)) and (ball.Left >= schlaeger_2.Left) and (ball.Left <= (schlaeger_2.Left + schlaeger_2.Width))  then
  begin
    form2.Show; //einfach irgendwas machen
  end;

end;

end.

Der Ball soll sich mit 8x8 Pixeln bewegen. Aber momentan sind die Schläger für mich am wichtigsten.

Nochmals vielen Dank.

[mkinzler]

Wenn die Delta zu groß sind, könnte der Ball über den Schläger springen, wenn die Höhe des Schlägers oder Balls kleiner ist.

Delphi-Quellcode:

if ((ball.top >= schlaeger_2.Top) and (ball.Top <= (schlaeger_2.Top + schlaeger_2.Height)) and (ball.Left >= schlaeger_2.Left) and (ball.Left <= (schlaeger_2.Left + schlaeger_2.Width))) or 
(((ball.top + ball.height) >= schlaeger_2.Top) and ((ball.Top +ball.height) <= (schlaeger_2.Top + schlaeger_2.Height)) and ((ball.Left+ ball.width) >= schlaeger_2.Left) and ((ball.Left + ball.widith) <= (schlaeger_2.Left + schlaeger_2.Width)))
then

Ich würde die Überprüfung auf Kollision direkt bei der Animation machen und nicht in einem gesonderten Timer.

[tobyV12]

Danke, dass hat funktioniert.

Ich musste die Geschwindigkeit nur anpassen, da er bei 8 Pixeln über den Balken springt.

Kann ich irgendwie die Geschwindigkeit erhöhen aber immer noch den Balken treffen ?

[mkinzler]

-Timer öfters aufrufen (ggf. nicht jedes Mal Zeichnen)
-Abfrage entsprechend anpassen

[tobyV12]

Vielen Dank für deine Hilfe.

Ich hoffe das ich ab hier alleine weiter machen kann.

Super Forum.