From 02885608bce0bc2fa1c0b7fbb1213237c09f34c8 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Tue, 5 Aug 2025 00:03:29 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 294 ++++++++++++++-------------- 1 file changed, 147 insertions(+), 147 deletions(-) diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas index 234281c..75be07a 100755 --- a/Games/Pomppu Paavo/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo/Pomppu Paavo.bas @@ -36,8 +36,8 @@ DIM SHARED pikkus DIM SHARED ruum(-5 TO 20, -5 TO 20) AS STRING DIM SHARED ruum1(-5 TO 20, -5 TO 20) AS STRING -DIM SHARED maa(1 TO 11, 1 TO 10) AS STRING * 15 -DIM SHARED maa1(1 TO 10) AS INTEGER +DIM SHARED levelData(1 TO 11, 1 TO 10) AS STRING * 15 +DIM SHARED levelSkyColor(1 TO 10) AS INTEGER DIM SHARED maailm AS INTEGER DIM SHARED maailm1 AS INTEGER DIM SHARED text5(1 TO 15) AS STRING * 15 @@ -54,14 +54,14 @@ DIM SHARED mari0(402) DIM SHARED mari(202, 1 TO 5) DIM SHARED koll(1 TO 230, 1 TO 10) DIM SHARED koll1(1 TO 202, 1 TO 5) -DIM SHARED kolla(1 TO 10) -DIM SHARED kollb(1 TO 10) +DIM SHARED mobX(1 TO 10) +DIM SHARED mobY(1 TO 10) DIM SHARED kollal(1 TO 10) DIM SHARED kolled(1 TO 10) DIM SHARED rahaz(1 TO 5) DIM SHARED number(100, 0 TO 11) -DIM SHARED elud +DIM SHARED lives DIM SHARED raha DIM SHARED clra, clrb @@ -184,20 +184,20 @@ liig = 1 ov1 = 1 ov2 = 2 raha = 0 -elud = 3 +lives = 3 z = 1 nait 0 12 IF b1 > 0 THEN GET (a1, b1)-(a1 + 20, b1 + 20), mari0: PUT (a1, b1), mari(202, liig), OR FOR ox = 1 TO 10 -IF kollb(ox) < 170 AND z = 1 THEN - kollb(ox) = kollb(ox) + kollal(ox) - kolla(ox) = kolla(ox) + kolled(ox) - GET (kolla(ox), kollb(ox))-(kolla(ox) + 20, kollb(ox) + 20), koll(202, ox) +IF mobY(ox) < 170 AND z = 1 THEN + mobY(ox) = mobY(ox) + kollal(ox) + mobX(ox) = mobX(ox) + kolled(ox) + GET (mobX(ox), mobY(ox))-(mobX(ox) + 20, mobY(ox) + 20), koll(202, ox) IF kolled(ox) <= 0 THEN kolll = 1 ELSE kolll = 3 IF zz > 2 THEN kolll = kolll + 1: IF zz = 3 THEN kollal(ox) = kollal(ox) + 1 - PUT (kolla(ox), kollb(ox)), koll1(202, kolll) + PUT (mobX(ox), mobY(ox)), koll1(202, kolll) END IF NEXT ox SOUND 0, .5 @@ -214,13 +214,13 @@ IF zy = 2 THEN ov1 = 1: ov2 = 2 IF zy = 1 THEN ov1 = 3: ov2 = 4 FOR ox = 1 TO 10 -IF kollb(ox) < 170 THEN -IF ruum((kolla(ox) + 20) / 20, (kollb(ox) + 9) / 20) = "m" THEN kollal(ox) = -1 -IF kolla(ox) > 270 THEN kolled(ox) = -1 -IF kolla(ox) < 2 THEN kolled(ox) = 1 -IF ruum((kolla(ox) + 28) / 20, kollb(ox) / 20) = "m" THEN kolled(ox) = -1 -IF ruum((kolla(ox) + 10) / 20, kollb(ox) / 20) = "m" THEN kolled(ox) = 1 -IF kolla(ox) - 20 < a1 AND kolla(ox) + 20 > a1 AND kollb(ox) - 5 < b1 AND kollb(ox) + 20 > b1 THEN aargh: dead: GOTO 12 +IF mobY(ox) < 170 THEN +IF ruum((mobX(ox) + 20) / 20, (mobY(ox) + 9) / 20) = "m" THEN kollal(ox) = -1 +IF mobX(ox) > 270 THEN kolled(ox) = -1 +IF mobX(ox) < 2 THEN kolled(ox) = 1 +IF ruum((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1 +IF ruum((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1 +IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN aargh: dead: GOTO 12 END IF NEXT ox END IF @@ -249,7 +249,7 @@ IF b1 > 0 THEN PUT (a1, b1), mari0, PSET IF z = 1 THEN FOR ox = 10 TO 1 STEP -1 -IF kollb(ox) < 170 THEN PUT (kolla(ox), kollb(ox)), koll(202, ox), PSET +IF mobY(ox) < 170 THEN PUT (mobX(ox), mobY(ox)), koll(202, ox), PSET NEXT ox END IF @@ -286,7 +286,7 @@ IF maailm > 1 THEN maailm = maailm - 1 level a1 = 20 b1 = 100 -elud = elud - 1 +lives = lives - 1 nait 0 END SUB @@ -366,12 +366,12 @@ END END IF FOR a = 1 TO 10 -text5(a + 1) = maa(a, maailm) +text5(a + 1) = levelData(a, maailm) NEXT a FOR a = 1 TO 10 FOR b = 1 TO 15 -IF ruum(b, a - 2) = "2" THEN MID$(maa(a, maailm1), b) = " " +IF ruum(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " " NEXT b NEXT a maailm1 = maailm @@ -384,13 +384,13 @@ NEXT b NEXT a FOR a = 1 TO 10 -kollb(a) = 1000 +mobY(a) = 1000 kolled(a) = 1 kollal(a) = 0 NEXT a CLS -PAINT (1, 1), maa1(maailm) +PAINT (1, 1), levelSkyColor(maailm) GET (1, 2)-(20, 21), tuhi FOR a = 2 TO 10 FOR b = 1 TO 15 @@ -403,131 +403,131 @@ IF c$ = "m" THEN PUT ((b - 1) * 20, (a - 2) * 20), kast, PSET: ruum(b, a - 2) = IF c$ = "o" THEN PUT ((b - 1) * 20, (a - 2) * 20), tellis, PSET: ruum(b, a - 2) = "m": ruum1(b, a - 2) = "o" IF c$ = " " THEN ruum(b, a) = " " -IF c$ = "1" THEN kolla(1) = (b - 1) * 20: kollb(1) = (a - 2) * 20: GET (kolla(1), kollb(1))-(kolla(1) + 20, kollb(1) + 20), koll(202, 1) -IF c$ = "2" THEN kolla(2) = (b - 1) * 20: kollb(2) = (a - 2) * 20: GET (kolla(2), kollb(2))-(kolla(2) + 20, kollb(2) + 20), koll(202, 2) -IF c$ = "3" THEN kolla(3) = (b - 1) * 20: kollb(3) = (a - 2) * 20: GET (kolla(3), kollb(3))-(kolla(3) + 20, kollb(3) + 20), koll(202, 3) -IF c$ = "4" THEN kolla(4) = (b - 1) * 20: kollb(4) = (a - 2) * 20: GET (kolla(4), kollb(4))-(kolla(4) + 20, kollb(4) + 20), koll(202, 4) -IF c$ = "5" THEN kolla(5) = (b - 1) * 20: kollb(5) = (a - 2) * 20: GET (kolla(5), kollb(5))-(kolla(5) + 20, kollb(5) + 20), koll(202, 5) -IF c$ = "6" THEN kolla(6) = (b - 1) * 20: kollb(6) = (a - 2) * 20: GET (kolla(6), kollb(6))-(kolla(6) + 20, kollb(6) + 20), koll(202, 6) -IF c$ = "7" THEN kolla(7) = (b - 1) * 20: kollb(7) = (a - 2) * 20: GET (kolla(7), kollb(7))-(kolla(7) + 20, kollb(7) + 20), koll(202, 7) -IF c$ = "8" THEN kolla(8) = (b - 1) * 20: kollb(8) = (a - 2) * 20: GET (kolla(8), kollb(8))-(kolla(8) + 20, kollb(8) + 20), koll(202, 8) -IF c$ = "9" THEN kolla(9) = (b - 1) * 20: kollb(9) = (a - 2) * 20: GET (kolla(9), kollb(9))-(kolla(9) + 20, kollb(9) + 20), koll(202, 9) -IF c$ = "0" THEN kolla(10) = (b - 1) * 20: kollb(10) = (a - 2) * 20: GET (kolla(10), kollb(10))-(kolla(10) + 20, kollb(10) + 20), koll(202, 10) +IF c$ = "1" THEN mobX(1) = (b - 1) * 20: mobY(1) = (a - 2) * 20: GET (mobX(1), mobY(1))-(mobX(1) + 20, mobY(1) + 20), koll(202, 1) +IF c$ = "2" THEN mobX(2) = (b - 1) * 20: mobY(2) = (a - 2) * 20: GET (mobX(2), mobY(2))-(mobX(2) + 20, mobY(2) + 20), koll(202, 2) +IF c$ = "3" THEN mobX(3) = (b - 1) * 20: mobY(3) = (a - 2) * 20: GET (mobX(3), mobY(3))-(mobX(3) + 20, mobY(3) + 20), koll(202, 3) +IF c$ = "4" THEN mobX(4) = (b - 1) * 20: mobY(4) = (a - 2) * 20: GET (mobX(4), mobY(4))-(mobX(4) + 20, mobY(4) + 20), koll(202, 4) +IF c$ = "5" THEN mobX(5) = (b - 1) * 20: mobY(5) = (a - 2) * 20: GET (mobX(5), mobY(5))-(mobX(5) + 20, mobY(5) + 20), koll(202, 5) +IF c$ = "6" THEN mobX(6) = (b - 1) * 20: mobY(6) = (a - 2) * 20: GET (mobX(6), mobY(6))-(mobX(6) + 20, mobY(6) + 20), koll(202, 6) +IF c$ = "7" THEN mobX(7) = (b - 1) * 20: mobY(7) = (a - 2) * 20: GET (mobX(7), mobY(7))-(mobX(7) + 20, mobY(7) + 20), koll(202, 7) +IF c$ = "8" THEN mobX(8) = (b - 1) * 20: mobY(8) = (a - 2) * 20: GET (mobX(8), mobY(8))-(mobX(8) + 20, mobY(8) + 20), koll(202, 8) +IF c$ = "9" THEN mobX(9) = (b - 1) * 20: mobY(9) = (a - 2) * 20: GET (mobX(9), mobY(9))-(mobX(9) + 20, mobY(9) + 20), koll(202, 9) +IF c$ = "0" THEN mobX(10) = (b - 1) * 20: mobY(10) = (a - 2) * 20: GET (mobX(10), mobY(10))-(mobX(10) + 20, mobY(10) + 20), koll(202, 10) NEXT b NEXT a nait 0 END SUB SUB level1 -maa1(1) = 1 -maa(1, 1) = "m " -maa(2, 1) = "m - - " -maa(3, 1) = "m " -maa(4, 1) = "m $ $ $ $ " -maa(5, 1) = "m $ $ $ $ " -maa(6, 1) = "m + momom " -maa(7, 1) = "m " -maa(8, 1) = "m . . " -maa(9, 1) = "mmmmmmmmmmmmmmm" - -maa1(2) = 1 -maa(1, 2) = " $2- " -maa(2, 2) = " o$ " -maa(3, 2) = " o$ - " -maa(4, 2) = " o$ 3 " -maa(5, 2) = " o o1 " -maa(6, 2) = " + mmom" -maa(7, 2) = " omom m " -maa(8, 2) = " $ $ $ $ m " -maa(9, 2) = "mmmm mm" - -maa1(3) = 1 -maa(1, 3) = " mmmmm" -maa(2, 3) = "- $ $ mmmmm" -maa(3, 3) = " $ $ $ mmmmm" -maa(4, 3) = " $ $ mmmmm" -maa(5, 3) = " . mmmmm" -maa(6, 3) = "mmmm 1 mmmm" -maa(7, 3) = " mm m" -maa(8, 3) = " mmm " -maa(9, 3) = "mmm mmmmm" - -maa1(4) = 0 -maa(1, 4) = "mmmmmmmmmmmmmmm" -maa(2, 4) = "m$ $ $ $ $ " -maa(3, 4) = "mm $m $4$ $ $ " -maa(4, 4) = "m$m mmmmmommmm" -maa(5, 4) = "m$ 3 2 m" -maa(6, 4) = "m1 ooooooomo m" -maa(7, 4) = "mooo$$$$$$$m m" -maa(8, 4) = " m" -maa(9, 4) = "mmmmmmmmmmmmmmm" - -maa1(5) = 0 -maa(1, 5) = "mmmmmmmmmmmmmmm" -maa(2, 5) = " m " -maa(3, 5) = "m m 1 3 mmmm" -maa(4, 5) = "m m mmm o m" -maa(5, 5) = "m m4567892o m" -maa(6, 5) = "m mooooommo m" -maa(7, 5) = "m mm" -maa(8, 5) = "m mmm" -maa(9, 5) = "mmmm mmm mmmm" - -maa1(6) = 1 -maa(1, 6) = "m " -maa(2, 6) = " - $ - " -maa(3, 6) = "m $ $ " -maa(4, 6) = "m o o $ " -maa(5, 6) = "m o o " -maa(6, 6) = "m + " -maa(7, 6) = "m " -maa(8, 6) = "mm 1 m 2 m " -maa(9, 6) = "mmmmmmmmmmmmmmm" - -maa1(7) = 1 -maa(1, 7) = " - " -maa(2, 7) = " - " -maa(3, 7) = " 1m" -maa(4, 7) = " 2mm" -maa(5, 7) = " 3mmm" -maa(6, 7) = " o + 4mmmm" -maa(7, 7) = " ooo 5mmmmm" -maa(8, 7) = " 6mmmmmm" -maa(9, 7) = "mmmmmmmmmmmmmmm" - -maa1(8) = 1 -maa(1, 8) = " mmmmmmmmmmmmm" -maa(2, 8) = " m123m456m789 " -maa(3, 8) = " mm$mmm$mmm$mm" -maa(4, 8) = " mm$$$$$$$$$$m" -maa(5, 8) = " mmom$mmm$mmmm" -maa(6, 8) = " o$$$$$$$$$ o" -maa(7, 8) = " omooooooo o" -maa(8, 8) = " - m " -maa(9, 8) = "mmmmmmmmmmmmmmm" - -maa1(9) = 0 -maa(1, 9) = " 12345" -maa(2, 9) = " 6789 " -maa(3, 9) = " mm" -maa(4, 9) = " m " -maa(5, 9) = " m " -maa(6, 9) = " m " -maa(7, 9) = " m " -maa(8, 9) = " m " -maa(9, 9) = "mm " - -maa1(10) = 1 -maa(1, 10) = "m " -maa(2, 10) = " - " -maa(3, 10) = "m - " -maa(4, 10) = "m + " -maa(5, 10) = "m " -maa(6, 10) = "m + 2 " -maa(7, 10) = "m mmm " -maa(8, 10) = "m . 1 " -maa(9, 10) = "mmmmmmmmmmm mm" +levelSkyColor(1) = 1 +levelData(1, 1) = "m " +levelData(2, 1) = "m - - " +levelData(3, 1) = "m " +levelData(4, 1) = "m $ $ $ $ " +levelData(5, 1) = "m $ $ $ $ " +levelData(6, 1) = "m + momom " +levelData(7, 1) = "m " +levelData(8, 1) = "m . . " +levelData(9, 1) = "mmmmmmmmmmmmmmm" + +levelSkyColor(2) = 1 +levelData(1, 2) = " $2- " +levelData(2, 2) = " o$ " +levelData(3, 2) = " o$ - " +levelData(4, 2) = " o$ 3 " +levelData(5, 2) = " o o1 " +levelData(6, 2) = " + mmom" +levelData(7, 2) = " omom m " +levelData(8, 2) = " $ $ $ $ m " +levelData(9, 2) = "mmmm mm" + +levelSkyColor(3) = 1 +levelData(1, 3) = " mmmmm" +levelData(2, 3) = "- $ $ mmmmm" +levelData(3, 3) = " $ $ $ mmmmm" +levelData(4, 3) = " $ $ mmmmm" +levelData(5, 3) = " . mmmmm" +levelData(6, 3) = "mmmm 1 mmmm" +levelData(7, 3) = " mm m" +levelData(8, 3) = " mmm " +levelData(9, 3) = "mmm mmmmm" + +levelSkyColor(4) = 0 +levelData(1, 4) = "mmmmmmmmmmmmmmm" +levelData(2, 4) = "m$ $ $ $ $ " +levelData(3, 4) = "mm $m $4$ $ $ " +levelData(4, 4) = "m$m mmmmmommmm" +levelData(5, 4) = "m$ 3 2 m" +levelData(6, 4) = "m1 ooooooomo m" +levelData(7, 4) = "mooo$$$$$$$m m" +levelData(8, 4) = " m" +levelData(9, 4) = "mmmmmmmmmmmmmmm" + +levelSkyColor(5) = 0 +levelData(1, 5) = "mmmmmmmmmmmmmmm" +levelData(2, 5) = " m " +levelData(3, 5) = "m m 1 3 mmmm" +levelData(4, 5) = "m m mmm o m" +levelData(5, 5) = "m m4567892o m" +levelData(6, 5) = "m mooooommo m" +levelData(7, 5) = "m mm" +levelData(8, 5) = "m mmm" +levelData(9, 5) = "mmmm mmm mmmm" + +levelSkyColor(6) = 1 +levelData(1, 6) = "m " +levelData(2, 6) = " - $ - " +levelData(3, 6) = "m $ $ " +levelData(4, 6) = "m o o $ " +levelData(5, 6) = "m o o " +levelData(6, 6) = "m + " +levelData(7, 6) = "m " +levelData(8, 6) = "mm 1 m 2 m " +levelData(9, 6) = "mmmmmmmmmmmmmmm" + +levelSkyColor(7) = 1 +levelData(1, 7) = " - " +levelData(2, 7) = " - " +levelData(3, 7) = " 1m" +levelData(4, 7) = " 2mm" +levelData(5, 7) = " 3mmm" +levelData(6, 7) = " o + 4mmmm" +levelData(7, 7) = " ooo 5mmmmm" +levelData(8, 7) = " 6mmmmmm" +levelData(9, 7) = "mmmmmmmmmmmmmmm" + +levelSkyColor(8) = 1 +levelData(1, 8) = " mmmmmmmmmmmmm" +levelData(2, 8) = " m123m456m789 " +levelData(3, 8) = " mm$mmm$mmm$mm" +levelData(4, 8) = " mm$$$$$$$$$$m" +levelData(5, 8) = " mmom$mmm$mmmm" +levelData(6, 8) = " o$$$$$$$$$ o" +levelData(7, 8) = " omooooooo o" +levelData(8, 8) = " - m " +levelData(9, 8) = "mmmmmmmmmmmmmmm" + +levelSkyColor(9) = 0 +levelData(1, 9) = " 12345" +levelData(2, 9) = " 6789 " +levelData(3, 9) = " mm" +levelData(4, 9) = " m " +levelData(5, 9) = " m " +levelData(6, 9) = " m " +levelData(7, 9) = " m " +levelData(8, 9) = " m " +levelData(9, 9) = "mm " + +levelSkyColor(10) = 1 +levelData(1, 10) = "m " +levelData(2, 10) = " - " +levelData(3, 10) = "m - " +levelData(4, 10) = "m + " +levelData(5, 10) = "m " +levelData(6, 10) = "m + 2 " +levelData(7, 10) = "m mmm " +levelData(8, 10) = "m . 1 " +levelData(9, 10) = "mmmmmmmmmmm mm" END SUB SUB load (a$) @@ -540,12 +540,12 @@ CLOSE END SUB SUB nait (zaz) -IF elud < 0 THEN die +IF lives < 0 THEN die PUT (0, 180), munt1, PSET rahaz(1) = rahaz(1) + zaz FOR b = 1 TO 3 IF rahaz(1) > 9 THEN rahaz(1) = rahaz(1) - 10: rahaz(2) = rahaz(2) + 1 -IF rahaz(2) > 9 THEN rahaz(1) = 0: rahaz(2) = 0: elud = elud + 1 +IF rahaz(2) > 9 THEN rahaz(1) = 0: rahaz(2) = 0: lives = lives + 1 NEXT b LOCATE 1, 1 r = 3 @@ -553,10 +553,10 @@ FOR a = 1 TO 2 r = r - 1 PUT ((a * 11) + 10, 180), number(100, rahaz(r)), PSET NEXT a -IF elud > 10 THEN elud = 10 +IF lives > 10 THEN lives = 10 PUT (43, 180), number(100, 10), PSET PUT (53, 180), munt2, PSET -PUT (73, 180), number(100, elud), PSET +PUT (73, 180), number(100, lives), PSET END SUB SUB save (a$) -- 2.20.1