From dcc80e29b5d65bcfd228db1e22d9ed4f13e00a5f Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 20 Aug 2025 01:18:56 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo.bas | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

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