From f8b19d8c22a5b16871cb86f122474e80318c781d Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 20 Aug 2025 01:06:49 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo.bas | 44 +++++++++++++++++++++--------------------- 1 file changed, 22 insertions(+), 22 deletions(-) diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas index bd902ae..2f5219b 100755 --- a/Games/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo.bas @@ -17,7 +17,7 @@ DECLARE SUB drawSprite (p%, o%, m%, fr%, teler%) DEFINT A-Z DIM SHARED graphicsMode DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31 -DIM SHARED siib, siia, secondHedgehogY, secondHedgehogX +DIM SHARED hedgehogY, siia, secondHedgehogY, secondHedgehogX DIM SHARED elu, raha DIM SHARED uks1, uks2, uks3, uks4 DIM SHARED maa @@ -228,8 +228,8 @@ IF b > 0 THEN IF sipp = 10 THEN PUT (a, b), sipp10, OR IF b > 0 THEN IF sipp = 20 THEN PUT (a, b), sipp20, OR IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), sipp3, OR -GET (siia, siib)-(siia + 10, siib + 10), siil1 -PUT (siia, siib), siil, OR +GET (siia, hedgehogY)-(siia + 10, hedgehogY + 10), siil1 +PUT (siia, hedgehogY), siil, OR GET (secondHedgehogX, secondHedgehogY)-(secondHedgehogX + 10, secondHedgehogY + 10), siil2 PUT (secondHedgehogX, secondHedgehogY), siil, OR SOUND 0, .8 @@ -257,9 +257,9 @@ 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((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1 -IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1 -IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1 +IF asend((siia + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1 +IF asend((siia + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1 +IF asend((siia + 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 @@ -268,18 +268,18 @@ IF siia < 3 THEN siie = 1 IF secondHedgehogX > 300 THEN siie1 = -1 IF secondHedgehogX < 3 THEN siie1 = 1 PUT (secondHedgehogX, secondHedgehogY), siil2, PSET -PUT (siia, siib), siil1, PSET +PUT (siia, hedgehogY), siil1, PSET IF b > 0 THEN PUT (a, b), mar1, PSET IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 20, (b \ 20) * 20), tuhi, PSET 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((siia + 25) \ 20, (siib + 8) \ 20) = "" +asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (hedgehogY + 8) \ 20) = "" siia = siia + siie -siib = siib + siiall +hedgehogY = hedgehogY + siiall secondHedgehogX = secondHedgehogX + siie1 secondHedgehogY = secondHedgehogY + siiall1 -asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q" +asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 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 @@ -316,8 +316,8 @@ IF b > 0 THEN IF sipp = 10 THEN PUT (a \ 2, b \ 2), sippm10, OR IF b > 0 THEN IF sipp = 20 THEN PUT (a \ 2, b \ 2), sippm20, OR IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), sippm3, OR -GET (siia \ 2, siib \ 2)-((siia + 10) \ 2, (siib + 10) \ 2), siilm1 -PUT (siia \ 2, siib \ 2), siilm, OR +GET (siia \ 2, hedgehogY \ 2)-((siia + 10) \ 2, (hedgehogY + 10) \ 2), siilm1 +PUT (siia \ 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 @@ -345,9 +345,9 @@ 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((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1 -IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1 -IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1 +IF asend((siia + 25) \ 20, (hedgehogY + 25) \ 20) = "z" THEN siiall = -1 +IF asend((siia + 30) \ 20, (hedgehogY + 10) \ 20) = "z" THEN siie = -1 +IF asend((siia + 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 @@ -356,18 +356,18 @@ IF siia < 3 THEN siie = 1 IF secondHedgehogX > 600 THEN siie1 = -1 IF secondHedgehogX < 3 THEN siie1 = 1 PUT (secondHedgehogX \ 2, secondHedgehogY \ 2), siilm2, PSET -PUT (siia \ 2, siib \ 2), siilm1, PSET +PUT (siia \ 2, hedgehogY \ 2), siilm1, PSET IF b > 0 THEN PUT (a \ 2, b \ 2), marm1, PSET IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 10, (b \ 20) * 10), tuhim, PSET 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((siia + 25) \ 20, (siib + 8) \ 20) = "" +asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "": asend1((siia + 25) \ 20, (hedgehogY + 8) \ 20) = "" siia = siia + siie -siib = siib + siiall +hedgehogY = hedgehogY + siiall secondHedgehogX = secondHedgehogX + siie1 secondHedgehogY = secondHedgehogY + siiall1 -asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q" +asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 8) \ 20) = "q": asend1((siia + 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 @@ -833,7 +833,7 @@ END SUB SUB loadLevel (y) 125 siia = 0 -siib = 0 +hedgehogY = 0 aiia1 = 0 secondHedgehogY = 0 FOR a1 = 1 TO 32 @@ -1129,7 +1129,7 @@ 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$ = "." THEN PUT (D * 20, e * 20), taht, PSET IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET -IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20 +IF q$ = "x" THEN siia = 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$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET @@ -1152,7 +1152,7 @@ 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$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET -IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20 +IF q$ = "x" THEN siia = 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$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET -- 2.20.1