Better code readability

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