Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index e3a6757..bd902ae 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, siib1, siia1\r
+DIM SHARED siib, siia, secondHedgehogY, secondHedgehogX\r
 DIM SHARED elu, raha\r
 DIM SHARED uks1, uks2, uks3, uks4\r
 DIM SHARED maa\r
@@ -230,8 +230,8 @@ IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), sipp3, OR
 \r
 GET (siia, siib)-(siia + 10, siib + 10), siil1\r
 PUT (siia, siib), siil, OR\r
-GET (siia1, siib1)-(siia1 + 10, siib1 + 10), siil2\r
-PUT (siia1, siib1), siil, OR\r
+GET (secondHedgehogX, secondHedgehogY)-(secondHedgehogX + 10, secondHedgehogY + 10), siil2\r
+PUT (secondHedgehogX, secondHedgehogY), siil, OR\r
 SOUND 0, .8\r
 IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0\r
 IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0\r
@@ -260,26 +260,26 @@ IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38)
 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((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1\r
-IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1\r
-IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 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
 IF siia > 300 THEN siie = -1\r
 IF siia < 3 THEN siie = 1\r
-IF siia1 > 300 THEN siie1 = -1\r
-IF siia1 < 3 THEN siie1 = 1\r
-PUT (siia1, siib1), siil2, PSET\r
+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
 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((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""\r
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""\r
 siia = siia + siie\r
 siib = siib + siiall\r
-siia1 = siia1 + siie1\r
-siib1 = siib1 + siiall1\r
-asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q"\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
 siiall = siiall + 1: IF siiall > 2 THEN siiall = 2\r
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
 a = a + eda\r
@@ -318,8 +318,8 @@ IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), sippm3, OR
 \r
 GET (siia \ 2, siib \ 2)-((siia + 10) \ 2, (siib + 10) \ 2), siilm1\r
 PUT (siia \ 2, siib \ 2), siilm, OR\r
-GET (siia1 \ 2, siib1 \ 2)-((siia1 + 10) \ 2, (siib1 + 10) \ 2), siilm2\r
-PUT (siia1 \ 2, siib1 \ 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
 IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0\r
 IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0\r
@@ -348,26 +348,26 @@ IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38)
 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((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1\r
-IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1\r
-IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 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
 IF siia > 600 THEN siie = -1\r
 IF siia < 3 THEN siie = 1\r
-IF siia1 > 600 THEN siie1 = -1\r
-IF siia1 < 3 THEN siie1 = 1\r
-PUT (siia1 \ 2, siib1 \ 2), siilm2, PSET\r
+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
 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((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""\r
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = ""\r
 siia = siia + siie\r
 siib = siib + siiall\r
-siia1 = siia1 + siie1\r
-siib1 = siib1 + siiall1\r
-asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q"\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
 siiall = siiall + 1: IF siiall > 2 THEN siiall = 2\r
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
 a = a + eda\r
@@ -835,7 +835,7 @@ SUB loadLevel (y)
 siia = 0\r
 siib = 0\r
 aiia1 = 0\r
-siib1 = 0\r
+secondHedgehogY = 0\r
 FOR a1 = 1 TO 32\r
 FOR b1 = 1 TO 20\r
 asend(a1, b1) = ""\r
@@ -1130,7 +1130,7 @@ IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": as
 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$ = "y" THEN siia1 = D * 20: siib1 = (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
 IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET\r
@@ -1153,7 +1153,7 @@ IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": a
 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$ = "y" THEN siia1 = D * 20: siib1 = (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
 IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET\r