From fc75fb5aff4713519e59373e8ae6d53842dbf05d Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 20 Aug 2025 00:44:15 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo.bas | 110 ++++++++++++++++++++---------------------
 1 file changed, 55 insertions(+), 55 deletions(-)

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index a7cc2b0..7e4949d 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -6,8 +6,8 @@
 DECLARE SUB norm (nrm%)
 DECLARE SUB displayGameStats ()
 DEFINT A-Z
-DECLARE SUB level (y%)
-DECLARE SUB pildid (p%, o%, m%, fr%, teler%)
+DECLARE SUB loadLevel (y%)
+DECLARE SUB drawSprite (p%, o%, m%, fr%, teler%)
 DECLARE SUB wiew (r$, a%, b%)
 DECLARE SUB joonist ()
 DECLARE SUB save (y$)
@@ -84,131 +84,131 @@ maa = 1
 REM joonist
 REM END
 GET (1, 1)-(20, 20), tuhi
-pildid 0, 0, 1, 1, 1
+drawSprite 0, 0, 1, 1, 1
 GET (1, 1)-(20, 20), ruut
-pildid 0, 0, 4, 1, 1
+drawSprite 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
+drawSprite 30, 50, 2, 1, 1
 GET (31, 51)-(91, 76), pilv
 PUT (160, 10), pilv, PSET
-pildid 20, 100, 3, 1, 1
+drawSprite 20, 100, 3, 1, 1
 GET (21, 101)-(31, 114), taht
 CLS
-pildid 0, 0, 5, 1, 1
+drawSprite 0, 0, 5, 1, 1
 GET (1, 1)-(11, 8), siil
 CLS
-pildid 0, 0, 6, 1, 1
+drawSprite 0, 0, 6, 1, 1
 GET (1, 1)-(8, 10), munt
 CLS
-pildid 0, 0, 7, 1, 1
+drawSprite 0, 0, 7, 1, 1
 GET (1, 1)-(31, 11), poosas
 CLS
-pildid 0, 0, 8, 1, 1
+drawSprite 0, 0, 8, 1, 1
 GET (1, 1)-(26, 21), aken
 CLS
-pildid 0, 0, 9, 1, 1
+drawSprite 0, 0, 9, 1, 1
 GET (1, 1)-(21, 11), vedru
 CLS
-pildid 0, 0, 11, 1, 1
+drawSprite 0, 0, 11, 1, 1
 GET (1, 1)-(51, 81), puu
 CLS
-pildid 0, 0, 12, 1, 1
+drawSprite 0, 0, 12, 1, 1
 GET (1, 1)-(20, 20), noolt
 CLS
-pildid 0, 0, 12, 50, 1
+drawSprite 0, 0, 12, 50, 1
 GET (1, 1)-(20, 20), noolt1
 CLS
-pildid 0, 0, 13, 1, 1
+drawSprite 0, 0, 13, 1, 1
 GET (1, 1)-(20, 20), auk
 CLS
-pildid 0, 0, 14, 1, 1
+drawSprite 0, 0, 14, 1, 1
 GET (1, 1)-(20, 20), sipp1
 CLS
-pildid 0, 0, 15, 1, 1
+drawSprite 0, 0, 15, 1, 1
 GET (1, 1)-(20, 20), sipp2
 CLS
-pildid 0, 0, 14, 50, 1
+drawSprite 0, 0, 14, 50, 1
 GET (1, 1)-(20, 20), sipp10
 CLS
-pildid 0, 0, 15, 50, 1
+drawSprite 0, 0, 15, 50, 1
 GET (1, 1)-(20, 20), sipp20
 CLS
-pildid 0, 0, 16, 1, 1
+drawSprite 0, 0, 16, 1, 1
 GET (1, 1)-(20, 20), sipp3
 CLS
 GET (1, 1)-(10, 10), tuhim
-pildid 0, 0, 1, 1, 2
+drawSprite 0, 0, 1, 1, 2
 GET (1, 1)-(10, 10), ruutm
-pildid 0, 0, 4, 1, 2
+drawSprite 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
+drawSprite 30, 50, 2, 1, 2
 GET (16, 26)-(46, 38), pilvm
-pildid 20, 100, 3, 1, 2
+drawSprite 20, 100, 3, 1, 2
 GET (11, 51)-(16, 72), tahtm
 CLS
-pildid 0, 0, 5, 1, 2
+drawSprite 0, 0, 5, 1, 2
 GET (1, 1)-(6, 4), siilm
 CLS
-pildid 0, 0, 6, 1, 2
+drawSprite 0, 0, 6, 1, 2
 GET (1, 1)-(4, 5), muntm
 CLS
-pildid 0, 0, 7, 1, 2
+drawSprite 0, 0, 7, 1, 2
 GET (1, 1)-(16, 6), poosasm
 CLS
-pildid 0, 0, 8, 1, 2
+drawSprite 0, 0, 8, 1, 2
 GET (1, 1)-(13, 11), akenm
 CLS
-pildid 0, 0, 9, 1, 2
+drawSprite 0, 0, 9, 1, 2
 GET (1, 1)-(11, 6), vedrum
 CLS
-pildid 0, 0, 11, 1, 2
+drawSprite 0, 0, 11, 1, 2
 GET (1, 1)-(26, 41), puum
 CLS
-pildid 0, 0, 12, 1, 2
+drawSprite 0, 0, 12, 1, 2
 GET (1, 1)-(10, 10), nooltm
 CLS
-pildid 0, 0, 12, 50, 2
+drawSprite 0, 0, 12, 50, 2
 GET (1, 1)-(10, 10), nooltm1
 CLS
-pildid 0, 0, 13, 1, 2
+drawSprite 0, 0, 13, 1, 2
 GET (1, 1)-(10, 10), aukm
 CLS
-pildid 0, 0, 14, 1, 2
+drawSprite 0, 0, 14, 1, 2
 GET (1, 1)-(10, 10), sippm1
 CLS
-pildid 0, 0, 15, 1, 2
+drawSprite 0, 0, 15, 1, 2
 GET (1, 1)-(10, 10), sippm2
 CLS
-pildid 0, 0, 14, 50, 2
+drawSprite 0, 0, 14, 50, 2
 GET (1, 1)-(10, 10), sippm10
 CLS
-pildid 0, 0, 15, 50, 2
+drawSprite 0, 0, 15, 50, 2
 GET (1, 1)-(10, 10), sippm20
 CLS
-pildid 0, 0, 16, 1, 2
+drawSprite 0, 0, 16, 1, 2
 GET (1, 1)-(10, 10), sippm3
 CLS
-pildid 0, 0, 17, 1, 1
+drawSprite 0, 0, 17, 1, 1
 GET (1, 1)-(21, 31), uks
 CLS
-pildid 0, 0, 17, 1, 2
+drawSprite 0, 0, 17, 1, 2
 GET (1, 1)-(11, 16), intro
 CLS
 GOTO 7
-pildid -1, -1, 10, 4, 1
+drawSprite -1, -1, 10, 4, 1
 GET (1, 1)-(318, 124), intro
 CLS
 SLEEP 1
 PUT (1, 1), intro, PSET
 SLEEP 100
 7
-level 1
+loadLevel 1
 a = 50
 b = 50
 siie = 1
@@ -280,9 +280,9 @@ 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: displayGameStats: maa = maa - 1: level maa: b = 100: a = 2: displayGameStats
+IF a > 297 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
+IF a < 1 THEN a = 296: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF voolual = 2 THEN a = 594
+IF b > 179 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
 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
@@ -293,8 +293,8 @@ 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$ = "/" THEN a = 2: b = 50: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
+IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: loadLevel maa: siie = 1: siie1 = 1
 IF a$ = "q" THEN END
 sipa = sipa + 1
 IF sipa = 3 THEN sipa = 1
@@ -368,9 +368,9 @@ 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: displayGameStats: maa = maa - 1: level maa: b = 100: a = 2: displayGameStats
+IF a > 594 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
+IF a < 1 THEN a = 594: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF voolual = 1 THEN a = 297
+IF b > 358 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
 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
@@ -381,8 +381,8 @@ 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$ = "/" THEN a = 2: b = 50: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
+IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: loadLevel maa: siie = 1: siie1 = 1
 IF a$ = "q" THEN END
 sipa = sipa + 1
 IF sipa = 3 THEN sipa = 1
@@ -399,7 +399,7 @@ PRINT "o "; raha; "  Elu "; elu
 IF elu < 0 THEN END
 END SUB
 
-SUB level (y)
+SUB loadLevel (y)
 125
 siia = 0
 siib = 0
@@ -645,7 +645,7 @@ uun(19) = "mmmmmmmmmmmm<<mmmaaaaammmmmmmmm"
 voolual = 2
 CASE 19
 CLS
-pildid 1, 1, 10, 3, 1
+drawSprite 1, 1, 10, 3, 1
 LOCATE 20, 1
 PRINT "end"
 FOR a = 1 TO 50
@@ -738,7 +738,7 @@ NEXT e
 123
 END SUB
 
-SUB pildid (p, o, m, fr, teler)
+SUB drawSprite (p, o, m, fr, teler)
 DIM ao(1 TO 100) AS STRING
 SELECT CASE m
 CASE 1
-- 
2.20.1