From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Sun, 24 Aug 2025 18:50:31 +0000 (+0300)
Subject: Better code readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=9eb837bb746e40fba8a771711a1b61402b28b072;p=qbasicapps.git

Better code readability
---

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 974f8f4..ac8aa6f 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -30,17 +30,17 @@ DIM SHARED kast(51)
 DIM SHARED mar1(70)
 DIM SHARED pilv(209)
 DIM SHARED taht(50)
-DIM SHARED siil(30)
-DIM SHARED siil1(30)
-DIM SHARED siil2(30)
+DIM SHARED HedgehogSprite(30)
+DIM SHARED HedgehogSprite1(30)
+DIM SHARED HedgehogSprite2(30)
 DIM SHARED CoinSprite(30)
 DIM SHARED poosas(100)
 DIM SHARED WindowSprite(100)
 DIM SHARED TrampolineSprite(50)
 DIM SHARED IntroScreen(6000)
 DIM SHARED TreeSprite(3000)
-DIM SHARED noolt(51)
-DIM SHARED noolt1(51)
+DIM SHARED RightArrowSprite(51)
+DIM SHARED LeftArrowSprite(51)
 DIM SHARED HoleSprite(51)
 DIM SHARED sipp1(51)
 DIM SHARED sipp2(51)
@@ -56,16 +56,16 @@ DIM SHARED kastm(51)
 DIM SHARED marm1(70)
 DIM SHARED pilvm(209)
 DIM SHARED tahtm(50)
-DIM SHARED siilm(30)
-DIM SHARED siilm1(30)
-DIM SHARED siilm2(30)
+DIM SHARED HedgehogSpriteSmall(30)
+DIM SHARED HedgehogSpriteSmall1(30)
+DIM SHARED HedgehogSpriteSmall2(30)
 DIM SHARED CoinSpriteSmall(30)
 DIM SHARED poosasm(100)
 DIM SHARED WindowSpriteSmall(100)
 DIM SHARED TrampolineSpriteSmall(50)
 DIM SHARED TreeSpriteSmall(3000)
-DIM SHARED nooltm(51)
-DIM SHARED nooltm1(51)
+DIM SHARED RightArrowSpriteSmall(51)
+DIM SHARED LeftArrowSpriteSmall(51)
 DIM SHARED HoleSpriteSmall(51)
 DIM SHARED sippm1(51)
 DIM SHARED sippm2(51)
@@ -100,7 +100,7 @@ RenderSpriteFromFile 20, 100, 3, 1, 1
 GET (21, 101)-(31, 114), taht
 CLS
 RenderSpriteFromFile 0, 0, 5, 1, 1
-GET (1, 1)-(11, 8), siil
+GET (1, 1)-(11, 8), HedgehogSprite
 CLS
 RenderSpriteFromFile 0, 0, 6, 1, 1
 GET (1, 1)-(8, 10), CoinSprite
@@ -118,10 +118,10 @@ RenderSpriteFromFile 0, 0, 11, 1, 1
 GET (1, 1)-(51, 81), TreeSprite
 CLS
 RenderSpriteFromFile 0, 0, 12, 1, 1
-GET (1, 1)-(20, 20), noolt
+GET (1, 1)-(20, 20), RightArrowSprite
 CLS
 RenderSpriteFromFile 0, 0, 12, 50, 1
-GET (1, 1)-(20, 20), noolt1
+GET (1, 1)-(20, 20), LeftArrowSprite
 CLS
 RenderSpriteFromFile 0, 0, 13, 1, 1
 GET (1, 1)-(20, 20), HoleSprite
@@ -158,7 +158,7 @@ RenderSpriteFromFile 20, 100, 3, 1, 2
 GET (11, 51)-(16, 72), tahtm
 CLS
 RenderSpriteFromFile 0, 0, 5, 1, 2
-GET (1, 1)-(6, 4), siilm
+GET (1, 1)-(6, 4), HedgehogSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 6, 1, 2
 GET (1, 1)-(4, 5), CoinSpriteSmall
@@ -176,10 +176,10 @@ RenderSpriteFromFile 0, 0, 11, 1, 2
 GET (1, 1)-(26, 41), TreeSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 12, 1, 2
-GET (1, 1)-(10, 10), nooltm
+GET (1, 1)-(10, 10), RightArrowSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 12, 50, 2
-GET (1, 1)-(10, 10), nooltm1
+GET (1, 1)-(10, 10), LeftArrowSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 13, 1, 2
 GET (1, 1)-(10, 10), HoleSpriteSmall
@@ -227,12 +227,12 @@ IF b > 0 THEN IF sipp = 20 THEN PUT (a, b), sipp20, OR
 IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), sipp3, OR
 
 ' Draw first companion hedgehog
-GET (Companion1PositionX%, Companion1PositionY%)-(Companion1PositionX% + 10, Companion1PositionY% + 10), siil1
-PUT (Companion1PositionX%, Companion1PositionY%), siil, OR
+GET (Companion1PositionX%, Companion1PositionY%)-(Companion1PositionX% + 10, Companion1PositionY% + 10), HedgehogSprite1
+PUT (Companion1PositionX%, Companion1PositionY%), HedgehogSprite, OR
 
 ' Draw second companion hedgehog
-GET (Companion2PositionX%, Companion2PositionY%)-(Companion2PositionX% + 10, Companion2PositionY% + 10), siil2
-PUT (Companion2PositionX%, Companion2PositionY%), siil, OR
+GET (Companion2PositionX%, Companion2PositionY%)-(Companion2PositionX% + 10, Companion2PositionY% + 10), HedgehogSprite2
+PUT (Companion2PositionX%, Companion2PositionY%), HedgehogSprite, OR
 
 ' Create short delay using sound command (workaround for no built-in delay)
 SOUND 0, .8
@@ -294,8 +294,8 @@ IF Companion2PositionX% > 300 THEN siie1 = -1
 IF Companion2PositionX% < 3 THEN siie1 = 1
 
 ' Restore previous companion positions
-PUT (Companion2PositionX%, Companion2PositionY%), siil2, PSET
-PUT (Companion1PositionX%, Companion1PositionY%), siil1, PSET
+PUT (Companion2PositionX%, Companion2PositionY%), HedgehogSprite2, PSET
+PUT (Companion1PositionX%, Companion1PositionY%), HedgehogSprite1, PSET
 
 ' Restore previous player position
 IF b > 0 THEN PUT (a, b), mar1, PSET
@@ -364,10 +364,10 @@ IF b > 0 THEN IF sipp = 20 THEN PUT (a \ 2, b \ 2), sippm20, OR
 IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), sippm3, OR
 
 ' Draw companions in scaled down mode
-GET (Companion1PositionX% \ 2, Companion1PositionY% \ 2)-((Companion1PositionX% + 10) \ 2, (Companion1PositionY% + 10) \ 2), siilm1
-PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), siilm, OR
-GET (Companion2PositionX% \ 2, Companion2PositionY% \ 2)-((siia1 + 10) \ 2, (Companion2PositionY% + 10) \ 2), siilm2
-PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), siilm, OR
+GET (Companion1PositionX% \ 2, Companion1PositionY% \ 2)-((Companion1PositionX% + 10) \ 2, (Companion1PositionY% + 10) \ 2), HedgehogSpriteSmall1
+PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), HedgehogSpriteSmall, OR
+GET (Companion2PositionX% \ 2, Companion2PositionY% \ 2)-((siia1 + 10) \ 2, (Companion2PositionY% + 10) \ 2), HedgehogSpriteSmall2
+PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), HedgehogSpriteSmall, OR
 
 ' Small delay to limit framerate
 SOUND 0, .8
@@ -429,8 +429,8 @@ IF Companion2PositionX% > 600 THEN siie1 = -1
 IF Companion2PositionX% < 3 THEN siie1 = 1
 
 ' Restore previous companion positions
-PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), siilm2, PSET
-PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), siilm1, PSET
+PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), HedgehogSpriteSmall2, PSET
+PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), HedgehogSpriteSmall1, PSET
 
 ' Restore previous player position
 IF b > 0 THEN PUT (a \ 2, b \ 2), marm1, PSET
@@ -652,8 +652,8 @@ IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, 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
-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) = "<"
+IF q$ = ">" THEN PUT (D * 20, e * 20), RightArrowSprite, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"
+IF q$ = "<" THEN PUT (D * 20, e * 20), LeftArrowSprite, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"
 IF q$ = "a" THEN PUT (D * 20, e * 20), HoleSprite, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "a"
 IF q$ = "u" THEN PUT (D * 20, e * 20), DoorSprite, PSET: TerrainGrid(D + 1, e + 1) = "u": DoorEntryX% = D * 20: DoorEntryY% = e * 20
 IF q$ = "U" THEN PUT (D * 20, e * 20), DoorSprite, PSET: TerrainGrid(D + 1, e + 1) = "U": DoorExitX% = D * 20: DoorExitY% = e * 20
@@ -675,8 +675,8 @@ IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, 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
-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) = "<"
+IF q$ = ">" THEN PUT (D * 10, e * 10), RightArrowSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"
+IF q$ = "<" THEN PUT (D * 10, e * 10), LeftArrowSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"
 IF q$ = "a" THEN PUT (D * 10, e * 10), HoleSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "a"
 IF q$ = "u" THEN PUT (D * 10, e * 10), DoorSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "u": DoorEntryX% = D * 20: DoorEntryY% = e * 20
 IF q$ = "U" THEN PUT (D * 10, e * 10), DoorSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "U": DoorExitX% = D * 20: DoorExitY% = e * 20