From fbf243361f6efecbbcb0047b8457e5acae0ccd4a Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 20 Aug 2025 01:15:23 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo.bas | 144 ++++++++++++++++++++--------------------- 1 file changed, 72 insertions(+), 72 deletions(-) diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas index 39bebf3..752aa23 100755 --- a/Games/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo.bas @@ -23,8 +23,8 @@ DIM SHARED uks1, uks2, uks3, uks4 DIM SHARED currentLevelNumber DIM SHARED text$(1 TO 1000) DIM SHARED pikkus -DIM SHARED asend(0 TO 34, -10 TO 20) AS STRING * 1 -DIM SHARED asend1(0 TO 34, -10 TO 20) AS STRING * 1 +DIM SHARED terrainGrid(0 TO 34, -10 TO 20) AS STRING * 1 +DIM SHARED objectGrid(0 TO 34, -10 TO 20) AS STRING * 1 DIM SHARED ruut(51) DIM SHARED tuhi(51) DIM SHARED kast(51) @@ -233,36 +233,36 @@ PUT (hedgehogX, hedgehogY), siil, OR GET (secondHedgehogX, secondHedgehogY)-(secondHedgehogX + 10, secondHedgehogY + 10), siil2 PUT (secondHedgehogX, secondHedgehogY), siil, OR SOUND 0, .8 -IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 -IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 +IF terrainGrid((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 +IF terrainGrid((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 -IF asend((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 -IF asend((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 +IF terrainGrid((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 +IF terrainGrid((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 -IF asend((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 -IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 +IF terrainGrid((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 +IF terrainGrid((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 -IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 -IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 +IF terrainGrid((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 +IF terrainGrid((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 -qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: remainingLives = remainingLives - 1: eda = -10: all = -5: displayGameStats +qwer = qwer + 1: IF objectGrid((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: remainingLives = remainingLives - 1: eda = -10: all = -5: displayGameStats IF qwer > 100 THEN qwer = 50 - IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN coinCount = coinCount + 1: kustuta1 = 1: displayGameStats: asend((a + 30) \ 20, (b + 30) \ 20) = "" -IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 -IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 -IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3 + IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "1" THEN coinCount = coinCount + 1: kustuta1 = 1: displayGameStats: terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "" +IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 +IF objectGrid((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 +IF objectGrid((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3 lke = lke + 1 r = r + 1: IF r > 10 THEN r = 0: IF eda > 0 THEN eda = eda - 1: ELSE IF eda < 0 THEN eda = eda + 1 r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1 lk = lk + 1: cd = cd - 1 -IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1 -IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1 -IF asend((hedgehogX + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1 -IF asend((hedgehogX + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1 -IF asend((hedgehogX + 20) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = 1 -IF asend((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1 -IF asend((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1 -IF asend((secondHedgehogX + 20) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = 1 +IF objectGrid((a + 30) \ 20, (b + 21) \ 20) = "o" THEN terrainGrid((a + 30) \ 20, (b + 21) \ 20) = "": objectGrid((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1 +IF objectGrid((a + 30) \ 20, (b + 38) \ 20) = "a" THEN terrainGrid((a + 30) \ 20, (b + 38) \ 20) = "": objectGrid((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1 +IF terrainGrid((hedgehogX + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1 +IF terrainGrid((hedgehogX + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1 +IF terrainGrid((hedgehogX + 20) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = 1 +IF terrainGrid((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1 +IF terrainGrid((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1 +IF terrainGrid((secondHedgehogX + 20) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = 1 IF hedgehogX > 300 THEN siie = -1 IF hedgehogX < 3 THEN siie = 1 IF secondHedgehogX > 300 THEN siie1 = -1 @@ -274,12 +274,12 @@ IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 20, (b \ 20) * 20), tuhi IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 20, ((b + 10) \ 20) * 20), tuhi, PSET IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 20, ((b + 28) \ 20) * 20), tuhi, PSET IF makk = 1 THEN makk = 0: a = a - 20 -asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "" +objectGrid((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": objectGrid((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "" hedgehogX = hedgehogX + siie hedgehogY = hedgehogY + siiall secondHedgehogX = secondHedgehogX + siie1 secondHedgehogY = secondHedgehogY + siiall1 -asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "q" +objectGrid((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": objectGrid((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "q" siiall = siiall + 1: IF siiall > 2 THEN siiall = 2 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2 a = a + eda @@ -287,8 +287,8 @@ b = b + all IF a > 297 THEN a = 2: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1 IF a < 1 THEN a = 296: IF currentLevelNumber = 1 THEN loadLevel currentLevelNumber: ELSE currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: IF graphicsMode = 2 THEN a = 594 IF b > 179 THEN remainingLives = remainingLives - 1: displayGameStats: currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: b = 100: a = 2: displayGameStats -IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0 -IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0 +IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0 +IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0 WEND a$ = kbd$: kbd$ = "" IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5 @@ -321,36 +321,36 @@ PUT (hedgehogX \ 2, hedgehogY \ 2), siilm, OR GET (secondHedgehogX \ 2, secondHedgehogY \ 2)-((siia1 + 10) \ 2, (secondHedgehogY + 10) \ 2), siilm2 PUT (secondHedgehogX \ 2, secondHedgehogY \ 2), siilm, OR SOUND 0, .8 -IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 -IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 +IF terrainGrid((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 +IF terrainGrid((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 -IF asend((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 -IF asend((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 +IF terrainGrid((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 +IF terrainGrid((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 -IF asend((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 -IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 +IF terrainGrid((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 +IF terrainGrid((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 -IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 -IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 +IF terrainGrid((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 +IF terrainGrid((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 -qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: remainingLives = remainingLives - 1: eda = -5: all = -3: displayGameStats +qwer = qwer + 1: IF objectGrid((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: remainingLives = remainingLives - 1: eda = -5: all = -3: displayGameStats IF qwer > 100 THEN qwer = 50 -IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN coinCount = coinCount + 1: kustuta1 = 1: displayGameStats: asend((a + 30) \ 20, (b + 30) \ 20) = "" -IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 -IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 -IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3 +IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "1" THEN coinCount = coinCount + 1: kustuta1 = 1: displayGameStats: terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "" +IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 +IF objectGrid((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 +IF objectGrid((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3 lke = lke + 1 r = r + 1: IF r > 10 THEN r = 0: IF eda > 0 THEN eda = eda - 1: ELSE IF eda < 0 THEN eda = eda + 1 r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1 lk = lk + 1: cd = cd - 1 -IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1 -IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1 -IF asend((hedgehogX + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1 -IF asend((hedgehogX + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1 -IF asend((hedgehogX + 20) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = 1 -IF asend((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1 -IF asend((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1 -IF asend((secondHedgehogX + 20) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = 1 +IF objectGrid((a + 30) \ 20, (b + 21) \ 20) = "o" THEN terrainGrid((a + 30) \ 20, (b + 21) \ 20) = "": objectGrid((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1 +IF objectGrid((a + 30) \ 20, (b + 38) \ 20) = "a" THEN terrainGrid((a + 30) \ 20, (b + 38) \ 20) = "": objectGrid((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1 +IF terrainGrid((hedgehogX + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1 +IF terrainGrid((hedgehogX + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1 +IF terrainGrid((hedgehogX + 20) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = 1 +IF terrainGrid((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1 +IF terrainGrid((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1 +IF terrainGrid((secondHedgehogX + 20) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = 1 IF hedgehogX > 600 THEN siie = -1 IF hedgehogX < 3 THEN siie = 1 IF secondHedgehogX > 600 THEN siie1 = -1 @@ -362,12 +362,12 @@ IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 10, (b \ 20) * 10), tuhi IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 10, ((b + 10) \ 20) * 10), tuhim, PSET IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 10, ((b + 28) \ 20) * 10), tuhim, PSET IF makk = 1 THEN makk = 0: a = a - 20 -asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "" +objectGrid((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": objectGrid((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "" hedgehogX = hedgehogX + siie hedgehogY = hedgehogY + siiall secondHedgehogX = secondHedgehogX + siie1 secondHedgehogY = secondHedgehogY + siiall1 -asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "q" +objectGrid((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": objectGrid((hedgehogX + 25) \ 20, (hedgehogY + 8) \ 20) = "q" siiall = siiall + 1: IF siiall > 2 THEN siiall = 2 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2 a = a + eda @@ -375,8 +375,8 @@ b = b + all IF a > 594 THEN a = 2: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1 IF a < 1 THEN a = 594: IF currentLevelNumber = 1 THEN loadLevel currentLevelNumber: ELSE currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: IF graphicsMode = 1 THEN a = 297 IF b > 358 THEN remainingLives = remainingLives - 1: displayGameStats: currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: b = 100: a = 2: displayGameStats -IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0 -IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0 +IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0 +IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0 WEND a$ = kbd$: kbd$ = "" IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5 @@ -838,8 +838,8 @@ aiia1 = 0 secondHedgehogY = 0 FOR a1 = 1 TO 32 FOR b1 = 1 TO 20 -asend(a1, b1) = "" -asend1(a1, b1) = "" +terrainGrid(a1, b1) = "" +objectGrid(a1, b1) = "" NEXT b1 NEXT a1 FOR a = 1 TO 10 @@ -1125,22 +1125,22 @@ IF graphicsMode = 2 THEN GOTO 124 FOR e = 0 TO 9 FOR D = 0 TO 15 q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1) -IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, PSET: asend(D + 1, e + 1) = "z" -IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o" +IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, 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 IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET IF q$ = "x" THEN hedgehogX = D * 20: hedgehogY = (e + 1) * 20 IF q$ = "y" THEN secondHedgehogX = D * 20: secondHedgehogY = (e + 1) * 20 -IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1" +IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: terrainGrid(D + 1, e + 1) = "1" IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET -IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: asend(D + 1, e + 1) = "v" +IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: terrainGrid(D + 1, e + 1) = "v" IF q$ = "t" THEN PUT (D * 20, e * 20), puu, PSET -IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">" -IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<" -IF q$ = "a" THEN PUT (D * 20, e * 20), auk, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a" -IF q$ = "u" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20 -IF q$ = "U" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20 +IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(D + 1, e + 1) = ">" +IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(D + 1, e + 1) = "<" +IF q$ = "a" THEN PUT (D * 20, e * 20), auk, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(D + 1, e + 1) = "a" +IF q$ = "u" THEN PUT (D * 20, e * 20), uks, PSET: terrainGrid(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20 +IF q$ = "U" THEN PUT (D * 20, e * 20), uks, PSET: terrainGrid(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20 NEXT D NEXT e GOTO 123 @@ -1148,22 +1148,22 @@ GOTO 123 FOR e = 0 TO 19 FOR D = 0 TO 30 q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1) -IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, PSET: asend(D + 1, e + 1) = "z" -IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o" +IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, 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 IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET IF q$ = "x" THEN hedgehogX = D * 20: hedgehogY = (e + 1) * 20 IF q$ = "y" THEN secondHedgehogX = D * 20: secondHedgehogY = (e + 1) * 20 -IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1" +IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: terrainGrid(D + 1, e + 1) = "1" IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET -IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: asend(D + 1, e + 1) = "v" +IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: terrainGrid(D + 1, e + 1) = "v" IF q$ = "t" THEN PUT (D * 10, e * 10), puum, PSET -IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">" -IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<" -IF q$ = "a" THEN PUT (D * 10, e * 10), aukm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a" -IF q$ = "u" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20 -IF q$ = "U" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20 +IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(D + 1, e + 1) = ">" +IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(D + 1, e + 1) = "<" +IF q$ = "a" THEN PUT (D * 10, e * 10), aukm, PSET: terrainGrid(D + 1, e + 1) = "z": objectGrid(D + 1, e + 1) = "a" +IF q$ = "u" THEN PUT (D * 10, e * 10), uksm, PSET: terrainGrid(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20 +IF q$ = "U" THEN PUT (D * 10, e * 10), uksm, PSET: terrainGrid(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20 NEXT D NEXT e 123 -- 2.20.1