Better code readability
authorSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Thu, 21 Aug 2025 17:21:17 +0000 (20:21 +0300)
committerSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Thu, 21 Aug 2025 17:21:17 +0000 (20:21 +0300)
Games/Pomppu Paavo.bas

index bf18cf3..628fcc1 100755 (executable)
@@ -440,13 +440,30 @@ IF sipa = 3 THEN sipa = 1
 GOTO 106\r
 \r
 SUB DisplayGameStatistics\r
+'\r
+' Updates and displays the game's status information (coins collected, lives remaining)\r
+' Handles game over condition when lives reach zero.\r
+'\r
+' This subroutine is called whenever the game state changes that affects statistics:\r
+' - When a coin is collected\r
+' - When the player loses a life\r
+' - Periodically during gameplay\r
+\r
 LOCATE 1, 1\r
-IF graphicsMode = 2 THEN GOTO 12\r
+IF GraphicsMode% = 2 THEN GOTO SkipTextDisplay\r
+\r
+' Clear previous stats display\r
 PRINT "                "\r
+\r
+' Award extra life every 10 coins collected\r
 IF CoinsCollected% > 9 THEN CoinsCollected% = 0: LivesRemaining% = LivesRemaining% + 1\r
+\r
+' Display current game statistics\r
 LOCATE 1, 1\r
 PRINT "o "; CoinsCollected%; "  Lives "; LivesRemaining%\r
-12\r
+\r
+SkipTextDisplay:\r
+' Check if player has run out of lives\r
 IF LivesRemaining% < 0 THEN END\r
 END SUB\r
 \r