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

---
 Games/Pomppu Paavo.bas | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

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