Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index d4334c0..57cd220 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -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), 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
+IF b > 0 THEN IF PlayerAnimationState = 1 THEN PUT (a, b), PlayerRunRight1Sprite, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 2 THEN PUT (a, b), PlayerRunRight2Sprite, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 10 THEN PUT (a, b), PlayerRunLeft1Sprite, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 20 THEN PUT (a, b), PlayerRunLeft2Sprite, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 3 THEN PUT (a, b), PlayerJumpingSprite, OR\r
 \r
 ' Draw first companion hedgehog\r
 GET (Companion1PositionX%, Companion1PositionY%)-(Companion1PositionX% + 10, Companion1PositionY% + 10), HedgehogSprite1\r
@@ -263,7 +263,7 @@ IF qwer > 100 THEN qwer = 50
 IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "1" THEN CoinsCollected% = CoinsCollected% + 1: kustuta1 = 1: DisplayGameStatistics: TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = ""\r
 \r
 ' Trampoline effect\r
-IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3\r
+IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: PlayerAnimationState = 3\r
 \r
 ' Conveyor belt movement triggers\r
 IF ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3\r
@@ -342,10 +342,10 @@ IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = DoorExitX% + 10: b =
 IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = DoorEntryX% + 10: b = DoorEntryY%: eda = 0\r
 \r
 IF keyboardInput$ = rightArrowKey$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5\r
-IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN sipp = 1:  ELSE sipp = 2\r
-IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20\r
+IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 1:  ELSE PlayerAnimationState = 2\r
+IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 10:  ELSE PlayerAnimationState = 20\r
 IF keyboardInput$ = leftArrowKey$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5\r
-IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3\r
+IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: PlayerAnimationState = 3\r
 IF keyboardInput$ = downArrowKey$ THEN all = all + 1\r
 IF keyboardInput$ = "/" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 1: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1\r
 IF keyboardInput$ = "+" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 5: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1\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), 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
+IF b > 0 THEN IF PlayerAnimationState = 1 THEN PUT (a \ 2, b \ 2), PlayerRunRight1SpriteSmall, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 2 THEN PUT (a \ 2, b \ 2), PlayerRunRight2SpriteSmall, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 10 THEN PUT (a \ 2, b \ 2), PlayerRunLeft1SpriteSmall, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 20 THEN PUT (a \ 2, b \ 2), PlayerRunLeft2SpriteSmall, OR\r
+IF b > 0 THEN IF PlayerAnimationState = 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
@@ -401,7 +401,7 @@ IF qwer > 100 THEN qwer = 50
 IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "1" THEN CoinsCollected% = CoinsCollected% + 1: kustuta1 = 1: DisplayGameStatistics: TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = ""\r
 \r
 ' Trampoline effect\r
-IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3\r
+IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: PlayerAnimationState = 3\r
 \r
 ' Conveyor belt movement triggers\r
 IF ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3\r
@@ -478,10 +478,10 @@ IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = DoorExitX% + 5: b =
 IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = DoorEntryX% + 5: b = DoorEntryY%: eda = 0\r
 \r
 IF keyboardInput$ = rightArrowKey$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5\r
-IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN sipp = 1:  ELSE sipp = 2\r
-IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20\r
+IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 1:  ELSE PlayerAnimationState = 2\r
+IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 10:  ELSE PlayerAnimationState = 20\r
 IF keyboardInput$ = leftArrowKey$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5\r
-IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3\r
+IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: PlayerAnimationState = 3\r
 IF keyboardInput$ = downArrowKey$ THEN all = all + 1\r
 IF keyboardInput$ = "/" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 1: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1\r
 IF keyboardInput$ = "+" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 5: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1\r