From ca6b9989506bb8ca187fabf924ae9ed981669957 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 13 Aug 2025 18:09:19 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo/Pomppu Paavo.bas | 36 ++++++++++++++---------------
 1 file changed, 17 insertions(+), 19 deletions(-)

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 42dfb1d..13cfd76 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -29,10 +29,8 @@ DECLARE SUB mousedriver (AX%, bx%, cx%, dx%, lb%, rb%, EX%)
 DECLARE SUB tahed ()
 
 DIM SHARED userInput$
-DIM SHARED pikkus
 
-
-DIM SHARED ruum(-5 TO 20, -5 TO 20) AS STRING
+DIM SHARED levelGrid(-5 TO 20, -5 TO 20) AS STRING
 DIM SHARED ruum1(-5 TO 20, -5 TO 20) AS STRING
 DIM SHARED levelData(1 TO 11, 1 TO 10) AS STRING * 15
 DIM SHARED levelSkyColor(1 TO 10) AS INTEGER
@@ -213,24 +211,24 @@ IF zy = 1 THEN ov1 = 3: ov2 = 4
 
 FOR ox = 1 TO 10
 IF mobY(ox) < 170 THEN
-IF ruum((mobX(ox) + 20) / 20, (mobY(ox) + 9) / 20) = "m" THEN kollal(ox) = -1
+IF levelGrid((mobX(ox) + 20) / 20, (mobY(ox) + 9) / 20) = "m" THEN kollal(ox) = -1
 IF mobX(ox) > 270 THEN kolled(ox) = -1
 IF mobX(ox) < 2 THEN kolled(ox) = 1
-IF ruum((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1
-IF ruum((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1
+IF levelGrid((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1
+IF levelGrid((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1
 IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN PlayHurtSound: HandlePlayerDeath: GOTO 12
 END IF
 NEXT ox
 END IF
 
-IF ruum((a1 + 15) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0
-IF ruum((a1 + 25) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0
-IF ruum((a1 + 20) / 20, (b1 - 8) / 20) = "m" THEN alla = 1: ao = 20
-IF ruum((a1 + 28) / 20, (b1) / 20) = "m" THEN edasi = -1: qa = 1
-IF ruum((a1 + 10) / 20, (b1) / 20) = "m" THEN edasi = 1: qa = 1
+IF levelGrid((a1 + 15) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0
+IF levelGrid((a1 + 25) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0
+IF levelGrid((a1 + 20) / 20, (b1 - 8) / 20) = "m" THEN alla = 1: ao = 20
+IF levelGrid((a1 + 28) / 20, (b1) / 20) = "m" THEN edasi = -1: qa = 1
+IF levelGrid((a1 + 10) / 20, (b1) / 20) = "m" THEN edasi = 1: qa = 1
 
-IF ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "o" THEN alla = 1: ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "": ruum((a1 + 20) / 20, (b1 - 8) / 20) = "2": clra = ((a1 + 20) / 20) - 1: clrb = (b1 - 8) / 20: clr = 1:  SOUND 50, .5
-IF ruum((a1 + 20) / 20, (b1) / 20) = "1" THEN ruum((a1 + 20) / 20, (b1) / 20) = "2": clra = ((a1 + 21) / 20) - 1: clrb = (b1) / 20: clr = 1: raha = raha + 1: UpdateHUD 1: SOUND 1000, 1: SOUND 2000, 1
+IF ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "o" THEN alla = 1: ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "": levelGrid((a1 + 20) / 20, (b1 - 8) / 20) = "2": clra = ((a1 + 20) / 20) - 1: clrb = (b1 - 8) / 20: clr = 1:  SOUND 50, .5
+IF levelGrid((a1 + 20) / 20, (b1) / 20) = "1" THEN levelGrid((a1 + 20) / 20, (b1) / 20) = "2": clra = ((a1 + 21) / 20) - 1: clrb = (b1) / 20: clr = 1: raha = raha + 1: UpdateHUD 1: SOUND 1000, 1: SOUND 2000, 1
 ao = ao + 1
 a$ = INKEY$
 IF a$ = CHR$(0) + "H" AND ao < 10 THEN alla = -6
@@ -463,14 +461,14 @@ NEXT a
 
 FOR a = 1 TO 10
 FOR b = 1 TO 15
-IF ruum(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "
+IF levelGrid(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "
 NEXT b
 NEXT a
 maailm1 = maailm
 
 FOR a = -3 TO 20
 FOR b = -3 TO 20
-ruum(a, b) = ""
+levelGrid(a, b) = ""
 ruum1(a, b) = ""
 NEXT b
 NEXT a
@@ -490,10 +488,10 @@ c$ = RIGHT$(LEFT$(text5(a), b), 1)
 IF c$ = "-" THEN PUT ((b - 1) * 20, (a - 2) * 20), pilv, OR
 IF c$ = "." THEN PUT ((b - 1) * 20, (a - 2) * 20), poosas, OR
 IF c$ = "+" THEN PUT ((b - 1) * 20, (a - 2) * 20), puu, OR
-IF c$ = "$" THEN PUT ((b - 1) * 20, (a - 2) * 20), munt, OR: ruum(b, a - 2) = "1"
-IF c$ = "m" THEN PUT ((b - 1) * 20, (a - 2) * 20), kast, PSET: ruum(b, a - 2) = "m"
-IF c$ = "o" THEN PUT ((b - 1) * 20, (a - 2) * 20), tellis, PSET: ruum(b, a - 2) = "m": ruum1(b, a - 2) = "o"
-IF c$ = " " THEN ruum(b, a) = " "
+IF c$ = "$" THEN PUT ((b - 1) * 20, (a - 2) * 20), munt, OR: levelGrid(b, a - 2) = "1"
+IF c$ = "m" THEN PUT ((b - 1) * 20, (a - 2) * 20), kast, PSET: levelGrid(b, a - 2) = "m"
+IF c$ = "o" THEN PUT ((b - 1) * 20, (a - 2) * 20), tellis, PSET: levelGrid(b, a - 2) = "m": ruum1(b, a - 2) = "o"
+IF c$ = " " THEN levelGrid(b, a) = " "
 
 IF c$ = "1" THEN mobX(1) = (b - 1) * 20: mobY(1) = (a - 2) * 20: GET (mobX(1), mobY(1))-(mobX(1) + 20, mobY(1) + 20), koll(202, 1)
 IF c$ = "2" THEN mobX(2) = (b - 1) * 20: mobY(2) = (a - 2) * 20: GET (mobX(2), mobY(2))-(mobX(2) + 20, mobY(2) + 20), koll(202, 2)
-- 
2.20.1