Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 16c81d5..64122de 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 remainingLives, raha\r
+DIM SHARED remainingLives, coinCount\r
 DIM SHARED uks1, uks2, uks3, uks4\r
 DIM SHARED maa\r
 DIM SHARED text$(1 TO 1000)\r
@@ -247,7 +247,7 @@ IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke
 \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) = "1" THEN coinCount = coinCount + 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
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3\r
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3\r
@@ -335,7 +335,7 @@ IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke
 \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) = "1" THEN coinCount = coinCount + 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
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3\r
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3\r
@@ -396,9 +396,9 @@ SUB displayGameStats
 LOCATE 1, 1\r
 IF graphicsMode = 2 THEN GOTO 12\r
 PRINT "                "\r
-IF raha > 9 THEN raha = 0: remainingLives = remainingLives + 1\r
+IF coinCount > 9 THEN coinCount = 0: remainingLives = remainingLives + 1\r
 LOCATE 1, 1\r
-PRINT "o "; raha; "  Lives "; remainingLives\r
+PRINT "o "; coinCount; "  Lives "; remainingLives\r
 12\r
 IF remainingLives < 0 THEN END\r
 END SUB\r