Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index bd902ae..2f5219b 100755 (executable)
--- a/Games/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo.bas
@@ -17,7 +17,7 @@ DECLARE SUB drawSprite (p%, o%, m%, fr%, teler%)
 DEFINT A-Z\r
 DIM SHARED graphicsMode\r
 DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31\r
-DIM SHARED siib, siia, secondHedgehogY, secondHedgehogX\r
+DIM SHARED hedgehogY, siia, secondHedgehogY, secondHedgehogX\r
 DIM SHARED elu, raha\r
 DIM SHARED uks1, uks2, uks3, uks4\r
 DIM SHARED maa\r
@@ -228,8 +228,8 @@ IF b > 0 THEN IF sipp = 10 THEN PUT (a, b), sipp10, OR
 IF b > 0 THEN IF sipp = 20 THEN PUT (a, b), sipp20, OR\r
 IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), sipp3, OR\r
 \r
-GET (siia, siib)-(siia + 10, siib + 10), siil1\r
-PUT (siia, siib), siil, OR\r
+GET (siia, hedgehogY)-(siia + 10, hedgehogY + 10), siil1\r
+PUT (siia, hedgehogY), siil, OR\r
 GET (secondHedgehogX, secondHedgehogY)-(secondHedgehogX + 10, secondHedgehogY + 10), siil2\r
 PUT (secondHedgehogX, secondHedgehogY), siil, OR\r
 SOUND 0, .8\r
@@ -257,9 +257,9 @@ r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1
 lk = lk + 1: cd = cd - 1\r
 IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1\r
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1\r
-IF asend((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1\r
-IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1\r
-IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1\r
+IF asend((siia + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1\r
+IF asend((siia + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1\r
+IF asend((siia + 20) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = 1\r
 IF asend((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1\r
 IF asend((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1\r
 IF asend((secondHedgehogX + 20) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = 1\r
@@ -268,18 +268,18 @@ IF siia < 3 THEN siie = 1
 IF secondHedgehogX > 300 THEN siie1 = -1\r
 IF secondHedgehogX < 3 THEN siie1 = 1\r
 PUT (secondHedgehogX, secondHedgehogY), siil2, PSET\r
-PUT (siia, siib), siil1, PSET\r
+PUT (siia, hedgehogY), siil1, PSET\r
 IF b > 0 THEN PUT (a, b), mar1, PSET\r
 IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 20, (b \ 20) * 20), tuhi, PSET\r
 IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 20, ((b + 10) \ 20) * 20), tuhi, PSET\r
 IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 20, ((b + 28) \ 20) * 20), tuhi, PSET\r
 IF makk = 1 THEN makk = 0: a = a - 20\r
-asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""\r
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (hedgehogY + 8) \ 20) = ""\r
 siia = siia + siie\r
-siib = siib + siiall\r
+hedgehogY = hedgehogY + siiall\r
 secondHedgehogX = secondHedgehogX + siie1\r
 secondHedgehogY = secondHedgehogY + siiall1\r
-asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q"\r
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 25) \ 20, (hedgehogY + 8) \ 20) = "q"\r
 siiall = siiall + 1: IF siiall > 2 THEN siiall = 2\r
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
 a = a + eda\r
@@ -316,8 +316,8 @@ IF b > 0 THEN IF sipp = 10 THEN PUT (a \ 2, b \ 2), sippm10, OR
 IF b > 0 THEN IF sipp = 20 THEN PUT (a \ 2, b \ 2), sippm20, OR\r
 IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), sippm3, OR\r
 \r
-GET (siia \ 2, siib \ 2)-((siia + 10) \ 2, (siib + 10) \ 2), siilm1\r
-PUT (siia \ 2, siib \ 2), siilm, OR\r
+GET (siia \ 2, hedgehogY \ 2)-((siia + 10) \ 2, (hedgehogY + 10) \ 2), siilm1\r
+PUT (siia \ 2, hedgehogY \ 2), siilm, OR\r
 GET (secondHedgehogX \ 2, secondHedgehogY \ 2)-((siia1 + 10) \ 2, (secondHedgehogY + 10) \ 2), siilm2\r
 PUT (secondHedgehogX \ 2, secondHedgehogY \ 2), siilm, OR\r
 SOUND 0, .8\r
@@ -345,9 +345,9 @@ r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1
 lk = lk + 1: cd = cd - 1\r
 IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1\r
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1\r
-IF asend((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1\r
-IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1\r
-IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1\r
+IF asend((siia + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1\r
+IF asend((siia + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1\r
+IF asend((siia + 20) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = 1\r
 IF asend((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1\r
 IF asend((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1\r
 IF asend((secondHedgehogX + 20) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = 1\r
@@ -356,18 +356,18 @@ IF siia < 3 THEN siie = 1
 IF secondHedgehogX > 600 THEN siie1 = -1\r
 IF secondHedgehogX < 3 THEN siie1 = 1\r
 PUT (secondHedgehogX \ 2, secondHedgehogY \ 2), siilm2, PSET\r
-PUT (siia \ 2, siib \ 2), siilm1, PSET\r
+PUT (siia \ 2, hedgehogY \ 2), siilm1, PSET\r
 IF b > 0 THEN PUT (a \ 2, b \ 2), marm1, PSET\r
 IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 10, (b \ 20) * 10), tuhim, PSET\r
 IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 10, ((b + 10) \ 20) * 10), tuhim, PSET\r
 IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 10, ((b + 28) \ 20) * 10), tuhim, PSET\r
 IF makk = 1 THEN makk = 0: a = a - 20\r
-asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""\r
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (hedgehogY + 8) \ 20) = ""\r
 siia = siia + siie\r
-siib = siib + siiall\r
+hedgehogY = hedgehogY + siiall\r
 secondHedgehogX = secondHedgehogX + siie1\r
 secondHedgehogY = secondHedgehogY + siiall1\r
-asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q"\r
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 25) \ 20, (hedgehogY + 8) \ 20) = "q"\r
 siiall = siiall + 1: IF siiall > 2 THEN siiall = 2\r
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
 a = a + eda\r
@@ -833,7 +833,7 @@ END SUB
 SUB loadLevel (y)\r
 125\r
 siia = 0\r
-siib = 0\r
+hedgehogY = 0\r
 aiia1 = 0\r
 secondHedgehogY = 0\r
 FOR a1 = 1 TO 32\r
@@ -1129,7 +1129,7 @@ IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, PSET: asend(D + 1, e + 1) = "z"
 IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"\r
 IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET\r
 IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET\r
-IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20\r
+IF q$ = "x" THEN siia = D * 20: hedgehogY = (e + 1) * 20\r
 IF q$ = "y" THEN secondHedgehogX = D * 20: secondHedgehogY = (e + 1) * 20\r
 IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1"\r
 IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET\r
@@ -1152,7 +1152,7 @@ IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, PSET: asend(D + 1, e + 1) = "z"
 IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"\r
 IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET\r
 IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET\r
-IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20\r
+IF q$ = "x" THEN siia = D * 20: hedgehogY = (e + 1) * 20\r
 IF q$ = "y" THEN secondHedgehogX = D * 20: secondHedgehogY = (e + 1) * 20\r
 IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1"\r
 IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET\r