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

Better code readability
---

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 4b7058d..d4334c0 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -43,11 +43,11 @@ DIM SHARED TreeSprite(3000)
 DIM SHARED RightArrowSprite(51)
 DIM SHARED LeftArrowSprite(51)
 DIM SHARED HoleSprite(51)
-DIM SHARED sipp1(51)
-DIM SHARED sipp2(51)
-DIM SHARED sipp10(51)
-DIM SHARED sipp20(51)
-DIM SHARED sipp3(51)
+DIM SHARED PlayerRunRight1Sprite(51)
+DIM SHARED PlayerRunRight2Sprite(51)
+DIM SHARED PlayerRunLeft1Sprite(51)
+DIM SHARED PlayerRunLeft2Sprite(51)
+DIM SHARED PlayerJumpingSprite(51)
 DIM SHARED DoorSprite(120)
 
 ' Small scale sprites (mostly 10x10 pixels) - denoted with "Small" suffix
@@ -68,11 +68,11 @@ DIM SHARED TreeSpriteSmall(3000)
 DIM SHARED RightArrowSpriteSmall(51)
 DIM SHARED LeftArrowSpriteSmall(51)
 DIM SHARED HoleSpriteSmall(51)
-DIM SHARED sippm1(51)
-DIM SHARED sippm2(51)
-DIM SHARED sippm10(51)
-DIM SHARED sippm20(51)
-DIM SHARED sippm3(51)
+DIM SHARED PlayerRunRight1SpriteSmall(51)
+DIM SHARED PlayerRunRight2SpriteSmall(51)
+DIM SHARED PlayerRunLeft1SpriteSmall(51)
+DIM SHARED PlayerRunLeft2SpriteSmall(51)
+DIM SHARED PlayerJumpingSpriteSmall(51)
 DIM SHARED DoorSpriteSmall(50)
 
 leftArrowKey$ = CHR$(0) + "K"
@@ -129,19 +129,19 @@ RenderSpriteFromFile 0, 0, 13, 1, 1
 GET (1, 1)-(20, 20), HoleSprite
 CLS
 RenderSpriteFromFile 0, 0, 14, 1, 1
-GET (1, 1)-(20, 20), sipp1
+GET (1, 1)-(20, 20), PlayerRunRight1Sprite
 CLS
 RenderSpriteFromFile 0, 0, 15, 1, 1
-GET (1, 1)-(20, 20), sipp2
+GET (1, 1)-(20, 20), PlayerRunRight2Sprite
 CLS
 RenderSpriteFromFile 0, 0, 14, 50, 1
-GET (1, 1)-(20, 20), sipp10
+GET (1, 1)-(20, 20), PlayerRunLeft1Sprite
 CLS
 RenderSpriteFromFile 0, 0, 15, 50, 1
-GET (1, 1)-(20, 20), sipp20
+GET (1, 1)-(20, 20), PlayerRunLeft2Sprite
 CLS
 RenderSpriteFromFile 0, 0, 16, 1, 1
-GET (1, 1)-(20, 20), sipp3
+GET (1, 1)-(20, 20), PlayerJumpingSprite
 CLS
 
 
@@ -187,19 +187,19 @@ RenderSpriteFromFile 0, 0, 13, 1, 2
 GET (1, 1)-(10, 10), HoleSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 14, 1, 2
-GET (1, 1)-(10, 10), sippm1
+GET (1, 1)-(10, 10), PlayerRunRight1SpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 15, 1, 2
-GET (1, 1)-(10, 10), sippm2
+GET (1, 1)-(10, 10), PlayerRunRight2SpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 14, 50, 2
-GET (1, 1)-(10, 10), sippm10
+GET (1, 1)-(10, 10), PlayerRunLeft1SpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 15, 50, 2
-GET (1, 1)-(10, 10), sippm20
+GET (1, 1)-(10, 10), PlayerRunLeft2SpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 16, 1, 2
-GET (1, 1)-(10, 10), sippm3
+GET (1, 1)-(10, 10), PlayerJumpingSpriteSmall
 CLS
 RenderSpriteFromFile 0, 0, 17, 1, 1
 GET (1, 1)-(21, 31), DoorSprite
@@ -222,11 +222,11 @@ MainGameLoop:
 keyboardInput$ = INKEY$
 IF GraphicsDisplayMode = 2 THEN b = b * 2: GOTO SmallScaleGameLoop
 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
-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
+IF b > 0 THEN IF sipp = 1 THEN PUT (a, b), PlayerRunRight1Sprite, OR
+IF b > 0 THEN IF sipp = 2 THEN PUT (a, b), PlayerRunRight2Sprite, OR
+IF b > 0 THEN IF sipp = 10 THEN PUT (a, b), PlayerRunLeft1Sprite, OR
+IF b > 0 THEN IF sipp = 20 THEN PUT (a, b), PlayerRunLeft2Sprite, OR
+IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), PlayerJumpingSprite, OR
 
 ' Draw first companion hedgehog
 GET (Companion1PositionX%, Companion1PositionY%)-(Companion1PositionX% + 10, Companion1PositionY% + 10), HedgehogSprite1
@@ -359,11 +359,11 @@ 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), 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
-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
+IF b > 0 THEN IF sipp = 1 THEN PUT (a \ 2, b \ 2), PlayerRunRight1SpriteSmall, OR
+IF b > 0 THEN IF sipp = 2 THEN PUT (a \ 2, b \ 2), PlayerRunRight2SpriteSmall, OR
+IF b > 0 THEN IF sipp = 10 THEN PUT (a \ 2, b \ 2), PlayerRunLeft1SpriteSmall, OR
+IF b > 0 THEN IF sipp = 20 THEN PUT (a \ 2, b \ 2), PlayerRunLeft2SpriteSmall, OR
+IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), PlayerJumpingSpriteSmall, OR
 
 ' Draw companions in scaled down mode
 GET (Companion1PositionX% \ 2, Companion1PositionY% \ 2)-((Companion1PositionX% + 10) \ 2, (Companion1PositionY% + 10) \ 2), HedgehogSpriteSmall1