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

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

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index e3a6757..bd902ae 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -17,7 +17,7 @@ DECLARE SUB drawSprite (p%, o%, m%, fr%, teler%)
 DEFINT A-Z
 DIM SHARED graphicsMode
 DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31
-DIM SHARED siib, siia, siib1, siia1
+DIM SHARED siib, siia, secondHedgehogY, secondHedgehogX
 DIM SHARED elu, raha
 DIM SHARED uks1, uks2, uks3, uks4
 DIM SHARED maa
@@ -230,8 +230,8 @@ 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
+GET (secondHedgehogX, secondHedgehogY)-(secondHedgehogX + 10, secondHedgehogY + 10), siil2
+PUT (secondHedgehogX, secondHedgehogY), 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
@@ -260,26 +260,26 @@ IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38)
 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 asend((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1
+IF asend((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1
+IF asend((secondHedgehogX + 20) \ 20, (secondHedgehogY + 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
+IF secondHedgehogX > 300 THEN siie1 = -1
+IF secondHedgehogX < 3 THEN siie1 = 1
+PUT (secondHedgehogX, secondHedgehogY), 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) = ""
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 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"
+secondHedgehogX = secondHedgehogX + siie1
+secondHedgehogY = secondHedgehogY + siiall1
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 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
@@ -318,8 +318,8 @@ 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
+GET (secondHedgehogX \ 2, secondHedgehogY \ 2)-((siia1 + 10) \ 2, (secondHedgehogY + 10) \ 2), siilm2
+PUT (secondHedgehogX \ 2, secondHedgehogY \ 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
@@ -348,26 +348,26 @@ IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38)
 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 asend((secondHedgehogX + 25) \ 20, (secondHedgehogY + 25) \ 20) = "z" THEN siiall1 = -1
+IF asend((secondHedgehogX + 30) \ 20, (secondHedgehogY + 10) \ 20) = "z" THEN siie1 = -1
+IF asend((secondHedgehogX + 20) \ 20, (secondHedgehogY + 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
+IF secondHedgehogX > 600 THEN siie1 = -1
+IF secondHedgehogX < 3 THEN siie1 = 1
+PUT (secondHedgehogX \ 2, secondHedgehogY \ 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) = ""
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 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"
+secondHedgehogX = secondHedgehogX + siie1
+secondHedgehogY = secondHedgehogY + siiall1
+asend1((secondHedgehogX + 25) \ 20, (secondHedgehogY + 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
@@ -835,7 +835,7 @@ SUB loadLevel (y)
 siia = 0
 siib = 0
 aiia1 = 0
-siib1 = 0
+secondHedgehogY = 0
 FOR a1 = 1 TO 32
 FOR b1 = 1 TO 20
 asend(a1, b1) = ""
@@ -1130,7 +1130,7 @@ IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": as
 IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET
 IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET
 IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
-IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
+IF q$ = "y" THEN secondHedgehogX = D * 20: secondHedgehogY = (e + 1) * 20
 IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1"
 IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET
 IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET
@@ -1153,7 +1153,7 @@ IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": a
 IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET
 IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET
 IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
-IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
+IF q$ = "y" THEN secondHedgehogX = D * 20: secondHedgehogY = (e + 1) * 20
 IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1"
 IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET
 IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET
-- 
2.20.1