Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 64122de..39bebf3 100755 (executable)
--- a/Games/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo.bas
@@ -20,7 +20,7 @@ DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31
 DIM SHARED hedgehogY, hedgehogX, secondHedgehogY, secondHedgehogX\r
 DIM SHARED remainingLives, coinCount\r
 DIM SHARED uks1, uks2, uks3, uks4\r
-DIM SHARED maa\r
+DIM SHARED currentLevelNumber\r
 DIM SHARED text$(1 TO 1000)\r
 DIM SHARED pikkus\r
 DIM SHARED asend(0 TO 34, -10 TO 20) AS STRING * 1\r
@@ -84,7 +84,7 @@ ule7$ = CHR$(0) + "H"
 all7$ = CHR$(0) + "P"\r
 remainingLives = 10\r
 SCREEN 1\r
-maa = 1\r
+currentLevelNumber = 1\r
 REM joonist\r
 REM END\r
 GET (1, 1)-(20, 20), tuhi\r
@@ -284,9 +284,9 @@ siiall = siiall + 1: IF siiall > 2 THEN siiall = 2
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
 a = a + eda\r
 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 remainingLives = remainingLives - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats\r
+IF a > 297 THEN a = 2: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1\r
+IF a < 1 THEN a = 296: IF currentLevelNumber = 1 THEN loadLevel currentLevelNumber:  ELSE currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: IF graphicsMode = 2 THEN a = 594\r
+IF b > 179 THEN remainingLives = remainingLives - 1: displayGameStats: currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: 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
@@ -297,8 +297,8 @@ IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20
 IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5\r
 IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3\r
 IF a$ = all7$ THEN all = all + 1\r
-IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1\r
-IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: loadLevel maa: siie = 1: siie1 = 1\r
+IF a$ = "/" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1\r
+IF a$ = "+" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 5: loadLevel currentLevelNumber: siie = 1: siie1 = 1\r
 IF a$ = "q" THEN END\r
 sipa = sipa + 1\r
 IF sipa = 3 THEN sipa = 1\r
@@ -372,9 +372,9 @@ siiall = siiall + 1: IF siiall > 2 THEN siiall = 2
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
 a = a + eda\r
 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 remainingLives = remainingLives - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats\r
+IF a > 594 THEN a = 2: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1\r
+IF a < 1 THEN a = 594: IF currentLevelNumber = 1 THEN loadLevel currentLevelNumber:  ELSE currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: IF graphicsMode = 1 THEN a = 297\r
+IF b > 358 THEN remainingLives = remainingLives - 1: displayGameStats: currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: 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
@@ -385,8 +385,8 @@ IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20
 IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5\r
 IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3\r
 IF a$ = all7$ THEN all = all + 1\r
-IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1\r
-IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: loadLevel maa: siie = 1: siie1 = 1\r
+IF a$ = "/" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1\r
+IF a$ = "+" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 5: loadLevel currentLevelNumber: siie = 1: siie1 = 1\r
 IF a$ = "q" THEN END\r
 sipa = sipa + 1\r
 IF sipa = 3 THEN sipa = 1\r
@@ -938,7 +938,7 @@ asciiLevelData(7) = "p mmmmv   mmmm  "
 asciiLevelData(8) = "mmmmmmmmm mmmmmm"\r
 asciiLevelData(9) = "                "\r
 asciiLevelData(10) = ">>>>>>>>>>>>>>>>"\r
-maa = maa + 1\r
+currentLevelNumber = currentLevelNumber + 1\r
 CASE 10\r
 asciiLevelData(1) = "m.  -          m"\r
 asciiLevelData(2) = "m  .           m"\r
@@ -961,7 +961,7 @@ asciiLevelData(7) = "mammm   m1ma  om"
 asciiLevelData(8) = "m1m   mmm1ma o m"\r
 asciiLevelData(9) = "m        amam om"\r
 asciiLevelData(10) = "mmmmmmmm<mmammmm"\r
-maa = maa + 2\r
+currentLevelNumber = currentLevelNumber + 2\r
 CASE 11\r
 asciiLevelData(1) = ">>>>>>>>>>>>>>><"\r
 asciiLevelData(2) = "> <x           <"\r
@@ -973,7 +973,7 @@ asciiLevelData(7) = "> <        < <  "
 asciiLevelData(8) = "> <m >m>>m <   >"\r
 asciiLevelData(9) = ">              <"\r
 asciiLevelData(10) = ">>>>m<<<<<<<<mm<"\r
-maa = maa + 2\r
+currentLevelNumber = currentLevelNumber + 2\r
 CASE 12\r
 asciiLevelData(1) = "m     aaaaaaaaam"\r
 asciiLevelData(2) = "m  -         xmm"\r