From e39850971adb7f72ab7f7e3bff29e6115a7af1fa Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 13 Aug 2025 18:18:43 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas index 6a2d7ab..2c9d4b0 100755 --- a/Games/Pomppu Paavo/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo/Pomppu Paavo.bas @@ -51,7 +51,7 @@ DIM SHARED mobY(1 TO 10) DIM SHARED kollal(1 TO 10) DIM SHARED kolled(1 TO 10) -DIM SHARED rahaz(1 TO 5) +DIM SHARED hudCoinDigits(1 TO 5) DIM SHARED number(100, 0 TO 11) DIM SHARED lives @@ -535,16 +535,16 @@ DEFINT A-Z SUB UpdateHUD (zaz) IF lives < 0 THEN GameOverSequence PUT (0, 180), munt1, PSET -rahaz(1) = rahaz(1) + zaz +hudCoinDigits(1) = hudCoinDigits(1) + zaz FOR b = 1 TO 3 -IF rahaz(1) > 9 THEN rahaz(1) = rahaz(1) - 10: rahaz(2) = rahaz(2) + 1 -IF rahaz(2) > 9 THEN rahaz(1) = 0: rahaz(2) = 0: lives = lives + 1 +IF hudCoinDigits(1) > 9 THEN hudCoinDigits(1) = hudCoinDigits(1) - 10: hudCoinDigits(2) = hudCoinDigits(2) + 1 +IF hudCoinDigits(2) > 9 THEN hudCoinDigits(1) = 0: hudCoinDigits(2) = 0: lives = lives + 1 NEXT b LOCATE 1, 1 r = 3 FOR a = 1 TO 2 r = r - 1 -PUT ((a * 11) + 10, 180), number(100, rahaz(r)), PSET +PUT ((a * 11) + 10, 180), number(100, hudCoinDigits(r)), PSET NEXT a IF lives > 10 THEN lives = 10 PUT (43, 180), number(100, 10), PSET -- 2.20.1