Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi ballbewegung in breakout spiel (https://www.delphipraxis.net/115773-ballbewegung-breakout-spiel.html)

Ricoo 17. Jun 2008 21:29


ballbewegung in breakout spiel
 
hallo leute =)

ich bin gerade dabei mich an einem breakout-clon zu versuchen. dazu hab ich mir mal die tutorials zu andorra 2d angeschaut.
nun bin ich soweit, dass ich ein spielfeld und einen schieber hab, den man auch schon bewegen kann.

wie der ball sich im prinzip bewegt weiss ich, kenn ich ja vom schieber her.
mein problem ist, dass ich das mit den kollisionen und der flugbahn nicht so ganz hinbekomme.. mir fehlt da irgentwie der ansatz und ich weiss so gar nicht wie man das realisieren könnte.

es wäre toll wenn mir das mal jemand kurz, stichwortartig erklären könnte oder wenigstens ein paar stichwörter für google nennen könnte.
ein beispiel wäre natürlich am besten :D

gruß

igel457 17. Jun 2008 21:36

Re: ballbewegung in breakout spiel
 
Schau doch mal in den Demos zu Andorra 2D - da ist ein kleines Breakoutspiel dabei. Auch wenn dieses noch etwas verbesserungswürdig ist.

Nils_13 17. Jun 2008 21:39

Re: ballbewegung in breakout spiel
 
Hi,

wenn ich es mir mal so überlege, ist der Balken ähnlich wie ein Pong-Balken. Daher kann ich dir mal gerade einen uralten Codeausschnitt meines Pong-Klons geben:
Delphi-Quellcode:
procedure TfrmMain.tTimer(Sender: TObject);
var Toleranz : Integer;
begin
  Toleranz := Ball.Width div 2;
  // KI-Aktivierung
  KI;

  // Vereinbarungen
  Ball.Left := Ball.Left + XSpeed;
  Ball.Top := Ball.Top + YSpeed;

  // Ballkollision
  if (Abs(Ball.Left - Enemy.Left) <= 5) and (Abs(Ball.Top - Enemy.Top) <= 5) then
    XSpeed := -XSpeed;
  if (Ball.Top > Player1.Top -1-Toleranz) and (Ball.Top < Player1.Top + Player1.Height +1+Toleranz) and (Ball.Left = Player1.Left+Player1.width) then
    XSpeed := -XSpeed;

  // Kollisionserkennung
  if Ball.Left < 0 then
  begin
    t.Enabled   := False;
    Ball.Visible := False;
    go_p2;
  end;
end;

mimi 20. Jun 2008 22:09

Re: ballbewegung in breakout spiel
 
Das könntest du auch erstmal so lösen:
du hast zwei Boolean Variablen: z.b. links und Oben. bei einer Kollision vertauscht du diese.
Beim zeichnen des Balles musst du natürlich dann aufpassen z.b
Delphi-Quellcode:
if links then
  Ball.x-1
else
  ball.x+1

if Oben then
  ball.y-1
else
  ball.y+1
Es gibt zwar bessere Möglichkeiten, aber davon kenne ich noch keine. Ich meine sogar bei einer Delphi Version war mal so ein Pong als Beispiel dabei....
Und hier im Forum meine ich auch in der Code-Lib

OldGrumpy 22. Jun 2008 09:57

Re: ballbewegung in breakout spiel
 
Die grundlegende Variante ist "Einfallswinkel gleich Ausfallswinkel", sprich wenn der Ball auf den Schläger trifft, kehrt sich seine Bewegung in Richtung des Schlägers um. Ein Codebeispiel für diese Variante gibts weiter oben schon, dort wird mit zwei Variablen die Bewegung hoch/runter und links/rechts separat verarbeitet.

Die fortgeschrittenere Variante wäre dass sich der Ausfallswinkel ändert, je nachdem wo der Ball auf den Schläger trifft. In der Mitte bleibt alles wie gehabt, trifft der Ball jedoch auf die Aussenbereiche des Schlägers, bekommt er einen seitlichen Drall. Kann man sich als elastischen Aufprall vorstellen: Der Ball verformt sich beim Aufprall auf den Schläger, wenn er dabei über den Rand des Schlägers hinausragt, bewirkt das einen Drehimpuls zur Seite und der Ausfallwinkel wird flacher/steiler (je nach Richtung aus der der Ball kam und auf welche Kante er prallte) als der Einfallswinkel.

mimi 22. Jun 2008 10:27

Re: ballbewegung in breakout spiel
 
Könntest du mal zur "fortgeschrittenere Variante" ein kleines beispiel machen ?
Bisher habe ich immer nur die einfache Variante gekannt und auch umgesetzt.

OldGrumpy 22. Jun 2008 10:55

Re: ballbewegung in breakout spiel
 
Erinner mich bitte Mitte nächster Woche nochmal daran, ich schwitze gerade an einem Abgabetermin und hab deswegen wenig Zeit. :(

mimi 22. Jun 2008 11:05

Re: ballbewegung in breakout spiel
 
Vielen Dank erstmal.... werde ich machen.
Dann viel glück das du es noch rechtzeitig schaffst.

Das Beispiel muss ja nicht groß sein, nur ein kleines *G*

Gandalfus 22. Jun 2008 12:26

Re: ballbewegung in breakout spiel
 
man könnte einfach die geschwindigkeit den schlägers zu der des ballles addieren (Vektoren).
zur Bewegung: http://wiki.delphigl.com/index.php/Timebased_Movement

mimi 23. Jun 2008 10:44

Re: ballbewegung in breakout spiel
 
Das mit den Vektoren habe ich bis heute noch nicht verstanden:
Sind das einfache TPoints ? z.b.
in den die Richtung drin steht ?
z.b.
TPoint.x:=4 TPoint.y:=5
?

Und jetzt müsste ich nur noch meine Object Position + dem TPoint machen ?
und wenn da ein - drin steht macht er das trotzdem ? z.b. wenn der Ball nach Links fliegen soll.
Evlt. sind das auch zu große werte die ich als beispiel genommen habe. Sollte ich bei einem BreakOut Clone kleinere Werte nehmen ? z.b. 0.4 oder so ? Damit es eine leichte Abweichung gibt ?

Aber ich frage mich da wie man die dann Vertauschen könnte.
(Zum Thema habe ich mir aber schon einige Tutorials angesehen)


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:02 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz