no spawn right angle ball speed

psywave-games · Sep 1, 2020 · 86af1b3 · 86af1b3
1 parent baa0e61
commit 86af1b3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/game.pas b/src/game.pas
@@ -40,7 +40,7 @@
             ball.x := screenWidth div 2;
             ball.y := screenHeight div 2;
             ballSpeed.x := -ballSpeedMin;
-            ballSpeed.y := Randomrange(-ballSpeedMin, ballSpeedMin);
+            repeat ballSpeed.y := Randomrange(-ballSpeedMin, ballSpeedMin) until ballSpeed.x <> 0;
             player := RectangleCreate(padding, Trunc(screenHeight / 2) - Trunc(barSize.y / 2), Trunc(barSize.x), Trunc(barSize.y));
         end;
         // game code