From f55c86fb94b3c8d3a7fcda36103609de16b9a3b1 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 20 Aug 2025 01:09:54 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo.bas | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index e257d41..16c81d5 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -18,7 +18,7 @@ DEFINT A-Z
 DIM SHARED graphicsMode
 DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31
 DIM SHARED hedgehogY, hedgehogX, secondHedgehogY, secondHedgehogX
-DIM SHARED elu, raha
+DIM SHARED remainingLives, raha
 DIM SHARED uks1, uks2, uks3, uks4
 DIM SHARED maa
 DIM SHARED text$(1 TO 1000)
@@ -82,7 +82,7 @@ vas7$ = CHR$(0) + "K"
 par7$ = CHR$(0) + "M"
 ule7$ = CHR$(0) + "H"
 all7$ = CHR$(0) + "P"
-elu = 10
+remainingLives = 10
 SCREEN 1
 maa = 1
 REM joonist
@@ -245,7 +245,7 @@ IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 
-qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -10: all = -5: displayGameStats
+qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: remainingLives = remainingLives - 1: eda = -10: all = -5: displayGameStats
 IF qwer > 100 THEN qwer = 50
                 IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: displayGameStats: asend((a + 30) \ 20, (b + 30) \ 20) = ""
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3
@@ -286,7 +286,7 @@ a = a + eda
 b = b + all
 IF a > 297 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
 IF a < 1 THEN a = 296: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 2 THEN a = 594
-IF b > 179 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
+IF b > 179 THEN remainingLives = remainingLives - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0
 WEND
@@ -333,7 +333,7 @@ IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 
-qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -5: all = -3: displayGameStats
+qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: remainingLives = remainingLives - 1: eda = -5: all = -3: displayGameStats
 IF qwer > 100 THEN qwer = 50
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: displayGameStats: asend((a + 30) \ 20, (b + 30) \ 20) = ""
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3
@@ -374,7 +374,7 @@ a = a + eda
 b = b + all
 IF a > 594 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
 IF a < 1 THEN a = 594: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 1 THEN a = 297
-IF b > 358 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
+IF b > 358 THEN remainingLives = remainingLives - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0
 WEND
@@ -396,11 +396,11 @@ SUB displayGameStats
 LOCATE 1, 1
 IF graphicsMode = 2 THEN GOTO 12
 PRINT "                "
-IF raha > 9 THEN raha = 0: elu = elu + 1
+IF raha > 9 THEN raha = 0: remainingLives = remainingLives + 1
 LOCATE 1, 1
-PRINT "o "; raha; "  Elu "; elu
+PRINT "o "; raha; "  Lives "; remainingLives
 12
-IF elu < 0 THEN END
+IF remainingLives < 0 THEN END
 END SUB
 
 SUB drawSprite (p, o, m, fr, teler)
-- 
2.20.1