From 9b880e2809f4c283df167efbe973f68bd2e01427 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Sun, 24 Aug 2025 21:41:00 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 74 ++++++++++++++--------------- 1 file changed, 37 insertions(+), 37 deletions(-) diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas index 944df00..974f8f4 100755 --- a/Games/Pomppu Paavo/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo/Pomppu Paavo.bas @@ -15,7 +15,7 @@ DECLARE SUB LoadCurrentLevel (y%) DEFINT A-Z DIM SHARED GraphicsDisplayMode -DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31 +DIM SHARED AsciiLevelData(1 TO 20) AS STRING * 31 DIM SHARED Companion1PositionY%, Companion1PositionX%, Companion2PositionY%, Companion2PositionX% DIM SHARED LivesRemaining%, CoinsCollected% DIM SHARED DoorEntryX%, DoorEntryY%, DoorExitX%, DoorExitY% @@ -218,7 +218,7 @@ siie = 1 siie1 = 1 MainGameLoop: keyboardInput$ = INKEY$ -IF GraphicsDisplayMode = 2 THEN b = b * 2: GOTO mainLoopSmallScale +IF GraphicsDisplayMode = 2 THEN b = b * 2: GOTO SmallScaleGameLoop IF b > 0 THEN GET (a, b)-(a + 20, b + 20), mar1 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 @@ -353,7 +353,7 @@ IF sipa = 3 THEN sipa = 1 GOTO MainGameLoop -mainLoopSmallScale: +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), marm1 @@ -485,7 +485,7 @@ IF keyboardInput$ = "q" THEN END sipa = sipa + 1 IF sipa = 3 THEN sipa = 1 -GOTO mainLoopSmallScale +GOTO SmallScaleGameLoop SUB DisplayGameStatistics ' @@ -572,7 +572,7 @@ FOR a1 = 1 TO 32 NEXT a1 FOR a = 1 TO 20 - asciiLevelData(a) = "" + AsciiLevelData(a) = "" NEXT a CLS @@ -584,7 +584,7 @@ IF y >= 1 AND y <= 18 THEN INPUT #1, GraphicsDisplayMode, increment i% = 1 WHILE NOT EOF(1) - LINE INPUT #1, asciiLevelData(i%) + LINE INPUT #1, AsciiLevelData(i%) i% = i% + 1 WEND CLOSE #1 @@ -604,43 +604,43 @@ ELSE SCREEN 2 END CASE 100 - asciiLevelData(1) = " " - asciiLevelData(2) = " " - asciiLevelData(3) = " " - asciiLevelData(4) = " " - asciiLevelData(5) = " " - asciiLevelData(6) = " " - asciiLevelData(7) = " " - asciiLevelData(8) = " " - asciiLevelData(9) = " " - asciiLevelData(10) = " " + AsciiLevelData(1) = " " + AsciiLevelData(2) = " " + AsciiLevelData(3) = " " + AsciiLevelData(4) = " " + AsciiLevelData(5) = " " + AsciiLevelData(6) = " " + AsciiLevelData(7) = " " + AsciiLevelData(8) = " " + AsciiLevelData(9) = " " + AsciiLevelData(10) = " " CASE 101 - asciiLevelData(1) = " " - asciiLevelData(2) = " " - asciiLevelData(3) = " " - asciiLevelData(4) = " " - asciiLevelData(5) = " " - asciiLevelData(6) = " " - asciiLevelData(7) = " " - asciiLevelData(8) = " " - asciiLevelData(9) = " " - asciiLevelData(10) = " " - asciiLevelData(11) = " " - asciiLevelData(12) = " " - asciiLevelData(13) = " " - asciiLevelData(14) = " " - asciiLevelData(15) = " " - asciiLevelData(16) = " " - asciiLevelData(17) = " " - asciiLevelData(18) = " " - asciiLevelData(19) = " " + AsciiLevelData(1) = " " + AsciiLevelData(2) = " " + AsciiLevelData(3) = " " + AsciiLevelData(4) = " " + AsciiLevelData(5) = " " + AsciiLevelData(6) = " " + AsciiLevelData(7) = " " + AsciiLevelData(8) = " " + AsciiLevelData(9) = " " + AsciiLevelData(10) = " " + AsciiLevelData(11) = " " + AsciiLevelData(12) = " " + AsciiLevelData(13) = " " + AsciiLevelData(14) = " " + AsciiLevelData(15) = " " + AsciiLevelData(16) = " " + AsciiLevelData(17) = " " + AsciiLevelData(18) = " " + AsciiLevelData(19) = " " GraphicsDisplayMode = 2 END SELECT END IF IF GraphicsDisplayMode = 2 THEN GOTO 124 FOR e = 0 TO 9 FOR D = 0 TO 15 -q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1) +q$ = RIGHT$(LEFT$(AsciiLevelData(e + 1), D + 1), 1) IF q$ = "m" THEN PUT (D * 20, e * 20), SolidTerrainSprite, PSET: TerrainGrid(D + 1, e + 1) = "z" IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "o" IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET @@ -663,7 +663,7 @@ GOTO 123 124 FOR e = 0 TO 19 FOR D = 0 TO 30 -q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1) +q$ = RIGHT$(LEFT$(AsciiLevelData(e + 1), D + 1), 1) IF q$ = "m" THEN PUT (D * 10, e * 10), SolidTerrainSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z" IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "o" IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET -- 2.20.1