From: Svjatoslav Agejenko Date: Tue, 19 Aug 2025 21:57:42 +0000 (+0300) Subject: Better code readability X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=e8e11edcea64610d18db74e0d9a6f8f40486d2f9;p=qbasicapps.git Better code readability --- diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas index 2daa06e..e3a6757 100755 --- a/Games/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo.bas @@ -16,7 +16,7 @@ DECLARE SUB drawSprite (p%, o%, m%, fr%, teler%) DEFINT A-Z DIM SHARED graphicsMode -DIM SHARED uun(1 TO 20) AS STRING * 31 +DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31 DIM SHARED siib, siia, siib1, siia1 DIM SHARED elu, raha DIM SHARED uks1, uks2, uks3, uks4 @@ -843,236 +843,236 @@ asend1(a1, b1) = "" NEXT b1 NEXT a1 FOR a = 1 TO 10 -uun(a) = "" +asciiLevelData(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" +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 -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" +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" 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" +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 -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" +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 -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" +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 -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" +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 -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" +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 -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) = ">>>>>>>>>>>>>>>>" +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) = ">>>>>>>>>>>>>>>>" 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" +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 -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