From cf894a5c0bd4a89619acc8d3fdf6fc5948c78289 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Sun, 24 Aug 2025 22:54:53 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 36 ++++++++++++++--------------- 1 file changed, 18 insertions(+), 18 deletions(-) diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas index d4334c0..57cd220 100755 --- a/Games/Pomppu Paavo/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo/Pomppu Paavo.bas @@ -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), 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 +IF b > 0 THEN IF PlayerAnimationState = 1 THEN PUT (a, b), PlayerRunRight1Sprite, OR +IF b > 0 THEN IF PlayerAnimationState = 2 THEN PUT (a, b), PlayerRunRight2Sprite, OR +IF b > 0 THEN IF PlayerAnimationState = 10 THEN PUT (a, b), PlayerRunLeft1Sprite, OR +IF b > 0 THEN IF PlayerAnimationState = 20 THEN PUT (a, b), PlayerRunLeft2Sprite, OR +IF b > 0 THEN IF PlayerAnimationState = 3 THEN PUT (a, b), PlayerJumpingSprite, OR ' Draw first companion hedgehog GET (Companion1PositionX%, Companion1PositionY%)-(Companion1PositionX% + 10, Companion1PositionY% + 10), HedgehogSprite1 @@ -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) = "" ' Trampoline effect -IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 +IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: PlayerAnimationState = 3 ' Conveyor belt movement triggers IF ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 @@ -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 IF keyboardInput$ = rightArrowKey$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5 -IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2 -IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20 +IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 1: ELSE PlayerAnimationState = 2 +IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 10: ELSE PlayerAnimationState = 20 IF keyboardInput$ = leftArrowKey$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5 -IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3 +IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: PlayerAnimationState = 3 IF keyboardInput$ = downArrowKey$ THEN all = all + 1 IF keyboardInput$ = "/" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 1: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1 IF keyboardInput$ = "+" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 5: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1 @@ -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), 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 +IF b > 0 THEN IF PlayerAnimationState = 1 THEN PUT (a \ 2, b \ 2), PlayerRunRight1SpriteSmall, OR +IF b > 0 THEN IF PlayerAnimationState = 2 THEN PUT (a \ 2, b \ 2), PlayerRunRight2SpriteSmall, OR +IF b > 0 THEN IF PlayerAnimationState = 10 THEN PUT (a \ 2, b \ 2), PlayerRunLeft1SpriteSmall, OR +IF b > 0 THEN IF PlayerAnimationState = 20 THEN PUT (a \ 2, b \ 2), PlayerRunLeft2SpriteSmall, OR +IF b > 0 THEN IF PlayerAnimationState = 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 @@ -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) = "" ' Trampoline effect -IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 +IF TerrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: PlayerAnimationState = 3 ' Conveyor belt movement triggers IF ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 @@ -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 IF keyboardInput$ = rightArrowKey$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5 -IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2 -IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20 +IF keyboardInput$ = rightArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 1: ELSE PlayerAnimationState = 2 +IF keyboardInput$ = leftArrowKey$ THEN IF sipa = 1 THEN PlayerAnimationState = 10: ELSE PlayerAnimationState = 20 IF keyboardInput$ = leftArrowKey$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5 -IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3 +IF keyboardInput$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: PlayerAnimationState = 3 IF keyboardInput$ = downArrowKey$ THEN all = all + 1 IF keyboardInput$ = "/" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 1: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1 IF keyboardInput$ = "+" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 5: LoadCurrentLevel CurrentLevelNumber%: Companion1HorizontalVelocity = 1: Companion2HorizontalVelocity = 1 -- 2.20.1