From 0ab1c3a4199948eb54edb8c744678f5dde3ea8ff Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Sun, 24 Aug 2025 21:57:43 +0300
Subject: [PATCH] Better code readability

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

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index ac8aa6f..907daef 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -23,18 +23,18 @@ DIM SHARED CurrentLevelNumber%
 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
+' Full scale sprites (mostly 20x20 pixels)
 DIM SHARED SolidTerrainSprite(51)
 DIM SHARED EmptySpaceSprite(51)
-DIM SHARED kast(51)
-DIM SHARED mar1(70)
-DIM SHARED pilv(209)
-DIM SHARED taht(50)
+DIM SHARED BoxSprite(51)
+DIM SHARED PlayerSpriteBuffer(70)
+DIM SHARED CloudSprite(209)
+DIM SHARED StarSprite(50)
 DIM SHARED HedgehogSprite(30)
 DIM SHARED HedgehogSprite1(30)
 DIM SHARED HedgehogSprite2(30)
 DIM SHARED CoinSprite(30)
-DIM SHARED poosas(100)
+DIM SHARED BushSprite(100)
 DIM SHARED WindowSprite(100)
 DIM SHARED TrampolineSprite(50)
 DIM SHARED IntroScreen(6000)
@@ -49,18 +49,18 @@ DIM SHARED sipp20(51)
 DIM SHARED sipp3(51)
 DIM SHARED DoorSprite(120)
 
-' Small scale sprites (S suffix is used)
+' Small scale sprites (mostly 10x10 pixels) - denoted with "Small" suffix
 DIM SHARED SolidTerrainSpriteSmall(51)
 DIM SHARED EmptySpaceSpriteSmall(51)
-DIM SHARED kastm(51)
-DIM SHARED marm1(70)
-DIM SHARED pilvm(209)
-DIM SHARED tahtm(50)
+DIM SHARED BoxSpriteSmall(51)
+DIM SHARED PlayerSpriteBufferSmall(70)
+DIM SHARED CloudSpriteSmall(209)
+DIM SHARED StarSpriteSmall(50)
 DIM SHARED HedgehogSpriteSmall(30)
 DIM SHARED HedgehogSpriteSmall1(30)
 DIM SHARED HedgehogSpriteSmall2(30)
 DIM SHARED CoinSpriteSmall(30)
-DIM SHARED poosasm(100)
+DIM SHARED BushSpriteSmall(100)
 DIM SHARED WindowSpriteSmall(100)
 DIM SHARED TrampolineSpriteSmall(50)
 DIM SHARED TreeSpriteSmall(3000)
@@ -89,15 +89,15 @@ GET (1, 1)-(20, 20), EmptySpaceSprite
 RenderSpriteFromFile 0, 0, 1, 1, 1
 GET (1, 1)-(20, 20), SolidTerrainSprite
 RenderSpriteFromFile 0, 0, 4, 1, 1
-GET (1, 1)-(20, 20), kast
+GET (1, 1)-(20, 20), BoxSprite
 PUT (1, 180), SolidTerrainSprite, PSET
 PUT (300, 1), SolidTerrainSprite, PSET
 PUT (300, 180), SolidTerrainSprite, PSET
 RenderSpriteFromFile 30, 50, 2, 1, 1
-GET (31, 51)-(91, 76), pilv
-PUT (160, 10), pilv, PSET
+GET (31, 51)-(91, 76), CloudSprite
+PUT (160, 10), CloudSprite, PSET
 RenderSpriteFromFile 20, 100, 3, 1, 1
-GET (21, 101)-(31, 114), taht
+GET (21, 101)-(31, 114), StarSprite
 CLS
 RenderSpriteFromFile 0, 0, 5, 1, 1
 GET (1, 1)-(11, 8), HedgehogSprite
@@ -106,7 +106,7 @@ RenderSpriteFromFile 0, 0, 6, 1, 1
 GET (1, 1)-(8, 10), CoinSprite
 CLS
 RenderSpriteFromFile 0, 0, 7, 1, 1
-GET (1, 1)-(31, 11), poosas
+GET (1, 1)-(31, 11), BushSprite
 CLS
 RenderSpriteFromFile 0, 0, 8, 1, 1
 GET (1, 1)-(26, 21), WindowSprite
@@ -148,14 +148,14 @@ GET (1, 1)-(10, 10), EmptySpaceSpriteSmall
 RenderSpriteFromFile 0, 0, 1, 1, 2
 GET (1, 1)-(10, 10), SolidTerrainSpriteSmall
 RenderSpriteFromFile 0, 0, 4, 1, 2
-GET (1, 1)-(10, 10), kastm
+GET (1, 1)-(10, 10), BoxSpriteSmall
 PUT (1, 180), SolidTerrainSprite, PSET
 PUT (300, 1), SolidTerrainSprite, PSET
 PUT (300, 180), SolidTerrainSprite, PSET
 RenderSpriteFromFile 30, 50, 2, 1, 2
-GET (16, 26)-(46, 38), pilvm
+GET (16, 26)-(46, 38), CloudSpriteSmall
 RenderSpriteFromFile 20, 100, 3, 1, 2
-GET (11, 51)-(16, 72), tahtm
+GET (11, 51)-(16, 72), StarSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 5, 1, 2
 GET (1, 1)-(6, 4), HedgehogSpriteSmall
@@ -164,7 +164,7 @@ RenderSpriteFromFile 0, 0, 6, 1, 2
 GET (1, 1)-(4, 5), CoinSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 7, 1, 2
-GET (1, 1)-(16, 6), poosasm
+GET (1, 1)-(16, 6), BushSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 8, 1, 2
 GET (1, 1)-(13, 11), WindowSpriteSmall
@@ -219,7 +219,7 @@ siie1 = 1
 MainGameLoop:
 keyboardInput$ = INKEY$
 IF GraphicsDisplayMode = 2 THEN b = b * 2: GOTO SmallScaleGameLoop
-IF b > 0 THEN GET (a, b)-(a + 20, b + 20), mar1
+IF b > 0 THEN GET (a, b)-(a + 20, b + 20), PlayerSpriteBuffer
 IF b > 0 THEN IF sipp = 1 THEN PUT (a, b), sipp1, OR
 IF b > 0 THEN IF sipp = 2 THEN PUT (a, b), sipp2, OR
 IF b > 0 THEN IF sipp = 10 THEN PUT (a, b), sipp10, OR
@@ -298,7 +298,7 @@ PUT (Companion2PositionX%, Companion2PositionY%), HedgehogSprite2, PSET
 PUT (Companion1PositionX%, Companion1PositionY%), HedgehogSprite1, PSET
 
 ' Restore previous player position
-IF b > 0 THEN PUT (a, b), mar1, PSET
+IF b > 0 THEN PUT (a, b), PlayerSpriteBuffer, PSET
 
 ' Handle sprite clearing after coin collection
 IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 20, (b \ 20) * 20), EmptySpaceSprite, PSET
@@ -356,7 +356,7 @@ GOTO MainGameLoop
 SmallScaleGameLoop:
 keyboardInput$ = INKEY$
 IF GraphicsDisplayMode = 1 THEN b = b / 2: GOTO MainGameLoop
-IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), marm1
+IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), PlayerSpriteBufferSmall
 IF b > 0 THEN IF sipp = 1 THEN PUT (a \ 2, b \ 2), sippm1, OR
 IF b > 0 THEN IF sipp = 2 THEN PUT (a \ 2, b \ 2), sippm2, OR
 IF b > 0 THEN IF sipp = 10 THEN PUT (a \ 2, b \ 2), sippm10, OR
@@ -433,7 +433,7 @@ PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), HedgehogSpriteSmall2,
 PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), HedgehogSpriteSmall1, PSET
 
 ' Restore previous player position
-IF b > 0 THEN PUT (a \ 2, b \ 2), marm1, PSET
+IF b > 0 THEN PUT (a \ 2, b \ 2), PlayerSpriteBufferSmall, PSET
 
 ' Handle sprite clearing after coin collection
 IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 10, (b \ 20) * 10), EmptySpaceSpriteSmall, PSET
@@ -642,13 +642,13 @@ 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), SolidTerrainSprite, 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
+IF q$ = "o" THEN PUT (D * 20, e * 20), BoxSprite, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "o"
+IF q$ = "." THEN PUT (D * 20, e * 20), StarSprite, PSET
+IF q$ = "-" THEN PUT (D * 20, e * 20), CloudSprite, PSET
 IF q$ = "x" THEN Companion1PositionX% = D * 20: Companion1PositionY% = (e + 1) * 20
 IF q$ = "y" THEN Companion2PositionX% = D * 20: Companion2PositionY% = (e + 1) * 20
 IF q$ = "1" THEN PUT (D * 20, e * 20), CoinSprite, PSET: TerrainGrid(D + 1, e + 1) = "1"
-IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET
+IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), BushSprite, PSET
 IF q$ = "h" THEN PUT (D * 20, e * 20), WindowSprite, PSET
 IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), TrampolineSprite, PSET: TerrainGrid(D + 1, e + 1) = "v"
 IF q$ = "t" THEN PUT (D * 20, e * 20), TreeSprite, PSET
@@ -665,13 +665,13 @@ 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), SolidTerrainSpriteSmall, 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
+IF q$ = "o" THEN PUT (D * 10, e * 10), BoxSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "o"
+IF q$ = "." THEN PUT (D * 10, e * 10), StarSpriteSmall, PSET
+IF q$ = "-" THEN PUT (D * 10, e * 10), CloudSpriteSmall, PSET
 IF q$ = "x" THEN Companion1PositionX% = D * 20: Companion1PositionY% = (e + 1) * 20
 IF q$ = "y" THEN Companion2PositionX% = D * 20: Companion2PositionY% = (e + 1) * 20
 IF q$ = "1" THEN PUT (D * 10, e * 10), CoinSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "1"
-IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET
+IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), BushSpriteSmall, PSET
 IF q$ = "h" THEN PUT (D * 10, e * 10), WindowSpriteSmall, PSET
 IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), TrampolineSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "v"
 IF q$ = "t" THEN PUT (D * 10, e * 10), TreeSpriteSmall, PSET
-- 
2.20.1