From 5c534de391053a10dcefaf6a0f0e00b5a0498cf7 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Thu, 21 Aug 2025 19:50:03 +0300
Subject: [PATCH] Better code readability

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

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index fc4c2cf..cd2707c 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -34,10 +34,10 @@ DIM SHARED taht(50)
 DIM SHARED siil(30)
 DIM SHARED siil1(30)
 DIM SHARED siil2(30)
-DIM SHARED munt(30)
+DIM SHARED CoinSprite(30)
 DIM SHARED poosas(100)
-DIM SHARED aken(100)
-DIM SHARED vedru(50)
+DIM SHARED WindowSprite(100)
+DIM SHARED TrampolineSprite(50)
 DIM SHARED IntroScreen(6000)
 DIM SHARED TreeSprite(3000)
 DIM SHARED noolt(51)
@@ -60,10 +60,10 @@ DIM SHARED tahtm(50)
 DIM SHARED siilm(30)
 DIM SHARED siilm1(30)
 DIM SHARED siilm2(30)
-DIM SHARED muntm(30)
+DIM SHARED CoinSpriteSmall(30)
 DIM SHARED poosasm(100)
-DIM SHARED akenm(100)
-DIM SHARED vedrum(50)
+DIM SHARED WindowSpriteSmall(100)
+DIM SHARED TrampolineSpriteSmall(50)
 DIM SHARED TreeSpriteSmall(3000)
 DIM SHARED nooltm(51)
 DIM SHARED nooltm1(51)
@@ -104,16 +104,16 @@ DrawSprite 0, 0, 5, 1, 1
 GET (1, 1)-(11, 8), siil
 CLS
 DrawSprite 0, 0, 6, 1, 1
-GET (1, 1)-(8, 10), munt
+GET (1, 1)-(8, 10), CoinSprite
 CLS
 DrawSprite 0, 0, 7, 1, 1
 GET (1, 1)-(31, 11), poosas
 CLS
 DrawSprite 0, 0, 8, 1, 1
-GET (1, 1)-(26, 21), aken
+GET (1, 1)-(26, 21), WindowSprite
 CLS
 DrawSprite 0, 0, 9, 1, 1
-GET (1, 1)-(21, 11), vedru
+GET (1, 1)-(21, 11), TrampolineSprite
 CLS
 DrawSprite 0, 0, 11, 1, 1
 GET (1, 1)-(51, 81), TreeSprite
@@ -159,16 +159,16 @@ DrawSprite 0, 0, 5, 1, 2
 GET (1, 1)-(6, 4), siilm
 CLS
 DrawSprite 0, 0, 6, 1, 2
-GET (1, 1)-(4, 5), muntm
+GET (1, 1)-(4, 5), CoinSpriteSmall
 CLS
 DrawSprite 0, 0, 7, 1, 2
 GET (1, 1)-(16, 6), poosasm
 CLS
 DrawSprite 0, 0, 8, 1, 2
-GET (1, 1)-(13, 11), akenm
+GET (1, 1)-(13, 11), WindowSpriteSmall
 CLS
 DrawSprite 0, 0, 9, 1, 2
-GET (1, 1)-(11, 6), vedrum
+GET (1, 1)-(11, 6), TrampolineSpriteSmall
 CLS
 DrawSprite 0, 0, 11, 1, 2
 GET (1, 1)-(26, 41), TreeSpriteSmall
@@ -1130,10 +1130,10 @@ IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET
 IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET
 IF q$ = "x" THEN FirstCompanionX% = D * 20: FirstCompanionY% = (e + 1) * 20
 IF q$ = "y" THEN SecondCompanionX% = D * 20: SecondCompanionY% = (e + 1) * 20
-IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: TerrainGrid(D + 1, e + 1) = "1"
+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$ = "h" THEN PUT (D * 20, e * 20), aken, PSET
-IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: TerrainGrid(D + 1, e + 1) = "v"
+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
 IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"
 IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"
@@ -1153,10 +1153,10 @@ IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET
 IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET
 IF q$ = "x" THEN FirstCompanionX% = D * 20: FirstCompanionY% = (e + 1) * 20
 IF q$ = "y" THEN SecondCompanionX% = D * 20: SecondCompanionY% = (e + 1) * 20
-IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: TerrainGrid(D + 1, e + 1) = "1"
+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$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET
-IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: TerrainGrid(D + 1, e + 1) = "v"
+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
 IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"
 IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"
-- 
2.20.1