From 0bf8af12dbd69e4985f4c7d39a4ff027d3082b28 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Fri, 22 Aug 2025 23:49:12 +0300
Subject: [PATCH] Move Pomppu Paavo levels to files

---
 Games/Pomppu Paavo/Pomppu Paavo.bas | 338 +++++-----------------------
 1 file changed, 61 insertions(+), 277 deletions(-)

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index a026826..24d661f 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -572,288 +572,72 @@ FOR a1 = 1 TO 32
   NEXT b1
 NEXT a1
 
-FOR a = 1 TO 10
+FOR a = 1 TO 20
   asciiLevelData(a) = ""
 NEXT a
 
 CLS
 LOCATE 3, 10
 
-SELECT CASE y
-CASE 1
-asciiLevelData(1) = "             mmm"
-asciiLevelData(2) = "    -       m mm"
-asciiLevelData(3) = "        .  - mmm"
-asciiLevelData(4) = "o   .  .    mymm"
-asciiLevelData(5) = "o           -mmm"
-asciiLevelData(6) = "o    t      mxmm"
-asciiLevelData(7) = "o            mmm"
-asciiLevelData(8) = "o           1 1 "
-asciiLevelData(9) = "o  p     p 1 1 1"
-asciiLevelData(10) = "mmmmmmmmmmmmmmmm"
-graphicsMode = 1
-CASE 2
-asciiLevelData(1) = "mmmmmmmmmmmmmmmm"
-asciiLevelData(2) = "mm   h h        "
-asciiLevelData(3) = "mmx m    mmmymmm"
-asciiLevelData(4) = "mmommmmmm  mom m"
-asciiLevelData(5) = "mo   1 1 1 o1m1m"
-asciiLevelData(6) = "momm m m m m111m"
-asciiLevelData(7) = "m      h mmmmoom"
-asciiLevelData(8) = " mm h          m"
-asciiLevelData(9) = "        v mmm mm"
-asciiLevelData(10) = "mmmmmmmmmmmmmmmm"
-graphicsMode = 1
-CASE 3
-asciiLevelData(1) = "mmmmmmmmmmmmmmmm"
-asciiLevelData(2) = " h h h h h  ym11"
-asciiLevelData(3) = "mm mmmmmmmmmmm1m"
-asciiLevelData(4) = "m h  m      xm  "
-asciiLevelData(5) = "mm m m mmmmmmmmm"
-asciiLevelData(6) = "mmmm     m1m    "
-asciiLevelData(7) = "m    h   m1moo m"
-asciiLevelData(8) = "m mmmmmm m1moomm"
-asciiLevelData(9) = "m 11111m  h h   "
-asciiLevelData(10) = "mmmmmmmmmmmmmmmm"
-CASE 4
-asciiLevelData(1) = "mmmmmmmmmmmmmmmm"
-asciiLevelData(2) = "     h1  h1    m"
-asciiLevelData(3) = "mmm  1 11  1 o1m"
-asciiLevelData(4) = "  m 1  oo   1o1m"
-asciiLevelData(5) = "m moo       oo1m"
-asciiLevelData(6) = "  m      h  o   "
-asciiLevelData(7) = "mmm  h      o   "
-asciiLevelData(8) = "m           o   "
-asciiLevelData(9) = "        x   oy  "
-asciiLevelData(10) = "mmmmmmmmmmmmmmmm"
-CASE 5
-asciiLevelData(1) = "m       . y -   "
-asciiLevelData(2) = "m      m     moo"
-asciiLevelData(3) = "m.    mxm    mmo"
-asciiLevelData(4) = "m  -    m mmmmmm"
-asciiLevelData(5) = "m .    m     mm "
-asciiLevelData(6) = "mt  o   o    m  "
-asciiLevelData(7) = "m   o om o  ooo "
-asciiLevelData(8) = "m   ooooooooooo "
-asciiLevelData(9) = "         v    o "
-asciiLevelData(10) = "oooooooooooooooo"
-CASE 6
-CLS
-asciiLevelData(1) = "    -           "
-asciiLevelData(2) = "             .  "
-asciiLevelData(3) = "       oo- oo   "
-asciiLevelData(4) = "  -    11  11  ."
-asciiLevelData(5) = "       oo  oo   "
-asciiLevelData(6) = "   m ym11  11   "
-asciiLevelData(7) = "   m  m         "
-asciiLevelData(8) = "   ooom  <>  <> "
-asciiLevelData(9) = "       xmmm  mmm"
-asciiLevelData(10) = "mmmmmmmmmmm  mmm"
-CASE 7
-asciiLevelData(1) = " oooo           "
-asciiLevelData(2) = " o111  .        "
-asciiLevelData(3) = " oooo>    >>>>>>"
-asciiLevelData(4) = "  .    x v     m"
-asciiLevelData(5) = "       mym     m"
-asciiLevelData(6) = "        m      m"
-asciiLevelData(7) = "            111m"
-asciiLevelData(8) = "            111m"
-asciiLevelData(9) = "  v          p  "
-asciiLevelData(10) = "oooaaaaaaaaaoooo"
-CASE 8
-asciiLevelData(1) = "      .        o"
-asciiLevelData(2) = "  .    mm      o"
-asciiLevelData(3) = ".     ommm  t  o"
-asciiLevelData(4) = "     mom mm    o"
-asciiLevelData(5) = "   pmmoyxmmm   o"
-asciiLevelData(6) = "   mmmomammmm  m"
-asciiLevelData(7) = "p mmmmv   mmmm  "
-asciiLevelData(8) = "mmmmmmmmm mmmmmm"
-asciiLevelData(9) = "                "
-asciiLevelData(10) = ">>>>>>>>>>>>>>>>"
-CurrentLevelNumber% = CurrentLevelNumber% + 1
-CASE 10
-asciiLevelData(1) = "m.  -          m"
-asciiLevelData(2) = "m  .           m"
-asciiLevelData(3) = "m 111     -    m"
-asciiLevelData(4) = "mmmmm>>>    ammm"
-asciiLevelData(5) = "a           a  m"
-asciiLevelData(6) = "mmm  t      a  m"
-asciiLevelData(7) = "           ma  m"
-asciiLevelData(8) = ">>>         a  m"
-asciiLevelData(9) = "       m yx  m m"
-asciiLevelData(10) = ">>>mmmmmmmmmmm m"
-CASE 9
-asciiLevelData(1) = "mammmmmmmmmmmmm "
-asciiLevelData(2) = "m1m  y     xmo  "
-asciiLevelData(3) = "mamooo>>>a>am om"
-asciiLevelData(4) = "m1m     m1mamo m"
-asciiLevelData(5) = "mamm    m1mam om"
-asciiLevelData(6) = "m1m    mm1mamo m"
-asciiLevelData(7) = "mammm   m1ma  om"
-asciiLevelData(8) = "m1m   mmm1ma o m"
-asciiLevelData(9) = "m        amam om"
-asciiLevelData(10) = "mmmmmmmm<mmammmm"
-CurrentLevelNumber% = CurrentLevelNumber% + 2
-CASE 11
-asciiLevelData(1) = ">>>>>>>>>>>>>>><"
-asciiLevelData(2) = "> <x           <"
-asciiLevelData(3) = "> <         >> <"
-asciiLevelData(4) = "> <y>>>>>>>    <"
-asciiLevelData(5) = "> <       <  <<<"
-asciiLevelData(6) = "> <<<<a<< << < >"
-asciiLevelData(7) = "> <        < <  "
-asciiLevelData(8) = "> <m >m>>m <   >"
-asciiLevelData(9) = ">              <"
-asciiLevelData(10) = ">>>>m<<<<<<<<mm<"
-CurrentLevelNumber% = CurrentLevelNumber% + 2
-CASE 12
-asciiLevelData(1) = "m     aaaaaaaaam"
-asciiLevelData(2) = "m  -         xmm"
-asciiLevelData(3) = "m        t. ym 1"
-asciiLevelData(4) = "m     .     moom"
-asciiLevelData(5) = "m          am  1"
-asciiLevelData(6) = "m         mamomm"
-asciiLevelData(7) = "m      - mmam  1"
-asciiLevelData(8) = "m       mmmamomm"
-asciiLevelData(9) = "m p  p mm      1"
-asciiLevelData(10) = "mmmmmmmmmammmm<<"
-CASE 13
-asciiLevelData(1) = "mmmmmmmmmmmmmmmm"
-asciiLevelData(2) = "m   m          m"
-asciiLevelData(3) = "  ma   1a1a1a  m"
-asciiLevelData(4) = "mmma aaaaaaaam m"
-asciiLevelData(5) = "11maaaaaaaaaam m"
-asciiLevelData(6) = "mmmaaaaaaaaaam m"
-asciiLevelData(7) = "11x         ym m"
-asciiLevelData(8) = "mmmmmmmmmmmmmm m"
-asciiLevelData(9) = "               m"
-asciiLevelData(10) = "mmmmmmmmmmmmmmmm"
-CASE 14
-asciiLevelData(1) = "mmmmmmmmm-      "
-asciiLevelData(2) = "mm mmmmmmm  -   "
-asciiLevelData(3) = "mm       m      "
-asciiLevelData(4) = "mm >>>>> m  -   "
-asciiLevelData(5) = "mmv  m   m     ."
-asciiLevelData(6) = ">><< m <<m  -   "
-asciiLevelData(7) = "11 m m m   .    "
-asciiLevelData(8) = ">> m m m    xy    "
-asciiLevelData(9) = "mm  vm    v     "
-asciiLevelData(10) = "mm>><m>>>>>mmmmm"
-CASE 15
-CLS
-asciiLevelData(1) = "      m        m"
-asciiLevelData(2) = "mm ymmmmmmmmmaaa"
-asciiLevelData(3) = "<<oo    1111maaa"
-asciiLevelData(4) = "       <<111maaa"
-asciiLevelData(5) = "<<m<     m11maaa"
-asciiLevelData(6) = "    t  oomm  aaa"
-asciiLevelData(7) = "      vo    mm1m"
-asciiLevelData(8) = "       mm<<<mm1m"
-asciiLevelData(9) = "  m  x <<mmmmm11"
-asciiLevelData(10) = "mmmmmmmmmmmmmmmm"
-graphicsMode = 1
-CASE 16
-asciiLevelData(1) = "m11     aa       m     11111  m"
-asciiLevelData(2) = "m11    a   a  a    <          m"
-asciiLevelData(3) = "m11  >aam       v  t  a       m"
-asciiLevelData(4) = "m11om y o                 a  am"
-asciiLevelData(5) = "m11  oooo  t                  m"
-asciiLevelData(6) = ">>>om         p  p        m   m"
-asciiLevelData(7) = "m     mmm     mamamom     mm  m"
-asciiLevelData(8) = "m  v mmmmm    mam 11m  mmmmmm m"
-asciiLevelData(9) = "m  mmmmmmmmm  mam  1mm    mm  m"
-asciiLevelData(10) = "mm  m1     m  mam111m     m   m"
-asciiLevelData(11) = "m m  o     m  mam  vm         m"
-asciiLevelData(12) = "m  m  m1111m vmammmmm  m      m"
-asciiLevelData(13) = "m   m  mmmmm 11                "
-asciiLevelData(14) = "mmmmmm   m mamammmmm         mm"
-asciiLevelData(15) = "m       m  mam1111m       m  >m"
-asciiLevelData(16) = "m      m   m1m111m     m      m"
-asciiLevelData(17) = "      m    mammmm  mm>>> <<<>>m"
-asciiLevelData(18) = "     m     m  x   m      m   m "
-asciiLevelData(19) = "mmmmm      mmmmmmm       mmm mm"
-graphicsMode = 2
-CASE 17
-asciiLevelData(1) = "mu 1111        m"
-asciiLevelData(2) = "mmmmmmm   <<<<am"
-asciiLevelData(3) = "m     m  a   mam"
-asciiLevelData(4) = "m     m    y m1m"
-asciiLevelData(5) = "m     mm   <xmam"
-asciiLevelData(6) = "      m  <<<<m1m"
-asciiLevelData(7) = "      m      ma1"
-asciiLevelData(8) = "mmmm  m    <<mmm"
-asciiLevelData(9) = "m111    vU   m  "
-asciiLevelData(10) = "mmmmmmmaamaaam  "
-graphicsMode = 1
-CASE 18
-asciiLevelData(1) = "oo            m                "
-asciiLevelData(2) = "oo     h   h  m                "
-asciiLevelData(3) = "oo x          m   h      m>>>>>"
-asciiLevelData(4) = "oo m11111111m m         mm    m"
-asciiLevelData(5) = "oo m11111111m m  mm  h  m     m"
-asciiLevelData(6) = "oo mmmmmmmmmm m   m    vm     m"
-asciiLevelData(7) = "oo            mm  mmmmmmm     m"
-asciiLevelData(8) = " v                            m"
-asciiLevelData(9) = "mom    mmmmmm   v             m"
-asciiLevelData(10) = "m m m  mmmmmm     mm   h  h   m"
-asciiLevelData(11) = "m                             m"
-asciiLevelData(12) = "m <<<<<<<<<<<<<<<<<<<<<<<<<<< m"
-asciiLevelData(13) = "mam                           m"
-asciiLevelData(14) = "mammooooommaaammm      maaaaavm"
-asciiLevelData(15) = "mam     oo       a ma  m111111m"
-asciiLevelData(16) = "mam    oo  <<< h mh h  mma<>amm"
-asciiLevelData(17) = "mam   moom   <<               m"
-asciiLevelData(18) = "my   mm         m     m       m"
-asciiLevelData(19) = "mmmmmmmmmmmm<<mmmaaaaammmmmmmmm"
-graphicsMode = 2
-CASE 19
-CLS
-DrawSprite 1, 1, 10, 3, 1
-LOCATE 20, 1
-PRINT "end"
-FOR a = 1 TO 50
-a$ = INKEY$
-NEXT a
-a$ = INPUT$(1)
-CLS
-SCREEN 2
-END
-END
-CASE 100
-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) = "                               "
-graphicsMode = 2
-
-END SELECT
+IF y >= 1 AND y <= 18 THEN
+  fileName$ = "lvl/" + LTRIM$(STR$(y)) + ".lvl"
+  OPEN fileName$ FOR INPUT AS #1
+  INPUT #1, graphicsMode, increment
+  i% = 1
+  WHILE NOT EOF(1)
+    LINE INPUT #1, asciiLevelData(i%)
+    i% = i% + 1
+  WEND
+  CLOSE #1
+  CurrentLevelNumber% = CurrentLevelNumber% + increment
+ELSE
+  SELECT CASE y
+  CASE 19
+    CLS
+    DrawSprite 1, 1, 10, 3, 1
+    LOCATE 20, 1
+    PRINT "end"
+    FOR a = 1 TO 50
+      a$ = INKEY$
+    NEXT a
+    a$ = INPUT$(1)
+    CLS
+    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) = "                "
+  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) = "                               "
+    graphicsMode = 2
+  END SELECT
+END IF
 IF graphicsMode = 2 THEN GOTO 124
 FOR e = 0 TO 9
 FOR D = 0 TO 15
@@ -900,4 +684,4 @@ IF q$ = "U" THEN PUT (D * 10, e * 10), DoorSpriteSmall, PSET: TerrainGrid(D + 1,
 NEXT D
 NEXT e
 123
-END SUB
+END SUB
\ No newline at end of file
-- 
2.20.1