Better code readability

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