RandomRange() oder Random() beim Bewegen einer Komponente

[baumina]

Vielleicht Randomize vergessen.

[DeddyH]

Das ist eine Menge Code für ein wenig Bewegung. Zullererst solltest Du auf jeden Fall die ganzen Vergleiche mit true entfernen (siehe z.B. hier). Und eigentlich braucht man die ganzen Boolean-Variablen gar nicht, es genügt doch je ein Integerwert für die X- und die Y-Achse, das Vorzeichen bestimmt dann die Richtung.

P.S.: Gruß ins Sauerland, da bin ich geboren und aufgewachsen

[edit]P.P.S: Sry, Willkommen in der DP [/edit]

[faCee]

Zitat von DeddyH:

Das ist eine Menge Code für ein wenig Bewegung. Zullererst solltest Du auf jeden Fall die ganzen Vergleiche mit true entfernen (siehe z.B. hier). Und eigentlich braucht man die ganzen Boolean-Variablen gar nicht, es genügt doch je ein Integerwert für die X- und die Y-Achse, das Vorzeichen bestimmt dann die Richtung.

P.S.: Gruß ins Sauerland, da bin ich geboren und aufgewachsen

[edit]P.P.S: Sry, Willkommen in der DP [/edit]

Ich hatte erst gar nicht gedacht, dass für Pong soviel anfällt.
Habe den Eintrag auf delphi-treff gelesen und das Spiel noch mal umprogrammieren.

Apropos, wenn ich auf Zufallszahlen verzichten wollte, wie würde ich am besten die Winkel berechnen?
Habe im Netz Beiträge dazu gelesen, aber bin nicht ganz schlau draus geworden.

Gruß zurück, wunderschöne Region.

[DeddyH]

Wenn ich an das originale Pong zurückdenke (ich bin so alt, dass ich das noch kenne), dann war der Winkel von der Aufprallposition auf dem Schläger abhängig: je weiter außen, desto steiler.

[faCee]

Zitat von DeddyH:

Wenn ich an das originale Pong zurückdenke (ich bin so alt, dass ich das noch kenne), dann war der Winkel von der Aufprallposition auf dem Schläger abhängig: je weiter außen, desto steiler.

Alles klar, vielen Dank! Klemme mich gleich dahinter und erstatte Bericht, wenn's fertig ist.

[DeddyH]

Gern geschehen. Anregungen sollten sich übrigens auch hier im Forum finden lassen: Kollisionskontrolle Ballbewegung Pong

[faCee]

So,

habe mich grad an das Neuprogrammieren der Prozedur gewagt und habe leider mein erstes Problem.
Zuerst will, dass der Ball sich nach unten bewegt und vom Spieler-Balken (der später mal in 3 Sektoren unterteilt sein wird, was aber erst noch kommt) abprallt.

Allerdings fliegt der Ball einfach durch den Schläger.

Hier der Quelltext:

Delphi-Quellcode:

//Falls der Ball auf den unteren Balken trifft

   if (shpBall.Top = (shpSP1.Top - 10)) then
    begin
      vY := (vY * (-1));
    end;

//Bewegung des Balles
   shpBall.Top := (shpBall.Top + vY);     //Steuert vertikal!
   shpBall.Left := (shpBall.Left + vX);   //Steuert horizontal!

Erläuterung: shpSP1 ist die Shape-Komponente die den Balken des Spielers darstellt. shpBall ist der Ball.

Gruß

[faCee]

Zitat von baumina:

Vielleicht Randomize vergessen.

Nein,

Randomize()

ist in Form1.Create drinne...