Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 237abb0..cd68f6b 100755 (executable)
--- a/Games/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo.bas
@@ -25,6 +25,8 @@ DIM SHARED text$(1 TO 1000)
 DIM SHARED pikkus\r
 DIM SHARED terrainGrid(0 TO 34, -10 TO 20) AS STRING * 1\r
 DIM SHARED objectGrid(0 TO 34, -10 TO 20) AS STRING * 1\r
+\r
+' Full scale sprites\r
 DIM SHARED solidBlockImage(51)\r
 DIM SHARED emptySpaceImage(51)\r
 DIM SHARED kast(51)\r
@@ -50,8 +52,9 @@ DIM SHARED sipp20(51)
 DIM SHARED sipp3(51)\r
 DIM SHARED uks(120)\r
 \r
-DIM SHARED ruutm(51)\r
-DIM SHARED tuhim(51)\r
+' Small scale sprites (S suffix is used)\r
+DIM SHARED solidBlockImageS(51)\r
+DIM SHARED emptySpaceImageS(51)\r
 DIM SHARED kastm(51)\r
 DIM SHARED marm1(70)\r
 DIM SHARED pilvm(209)\r
@@ -73,6 +76,8 @@ DIM SHARED sippm10(51)
 DIM SHARED sippm20(51)\r
 DIM SHARED sippm3(51)\r
 DIM SHARED uksm(50)\r
+\r
+\r
 DIM SHARED kuikiir\r
 DIM SHARED vas7$\r
 DIM SHARED par7$\r
@@ -143,9 +148,9 @@ CLS
 drawSprite 0, 0, 16, 1, 1\r
 GET (1, 1)-(20, 20), sipp3\r
 CLS\r
-GET (1, 1)-(10, 10), tuhim\r
+GET (1, 1)-(10, 10), emptySpaceImageS\r
 drawSprite 0, 0, 1, 1, 2\r
-GET (1, 1)-(10, 10), ruutm\r
+GET (1, 1)-(10, 10), solidBlockImageS\r
 drawSprite 0, 0, 4, 1, 2\r
 GET (1, 1)-(10, 10), kastm\r
 PUT (1, 180), solidBlockImage, PSET\r
@@ -358,9 +363,9 @@ IF secondHedgehogX < 3 THEN siie1 = 1
 PUT (secondHedgehogX \ 2, secondHedgehogY \ 2), siilm2, PSET\r
 PUT (hedgehogX \ 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 kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 10, (b \ 20) * 10), emptySpaceImageS, PSET\r
+IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 10, ((b + 10) \ 20) * 10), emptySpaceImageS, PSET\r
+IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 10, ((b + 28) \ 20) * 10), emptySpaceImageS, PSET\r
 IF makk = 1 THEN makk = 0: a = a - 20\r
 objectGrid((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": objectGrid((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = ""\r
 hedgehogX = hedgehogX + siie\r
@@ -1148,7 +1153,7 @@ GOTO 123
 FOR e = 0 TO 19\r
 FOR D = 0 TO 30\r
 q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1)\r
-IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, PSET: terrainGrid(D + 1, e + 1) = "z"\r
+IF q$ = "m" THEN PUT (D * 10, e * 10), solidBlockImageS, PSET: terrainGrid(D + 1, e + 1) = "z"\r
 IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(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