From 631ee4a326ae224a4cabcf7fa8c4e74eb8e70117 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 20 Aug 2025 00:19:56 +0300 Subject: [PATCH] Fix Pomppu Paavo name and add older version --- .../Pomppu Paavo.bas | 0 .../img/0.i01 | 0 .../img/1.i01 | 0 .../img/2.i01 | 0 .../img/3.i01 | 0 .../img/4.i01 | 0 .../img/5.i01 | 0 .../img/6.i01 | 0 .../img/7.i01 | 0 .../img/8.i01 | 0 .../img/9.i01 | 0 .../img/kast.i01 | 0 .../img/munt.i01 | 0 .../img/munt1.i01 | 0 .../img/munt2.i01 | 0 .../img/paavo1.i01 | 0 .../img/paavo2.i01 | 0 .../img/pilv.i01 | 0 .../img/poosas.i01 | 0 .../img/puu.i01 | 0 .../img/tellis.i01 | 0 .../img/tigu.i01 | 0 .../img/tigu1.i01 | 0 .../screenshot.png | Bin Games/Pomppu Paavo.bas | 1245 +++++++++++++++++ index.org | 6 +- 26 files changed, 1248 insertions(+), 3 deletions(-) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/Pomppu Paavo.bas (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/0.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/1.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/2.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/3.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/4.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/5.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/6.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/7.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/8.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/9.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/kast.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/munt.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/munt1.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/munt2.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/paavo1.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/paavo2.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/pilv.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/poosas.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/puu.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/tellis.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/tigu.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/img/tigu1.i01 (100%) rename Games/{Pomppu Paavo => Pomppu Paavo 2}/screenshot.png (100%) create mode 100755 Games/Pomppu Paavo.bas diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo 2/Pomppu Paavo.bas similarity index 100% rename from Games/Pomppu Paavo/Pomppu Paavo.bas rename to Games/Pomppu Paavo 2/Pomppu Paavo.bas diff --git a/Games/Pomppu Paavo/img/0.i01 b/Games/Pomppu Paavo 2/img/0.i01 similarity index 100% rename from Games/Pomppu Paavo/img/0.i01 rename to Games/Pomppu Paavo 2/img/0.i01 diff --git a/Games/Pomppu Paavo/img/1.i01 b/Games/Pomppu Paavo 2/img/1.i01 similarity index 100% rename from Games/Pomppu Paavo/img/1.i01 rename to Games/Pomppu Paavo 2/img/1.i01 diff --git a/Games/Pomppu Paavo/img/2.i01 b/Games/Pomppu Paavo 2/img/2.i01 similarity index 100% rename from Games/Pomppu Paavo/img/2.i01 rename to Games/Pomppu Paavo 2/img/2.i01 diff --git a/Games/Pomppu Paavo/img/3.i01 b/Games/Pomppu Paavo 2/img/3.i01 similarity index 100% rename from Games/Pomppu Paavo/img/3.i01 rename to Games/Pomppu Paavo 2/img/3.i01 diff --git a/Games/Pomppu Paavo/img/4.i01 b/Games/Pomppu Paavo 2/img/4.i01 similarity index 100% rename from Games/Pomppu Paavo/img/4.i01 rename to Games/Pomppu Paavo 2/img/4.i01 diff --git a/Games/Pomppu Paavo/img/5.i01 b/Games/Pomppu Paavo 2/img/5.i01 similarity index 100% rename from Games/Pomppu Paavo/img/5.i01 rename to Games/Pomppu Paavo 2/img/5.i01 diff --git a/Games/Pomppu Paavo/img/6.i01 b/Games/Pomppu Paavo 2/img/6.i01 similarity index 100% rename from Games/Pomppu Paavo/img/6.i01 rename to Games/Pomppu Paavo 2/img/6.i01 diff --git a/Games/Pomppu Paavo/img/7.i01 b/Games/Pomppu Paavo 2/img/7.i01 similarity index 100% rename from Games/Pomppu Paavo/img/7.i01 rename to Games/Pomppu Paavo 2/img/7.i01 diff --git a/Games/Pomppu Paavo/img/8.i01 b/Games/Pomppu Paavo 2/img/8.i01 similarity index 100% rename from Games/Pomppu Paavo/img/8.i01 rename to Games/Pomppu Paavo 2/img/8.i01 diff --git a/Games/Pomppu Paavo/img/9.i01 b/Games/Pomppu Paavo 2/img/9.i01 similarity index 100% rename from Games/Pomppu Paavo/img/9.i01 rename to Games/Pomppu Paavo 2/img/9.i01 diff --git a/Games/Pomppu Paavo/img/kast.i01 b/Games/Pomppu Paavo 2/img/kast.i01 similarity index 100% rename from Games/Pomppu Paavo/img/kast.i01 rename to Games/Pomppu Paavo 2/img/kast.i01 diff --git a/Games/Pomppu Paavo/img/munt.i01 b/Games/Pomppu Paavo 2/img/munt.i01 similarity index 100% rename from Games/Pomppu Paavo/img/munt.i01 rename to Games/Pomppu Paavo 2/img/munt.i01 diff --git a/Games/Pomppu Paavo/img/munt1.i01 b/Games/Pomppu Paavo 2/img/munt1.i01 similarity index 100% rename from Games/Pomppu Paavo/img/munt1.i01 rename to Games/Pomppu Paavo 2/img/munt1.i01 diff --git a/Games/Pomppu Paavo/img/munt2.i01 b/Games/Pomppu Paavo 2/img/munt2.i01 similarity index 100% rename from Games/Pomppu Paavo/img/munt2.i01 rename to Games/Pomppu Paavo 2/img/munt2.i01 diff --git a/Games/Pomppu Paavo/img/paavo1.i01 b/Games/Pomppu Paavo 2/img/paavo1.i01 similarity index 100% rename from Games/Pomppu Paavo/img/paavo1.i01 rename to Games/Pomppu Paavo 2/img/paavo1.i01 diff --git a/Games/Pomppu Paavo/img/paavo2.i01 b/Games/Pomppu Paavo 2/img/paavo2.i01 similarity index 100% rename from Games/Pomppu Paavo/img/paavo2.i01 rename to Games/Pomppu Paavo 2/img/paavo2.i01 diff --git a/Games/Pomppu Paavo/img/pilv.i01 b/Games/Pomppu Paavo 2/img/pilv.i01 similarity index 100% rename from Games/Pomppu Paavo/img/pilv.i01 rename to Games/Pomppu Paavo 2/img/pilv.i01 diff --git a/Games/Pomppu Paavo/img/poosas.i01 b/Games/Pomppu Paavo 2/img/poosas.i01 similarity index 100% rename from Games/Pomppu Paavo/img/poosas.i01 rename to Games/Pomppu Paavo 2/img/poosas.i01 diff --git a/Games/Pomppu Paavo/img/puu.i01 b/Games/Pomppu Paavo 2/img/puu.i01 similarity index 100% rename from Games/Pomppu Paavo/img/puu.i01 rename to Games/Pomppu Paavo 2/img/puu.i01 diff --git a/Games/Pomppu Paavo/img/tellis.i01 b/Games/Pomppu Paavo 2/img/tellis.i01 similarity index 100% rename from Games/Pomppu Paavo/img/tellis.i01 rename to Games/Pomppu Paavo 2/img/tellis.i01 diff --git a/Games/Pomppu Paavo/img/tigu.i01 b/Games/Pomppu Paavo 2/img/tigu.i01 similarity index 100% rename from Games/Pomppu Paavo/img/tigu.i01 rename to Games/Pomppu Paavo 2/img/tigu.i01 diff --git a/Games/Pomppu Paavo/img/tigu1.i01 b/Games/Pomppu Paavo 2/img/tigu1.i01 similarity index 100% rename from Games/Pomppu Paavo/img/tigu1.i01 rename to Games/Pomppu Paavo 2/img/tigu1.i01 diff --git a/Games/Pomppu Paavo/screenshot.png b/Games/Pomppu Paavo 2/screenshot.png similarity index 100% rename from Games/Pomppu Paavo/screenshot.png rename to Games/Pomppu Paavo 2/screenshot.png diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas new file mode 100755 index 0000000..2ebfb65 --- /dev/null +++ b/Games/Pomppu Paavo.bas @@ -0,0 +1,1245 @@ +' Pomppu Paavo, 1998 +' By: Svjatoslav Agejenko +' at least 8 MHz 8086 CPU +' & CGA video card is required + +DECLARE SUB norm (nrm%) +DECLARE SUB elud () +DEFINT A-Z +DECLARE SUB level (y%) +DECLARE SUB pildid (p%, o%, m%, fr%, teler%) +DECLARE SUB wiew (r$, a%, b%) +DECLARE SUB joonist () +DECLARE SUB save (y$) +DIM SHARED voolual +DIM SHARED uun(1 TO 20) AS STRING * 31 +DIM SHARED siib, siia, siib1, siia1 +DIM SHARED elu, raha +DIM SHARED uks1, uks2, uks3, uks4 +DIM SHARED maa +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 ruut(51) +DIM SHARED tuhi(51) +DIM SHARED kast(51) +DIM SHARED mar1(70) +DIM SHARED pilv(209) +DIM SHARED taht(50) +DIM SHARED siil(30) +DIM SHARED siil1(30) +DIM SHARED siil2(30) +DIM SHARED munt(30) +DIM SHARED poosas(100) +DIM SHARED aken(100) +DIM SHARED vedru(50) +DIM SHARED intro(6000) +DIM SHARED puu(3000) +DIM SHARED noolt(51) +DIM SHARED noolt1(51) +DIM SHARED auk(51) +DIM SHARED sipp1(51) +DIM SHARED sipp2(51) +DIM SHARED sipp10(51) +DIM SHARED sipp20(51) +DIM SHARED sipp3(51) +DIM SHARED uks(120) + +DIM SHARED ruutm(51) +DIM SHARED tuhim(51) +DIM SHARED kastm(51) +DIM SHARED marm1(70) +DIM SHARED pilvm(209) +DIM SHARED tahtm(50) +DIM SHARED siilm(30) +DIM SHARED siilm1(30) +DIM SHARED siilm2(30) +DIM SHARED muntm(30) +DIM SHARED poosasm(100) +DIM SHARED akenm(100) +DIM SHARED vedrum(50) +DIM SHARED puum(3000) +DIM SHARED nooltm(51) +DIM SHARED nooltm1(51) +DIM SHARED aukm(51) +DIM SHARED sippm1(51) +DIM SHARED sippm2(51) +DIM SHARED sippm10(51) +DIM SHARED sippm20(51) +DIM SHARED sippm3(51) +DIM SHARED uksm(50) +DIM SHARED kuikiir +DIM SHARED vas7$ +DIM SHARED par7$ +DIM SHARED ule7$ +DIM SHARED all7$ +vas7$ = CHR$(0) + "K" +par7$ = CHR$(0) + "M" +ule7$ = CHR$(0) + "H" +all7$ = CHR$(0) + "P" +elu = 10 +SCREEN 1 +maa = 1 +REM joonist +REM END +GET (1, 1)-(20, 20), tuhi +pildid 0, 0, 1, 1, 1 +GET (1, 1)-(20, 20), ruut +pildid 0, 0, 4, 1, 1 +GET (1, 1)-(20, 20), kast +PUT (1, 180), ruut, PSET +PUT (300, 1), ruut, PSET +PUT (300, 180), ruut, PSET +pildid 30, 50, 2, 1, 1 +GET (31, 51)-(91, 76), pilv +PUT (160, 10), pilv, PSET +pildid 20, 100, 3, 1, 1 +GET (21, 101)-(31, 114), taht +CLS +pildid 0, 0, 5, 1, 1 +GET (1, 1)-(11, 8), siil +CLS +pildid 0, 0, 6, 1, 1 +GET (1, 1)-(8, 10), munt +CLS +pildid 0, 0, 7, 1, 1 +GET (1, 1)-(31, 11), poosas +CLS +pildid 0, 0, 8, 1, 1 +GET (1, 1)-(26, 21), aken +CLS +pildid 0, 0, 9, 1, 1 +GET (1, 1)-(21, 11), vedru +CLS +pildid 0, 0, 11, 1, 1 +GET (1, 1)-(51, 81), puu +CLS +pildid 0, 0, 12, 1, 1 +GET (1, 1)-(20, 20), noolt +CLS +pildid 0, 0, 12, 50, 1 +GET (1, 1)-(20, 20), noolt1 +CLS +pildid 0, 0, 13, 1, 1 +GET (1, 1)-(20, 20), auk +CLS +pildid 0, 0, 14, 1, 1 +GET (1, 1)-(20, 20), sipp1 +CLS +pildid 0, 0, 15, 1, 1 +GET (1, 1)-(20, 20), sipp2 +CLS +pildid 0, 0, 14, 50, 1 +GET (1, 1)-(20, 20), sipp10 +CLS +pildid 0, 0, 15, 50, 1 +GET (1, 1)-(20, 20), sipp20 +CLS +pildid 0, 0, 16, 1, 1 +GET (1, 1)-(20, 20), sipp3 +CLS +GET (1, 1)-(10, 10), tuhim +pildid 0, 0, 1, 1, 2 +GET (1, 1)-(10, 10), ruutm +pildid 0, 0, 4, 1, 2 +GET (1, 1)-(10, 10), kastm +PUT (1, 180), ruut, PSET +PUT (300, 1), ruut, PSET +PUT (300, 180), ruut, PSET +pildid 30, 50, 2, 1, 2 +GET (16, 26)-(46, 38), pilvm +pildid 20, 100, 3, 1, 2 +GET (11, 51)-(16, 72), tahtm +CLS +pildid 0, 0, 5, 1, 2 +GET (1, 1)-(6, 4), siilm +CLS +pildid 0, 0, 6, 1, 2 +GET (1, 1)-(4, 5), muntm +CLS +pildid 0, 0, 7, 1, 2 +GET (1, 1)-(16, 6), poosasm +CLS +pildid 0, 0, 8, 1, 2 +GET (1, 1)-(13, 11), akenm +CLS +pildid 0, 0, 9, 1, 2 +GET (1, 1)-(11, 6), vedrum +CLS +pildid 0, 0, 11, 1, 2 +GET (1, 1)-(26, 41), puum +CLS +pildid 0, 0, 12, 1, 2 +GET (1, 1)-(10, 10), nooltm +CLS +pildid 0, 0, 12, 50, 2 +GET (1, 1)-(10, 10), nooltm1 +CLS +pildid 0, 0, 13, 1, 2 +GET (1, 1)-(10, 10), aukm +CLS +pildid 0, 0, 14, 1, 2 +GET (1, 1)-(10, 10), sippm1 +CLS +pildid 0, 0, 15, 1, 2 +GET (1, 1)-(10, 10), sippm2 +CLS +pildid 0, 0, 14, 50, 2 +GET (1, 1)-(10, 10), sippm10 +CLS +pildid 0, 0, 15, 50, 2 +GET (1, 1)-(10, 10), sippm20 +CLS +pildid 0, 0, 16, 1, 2 +GET (1, 1)-(10, 10), sippm3 +CLS +pildid 0, 0, 17, 1, 1 +GET (1, 1)-(21, 31), uks +CLS +pildid 0, 0, 17, 1, 2 +GET (1, 1)-(11, 16), intro +CLS +GOTO 7 +pildid -1, -1, 10, 4, 1 +GET (1, 1)-(318, 124), intro +CLS +SLEEP 1 +PUT (1, 1), intro, PSET +SLEEP 100 +7 +level 1 +a = 50 +b = 50 +siie = 1 +siie1 = 1 +6 +WHILE kbd$ = "" +kbd$ = INKEY$ +IF voolual = 2 THEN b = b * 2: GOTO 106 +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 +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 (siia1, siib1)-(siia1 + 10, siib1 + 10), siil2 +PUT (siia1, siib1), 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 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 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 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 + +qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -10: all = -5: elud +IF qwer > 100 THEN qwer = 50 + IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: 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 +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((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((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1 +IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1 +IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 1 +IF siia > 300 THEN siie = -1 +IF siia < 3 THEN siie = 1 +IF siia1 > 300 THEN siie1 = -1 +IF siia1 < 3 THEN siie1 = 1 +PUT (siia1, siib1), siil2, PSET +PUT (siia, siib), 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((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "" +siia = siia + siie +siib = siib + siiall +siia1 = siia1 + siie1 +siib1 = siib1 + siiall1 +asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q" +siiall = siiall + 1: IF siiall > 2 THEN siiall = 2 +siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2 +a = a + eda +b = b + all +IF a > 297 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1 +IF a < 1 THEN a = 296: IF maa = 1 THEN level maa: ELSE maa = maa - 1: level maa: IF voolual = 2 THEN a = 594 +IF b > 179 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud +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 +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 +IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2 +IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20 +IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5 +IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3 +IF a$ = all7$ THEN all = all + 1 +IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: level maa: siie = 1: siie1 = 1 +IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: level maa: siie = 1: siie1 = 1 +IF a$ = "q" THEN END +sipa = sipa + 1 +IF sipa = 3 THEN sipa = 1 +GOTO 6 + + +106 +WHILE kbd$ = "" +kbd$ = INKEY$ +IF voolual = 1 THEN b = b / 2: GOTO 6 +IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), marm1 +IF b > 0 THEN IF sipp = 1 THEN PUT (a \ 2, b \ 2), sippm1, OR +IF b > 0 THEN IF sipp = 2 THEN PUT (a \ 2, b \ 2), sippm2, OR +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 (siia1 \ 2, siib1 \ 2)-((siia1 + 10) \ 2, (siib1 + 10) \ 2), siilm2 +PUT (siia1 \ 2, siib1 \ 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 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 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 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 + +qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -5: all = -3: elud +IF qwer > 100 THEN qwer = 50 +IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: 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 +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((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((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1 +IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1 +IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 1 +IF siia > 600 THEN siie = -1 +IF siia < 3 THEN siie = 1 +IF siia1 > 600 THEN siie1 = -1 +IF siia1 < 3 THEN siie1 = 1 +PUT (siia1 \ 2, siib1 \ 2), siilm2, PSET +PUT (siia \ 2, siib \ 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((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "" +siia = siia + siie +siib = siib + siiall +siia1 = siia1 + siie1 +siib1 = siib1 + siiall1 +asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q" +siiall = siiall + 1: IF siiall > 2 THEN siiall = 2 +siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2 +a = a + eda +b = b + all +IF a > 594 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1 +IF a < 1 THEN a = 594: IF maa = 1 THEN level maa: ELSE maa = maa - 1: level maa: IF voolual = 1 THEN a = 297 +IF b > 358 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud +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 +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 +IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2 +IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20 +IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5 +IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3 +IF a$ = all7$ THEN all = all + 1 +IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: level maa: siie = 1: siie1 = 1 +IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: level maa: siie = 1: siie1 = 1 +IF a$ = "q" THEN END +sipa = sipa + 1 +IF sipa = 3 THEN sipa = 1 +GOTO 106 + +SUB elud +LOCATE 1, 1 +IF voolual = 2 THEN GOTO 12 +PRINT " " +IF raha > 9 THEN raha = 0: elu = elu + 1 +LOCATE 1, 1 +PRINT "o "; raha; " Elu "; elu +12 +IF elu < 0 THEN END +END SUB + +SUB joonist +tuhi$ = "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" +CLS +INPUT "laius", laius +INPUT "pikkus", pikkus +FOR a = 1 TO pikkus +text$(a) = RIGHT$(tuhi$, laius) +NEXT a +CLS +a = 1 +b = 1 +z = 3 +zx = 1 +2 +a$ = INPUT$(1) +IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z +po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1 +IF zx = -1 THEN CIRCLE (a * 2, b * 2), 1, po +IF a$ = "6" THEN a = a + 1 +IF a$ = "4" THEN a = a - 1 +IF a$ = "8" THEN b = b - 1 +IF a$ = "2" THEN b = b + 1 +IF a$ = " " THEN zx = zx * -1 +IF a$ = "e" THEN GOTO 5 +IF a$ = "s" THEN GOTO 3 +IF a$ = "z" THEN z = 0 +IF a$ = "x" THEN z = 1 +IF a$ = "c" THEN z = 2 +IF a$ = "v" THEN z = 3 + +IF a < 1 THEN a = 1 +IF b < 1 THEN b = 1 +IF b > pikkus THEN b = pikkus +IF a > laius THEN a = laius +IF z > 3 THEN z = 3 +IF z < 0 THEN z = 0 +IF zx = 1 THEN MID$(text$(b), a) = CHR$(z + 1) +IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z +IF zx = 1 THEN PAINT (a * 2, b * 2), z +o = 0 +IF zx = 1 THEN IF z = 0 THEN o = 3 +po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1 +IF zx = -1 THEN IF po = 0 THEN o = 3 +CIRCLE (a * 2, b * 2), 1, o +GOTO 2 +3 +INPUT "fail", a$ +save a$ +5 +END SUB + +SUB level (y) +125 +siia = 0 +siib = 0 +aiia1 = 0 +siib1 = 0 +FOR a1 = 1 TO 32 +FOR b1 = 1 TO 20 +asend(a1, b1) = "" +asend1(a1, b1) = "" +NEXT b1 +NEXT a1 +FOR a = 1 TO 10 +uun(a) = "" +NEXT a +CLS +LOCATE 3, 10 +SELECT CASE y +CASE 1 +uun(1) = " mmm" +uun(2) = " - m mm" +uun(3) = " . - mmm" +uun(4) = "o . . mymm" +uun(5) = "o -mmm" +uun(6) = "o t mxmm" +uun(7) = "o mmm" +uun(8) = "o 1 1 " +uun(9) = "o p p 1 1 1" +uun(10) = "mmmmmmmmmmmmmmmm" +voolual = 1 +CASE 2 +uun(1) = "mmmmmmmmmmmmmmmm" +uun(2) = "mm h h " +uun(3) = "mmx m mmmymmm" +uun(4) = "mmommmmmm mom m" +uun(5) = "mo 1 1 1 o1m1m" +uun(6) = "momm m m m m111m" +uun(7) = "m h mmmmoom" +uun(8) = " mm h m" +uun(9) = " v mmm mm" +uun(10) = "mmmmmmmmmmmmmmmm" +CASE 3 +uun(1) = "mmmmmmmmmmmmmmmm" +uun(2) = " h h h h h ym11" +uun(3) = "mm mmmmmmmmmmm1m" +uun(4) = "m h m xm " +uun(5) = "mm m m mmmmmmmmm" +uun(6) = "mmmm m1m " +uun(7) = "m h m1moo m" +uun(8) = "m mmmmmm m1moomm" +uun(9) = "m 11111m h h " +uun(10) = "mmmmmmmmmmmmmmmm" +CASE 4 +uun(1) = "mmmmmmmmmmmmmmmm" +uun(2) = " h1 h1 m" +uun(3) = "mmm 1 11 1 o1m" +uun(4) = " m 1 oo 1o1m" +uun(5) = "m moo oo1m" +uun(6) = " m h o " +uun(7) = "mmm h o " +uun(8) = "m o " +uun(9) = " x oy " +uun(10) = "mmmmmmmmmmmmmmmm" +CASE 5 +uun(1) = "m . y - " +uun(2) = "m m moo" +uun(3) = "m. mxm mmo" +uun(4) = "m - m mmmmmm" +uun(5) = "m . m mm " +uun(6) = "mt o o m " +uun(7) = "m o om o ooo " +uun(8) = "m ooooooooooo " +uun(9) = " v o " +uun(10) = "oooooooooooooooo" +CASE 6 +PRINT "1-2 Maailm . Kood: teine": elud +a$ = INPUT$(1) +CLS +uun(1) = " - " +uun(2) = " . " +uun(3) = " oo- oo " +uun(4) = " - 11 11 ." +uun(5) = " oo oo " +uun(6) = " m ym11 11 " +uun(7) = " m m " +uun(8) = " ooom <> <> " +uun(9) = " xmmm mmm" +uun(10) = "mmmmmmmmmmm mmm" +CASE 7 +uun(1) = " oooo " +uun(2) = " o111 . " +uun(3) = " oooo> >>>>>>" +uun(4) = " . x v m" +uun(5) = " mym m" +uun(6) = " m m" +uun(7) = " 111m" +uun(8) = " 111m" +uun(9) = " v p " +uun(10) = "oooaaaaaaaaaoooo" +CASE 8 +uun(1) = " . o" +uun(2) = " . mm o" +uun(3) = ". ommm t o" +uun(4) = " mom mm o" +uun(5) = " pmmoyxmmm o" +uun(6) = " mmmomammmm m" +uun(7) = "p mmmmv mmmm " +uun(8) = "mmmmmmmmm mmmmmm" +uun(9) = " " +uun(10) = ">>>>>>>>>>>>>>>>" +maa = maa + 1 +CASE 10 +uun(1) = "m. - m" +uun(2) = "m . m" +uun(3) = "m 111 - m" +uun(4) = "mmmmm>>> ammm" +uun(5) = "a a m" +uun(6) = "mmm t a m" +uun(7) = " ma m" +uun(8) = ">>> a m" +uun(9) = " m yx m m" +uun(10) = ">>>mmmmmmmmmmm m" +CASE 9 +uun(1) = "mammmmmmmmmmmmm " +uun(2) = "m1m y xmo " +uun(3) = "mamooo>>>a>am om" +uun(4) = "m1m m1mamo m" +uun(5) = "mamm m1mam om" +uun(6) = "m1m mm1mamo m" +uun(7) = "mammm m1ma om" +uun(8) = "m1m mmm1ma o m" +uun(9) = "m amam om" +uun(10) = "mmmmmmmm 1 THEN GOTO 4 +FOR a = 1 TO 100 +IF ao(a) = "" THEN GOTO 1 +FOR b = 1 TO LEN(ao(a)) +PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48 +NEXT b +NEXT a +GOTO 1 +4 +FOR a = 1 TO 100 +IF ao(a) = "" THEN GOTO 1 +FOR b = 1 TO LEN(ao(a)) +c = ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48 +LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF +NEXT b +NEXT a +GOTO 1 +8 +FOR a = 1 TO 100 +IF ao(a) = "" THEN GOTO 1 +FOR b = 1 TO LEN(ao(a)) +PSET ((p + b) \ teler, (o + a) \ teler), ASC(LEFT$(RIGHT$(ao(a), b), 1)) - 48 +NEXT b +NEXT a + +1 +ERASE ao +END SUB + +SUB save (y$) +OPEN y$ FOR OUTPUT AS #1 +PRINT #1, pikkus +FOR a = 1 TO pikkus +PRINT #1, text$(a) +NEXT a +CLOSE +END SUB + +SUB wiew (r$, a, b) +OPEN r$ FOR INPUT AS #2 +INPUT #2, pikkus +FOR e = 1 TO pikkus +INPUT #2, b$ +FOR D = 1 TO LEN(b$) +PSET (D + a, b + e), ASC(RIGHT$(LEFT$(b$, D), 1)) - 1 +NEXT D +NEXT e +CLOSE +END SUB diff --git a/index.org b/index.org index 34f096e..311b3d5 100644 --- a/index.org +++ b/index.org @@ -324,16 +324,16 @@ Download source code: [[file:3D%20GFX/Ray%20casting%20engine.bas][Ray casting en :ID: aa195f33-6d69-48ff-9af5-3f761a51dcb2 :END: -** Pomppu Paavo +** Pomppu Paavo 2 Player controls small character that has to collect coins and move between screens. Player has to avoid contact with evil snails. #+attr_html: :class responsive-img #+attr_latex: :width 1000px -[[https://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=tree;f=Games/Pomppu+Paavo][file:Games/Pomppu%20Paavo/screenshot.png]] +[[https://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=tree;f=Games/Pomppu+Paavo][file:Games/Pomppu%20Paavo%202/screenshot.png]] -[[https://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=tree;f=Games/Pomppu+Paavo][Source code]] +[[https://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=tree;f=Games/Pomppu+Paavo+2][Source code]] Source code organization: #+begin_example -- 2.20.1