Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Bouncepad erkennen lassen und whiles zusammenführen
PongPong - Fr 01.07.22 11:33
Titel: Bouncepad erkennen lassen und whiles zusammenführen
Vorab: Ich bin Anfänger und hab als Aufgabe eine Art "Pong" zu erstellen.
Guten Tag. Ich hätte da 2 Fragen, bei denen ich hoffe, dass mir da jemand helfen kann.
Zur ersten: Wie kann ich diese ganzen Whiles für die Richtungen in die der Ball springt zusammenfassen, so dass er dauerhaft weiter springt, bis er unter dem Bouncepad landet? Aktuell hab ich alles in einzelnen whiles und müsste für eine lange Runde noch sehr viel mehr while Schleifen erstellen, damit er immer weiter bounct.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
|
while Ball.Top < 1009 do
begin
Ball.Left := Ball.Left + BallSpeed;
Ball.Top := Ball.Top + BallSpeed;
Refresh;
end;
BallSpeed := - BallSpeed;
while Ball.Top > 0 do
begin
Ball.Left := Ball.Left + 1;
Ball.Top := Ball.Top + BallSpeed;
Refresh;
end;
while Ball.Top < 1009 do
begin
Ball.Left := Ball.Left + BallSpeed;
Ball.Top := Ball.Top + 1;
Refresh;
end;
while Ball.Top > 0 do
begin
Ball.Left := Ball.Left - 1;
Ball.Top := Ball.Top - 1;
Refresh;
end;
while Ball.Top < 1009 do
begin
Ball.Left := Ball.Left + BallSpeed;
Ball.Top := Ball.Top + 1;
Refresh;
end; |
Die 2.Frage: Wie tracke ich, dass der Ball das sich bewegende Bouncepad trifft, damit der Ball dann in andere Richtungen fliegt und Punkte im Highscore gesammelt werden können?
LG
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2024 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!