Better code readability
authorSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Wed, 13 Aug 2025 15:18:43 +0000 (18:18 +0300)
committerSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Wed, 13 Aug 2025 15:18:43 +0000 (18:18 +0300)
Games/Pomppu Paavo/Pomppu Paavo.bas

index 6a2d7ab..2c9d4b0 100755 (executable)
@@ -51,7 +51,7 @@ DIM SHARED mobY(1 TO 10)
 DIM SHARED kollal(1 TO 10)\r
 DIM SHARED kolled(1 TO 10)\r
 \r
-DIM SHARED rahaz(1 TO 5)\r
+DIM SHARED hudCoinDigits(1 TO 5)\r
 DIM SHARED number(100, 0 TO 11)\r
 DIM SHARED lives\r
 \r
@@ -535,16 +535,16 @@ DEFINT A-Z
 SUB UpdateHUD (zaz)\r
 IF lives < 0 THEN GameOverSequence\r
 PUT (0, 180), munt1, PSET\r
-rahaz(1) = rahaz(1) + zaz\r
+hudCoinDigits(1) = hudCoinDigits(1) + zaz\r
 FOR b = 1 TO 3\r
-IF rahaz(1) > 9 THEN rahaz(1) = rahaz(1) - 10: rahaz(2) = rahaz(2) + 1\r
-IF rahaz(2) > 9 THEN rahaz(1) = 0: rahaz(2) = 0: lives = lives + 1\r
+IF hudCoinDigits(1) > 9 THEN hudCoinDigits(1) = hudCoinDigits(1) - 10: hudCoinDigits(2) = hudCoinDigits(2) + 1\r
+IF hudCoinDigits(2) > 9 THEN hudCoinDigits(1) = 0: hudCoinDigits(2) = 0: lives = lives + 1\r
 NEXT b\r
 LOCATE 1, 1\r
 r = 3\r
 FOR a = 1 TO 2\r
 r = r - 1\r
-PUT ((a * 11) + 10, 180), number(100, rahaz(r)), PSET\r
+PUT ((a * 11) + 10, 180), number(100, hudCoinDigits(r)), PSET\r
 NEXT a\r
 IF lives > 10 THEN lives = 10\r
 PUT (43, 180), number(100, 10), PSET\r