From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 13 Aug 2025 15:15:56 +0000 (+0300)
Subject: Better code readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=0c78886dc9aeddf8ffb572e41ebfe7d4282f3826;p=qbasicapps.git

Better code readability
---

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index f493437..6a2d7ab 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -31,8 +31,8 @@ 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
 DIM SHARED currentWorld AS INTEGER
-DIM SHARED maailm1 AS INTEGER
-DIM SHARED text5(1 TO 15) AS STRING * 15
+DIM SHARED previousWorld AS INTEGER
+DIM SHARED levelRowData(1 TO 15) AS STRING * 15
 DIM SHARED pilv(2100)
 DIM SHARED kast(202)
 DIM SHARED tellis(202)
@@ -63,7 +63,7 @@ DIM SHARED prog
 prog = 1
 SCREEN 13
 currentWorld = 1
-maailm1 = 1
+previousWorld = 1
 InitializeAllLevelData
 1
 zpqf = 4
@@ -452,15 +452,15 @@ END
 END IF
 
 FOR a = 1 TO 10
-text5(a + 1) = levelData(a, currentWorld)
+levelRowData(a + 1) = levelData(a, currentWorld)
 NEXT a
 
 FOR a = 1 TO 10
 FOR b = 1 TO 15
-IF levelGrid(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "
+IF levelGrid(b, a - 2) = "2" THEN MID$(levelData(a, previousWorld), b) = " "
 NEXT b
 NEXT a
-maailm1 = currentWorld
+previousWorld = currentWorld
 
 FOR a = -3 TO 20
 FOR b = -3 TO 20
@@ -480,7 +480,7 @@ PAINT (1, 1), levelSkyColor(currentWorld)
 GET (1, 2)-(20, 21), tuhi
 FOR a = 2 TO 10
 FOR b = 1 TO 15
-c$ = RIGHT$(LEFT$(text5(a), b), 1)
+c$ = RIGHT$(LEFT$(levelRowData(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