Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 752aa23..237abb0 100755 (executable)
--- a/Games/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo.bas
@@ -25,8 +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
-DIM SHARED ruut(51)\r
-DIM SHARED tuhi(51)\r
+DIM SHARED solidBlockImage(51)\r
+DIM SHARED emptySpaceImage(51)\r
 DIM SHARED kast(51)\r
 DIM SHARED mar1(70)\r
 DIM SHARED pilv(209)\r
@@ -87,14 +87,14 @@ SCREEN 1
 currentLevelNumber = 1\r
 REM joonist\r
 REM END\r
-GET (1, 1)-(20, 20), tuhi\r
+GET (1, 1)-(20, 20), emptySpaceImage\r
 drawSprite 0, 0, 1, 1, 1\r
-GET (1, 1)-(20, 20), ruut\r
+GET (1, 1)-(20, 20), solidBlockImage\r
 drawSprite 0, 0, 4, 1, 1\r
 GET (1, 1)-(20, 20), kast\r
-PUT (1, 180), ruut, PSET\r
-PUT (300, 1), ruut, PSET\r
-PUT (300, 180), ruut, PSET\r
+PUT (1, 180), solidBlockImage, PSET\r
+PUT (300, 1), solidBlockImage, PSET\r
+PUT (300, 180), solidBlockImage, PSET\r
 drawSprite 30, 50, 2, 1, 1\r
 GET (31, 51)-(91, 76), pilv\r
 PUT (160, 10), pilv, PSET\r
@@ -148,9 +148,9 @@ drawSprite 0, 0, 1, 1, 2
 GET (1, 1)-(10, 10), ruutm\r
 drawSprite 0, 0, 4, 1, 2\r
 GET (1, 1)-(10, 10), kastm\r
-PUT (1, 180), ruut, PSET\r
-PUT (300, 1), ruut, PSET\r
-PUT (300, 180), ruut, PSET\r
+PUT (1, 180), solidBlockImage, PSET\r
+PUT (300, 1), solidBlockImage, PSET\r
+PUT (300, 180), solidBlockImage, PSET\r
 drawSprite 30, 50, 2, 1, 2\r
 GET (16, 26)-(46, 38), pilvm\r
 drawSprite 20, 100, 3, 1, 2\r
@@ -270,9 +270,9 @@ IF secondHedgehogX < 3 THEN siie1 = 1
 PUT (secondHedgehogX, secondHedgehogY), siil2, PSET\r
 PUT (hedgehogX, 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 kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 20, (b \ 20) * 20), emptySpaceImage, PSET\r
+IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 20, ((b + 10) \ 20) * 20), emptySpaceImage, PSET\r
+IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 20, ((b + 28) \ 20) * 20), emptySpaceImage, 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
@@ -1125,7 +1125,7 @@ IF graphicsMode = 2 THEN GOTO 124
 FOR e = 0 TO 9\r
 FOR D = 0 TO 15\r
 q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1)\r
-IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, PSET: terrainGrid(D + 1, e + 1) = "z"\r
+IF q$ = "m" THEN PUT (D * 20, e * 20), solidBlockImage, PSET: terrainGrid(D + 1, e + 1) = "z"\r
 IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(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