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

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

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 13cfd76..f493437 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -20,13 +20,9 @@ DECLARE SUB InitializeAllLevelData ()
 DECLARE SUB UpdateHUD (zaz%)
 DECLARE SUB RenderImageFromTextFile (a1%, b1%, c1%, d1%, a$)
 DECLARE SUB LoadCurrentLevel ()
-DECLARE SUB save (a$)
-DECLARE SUB picedit ()
 DECLARE SUB wiew (a1%, b1%, c1%, d1%, a$)
 DECLARE SUB intro ()
 DECLARE SUB inpur ()
-DECLARE SUB mousedriver (AX%, bx%, cx%, dx%, lb%, rb%, EX%)
-DECLARE SUB tahed ()
 
 DIM SHARED userInput$
 
@@ -34,7 +30,7 @@ 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
-DIM SHARED maailm AS INTEGER
+DIM SHARED currentWorld AS INTEGER
 DIM SHARED maailm1 AS INTEGER
 DIM SHARED text5(1 TO 15) AS STRING * 15
 DIM SHARED pilv(2100)
@@ -66,7 +62,7 @@ DIM SHARED a1, b1
 DIM SHARED prog
 prog = 1
 SCREEN 13
-maailm = 1
+currentWorld = 1
 maailm1 = 1
 InitializeAllLevelData
 1
@@ -235,7 +231,7 @@ IF a$ = CHR$(0) + "H" AND ao < 10 THEN alla = -6
 IF a$ = CHR$(0) + "M" AND qa = 0 THEN edasi = edasi + 3: liig = ov1
 IF a$ = CHR$(0) + "K" AND qa = 0 THEN edasi = edasi - 3: liig = ov2
 IF a$ = CHR$(27) THEN HandleEscapeKey
-IF a$ = "+" AND qa = 0 THEN maailm = maailm + 1: LoadCurrentLevel: GOTO 12
+IF a$ = "+" AND qa = 0 THEN currentWorld = currentWorld + 1: LoadCurrentLevel: GOTO 12
 IF qa <> 0 THEN qa = 0
 IF edasi > 5 THEN edasi = 3
 IF edasi < -5 THEN edasi = -3
@@ -253,8 +249,8 @@ END IF
 b1 = b1 + alla
 a1 = a1 + edasi
 IF clr > 0 THEN clr = 0: PUT (clra * 20, clrb * 20), tuhi, PSET
-IF a1 > 280 THEN maailm = maailm + 1: LoadCurrentLevel: a1 = 3
-IF a1 < 2 THEN maailm = maailm - 1: LoadCurrentLevel: a1 = 279
+IF a1 > 280 THEN currentWorld = currentWorld + 1: LoadCurrentLevel: a1 = 3
+IF a1 < 2 THEN currentWorld = currentWorld - 1: LoadCurrentLevel: a1 = 279
 IF b1 > 170 THEN FOR a = 3000 TO 500 STEP -100: SOUND a, .3: NEXT a: HandlePlayerDeath
 GOTO 12
 
@@ -314,7 +310,7 @@ SYSTEM
 END SUB
 
 SUB HandlePlayerDeath
-IF maailm > 1 THEN maailm = maailm - 1
+IF currentWorld > 1 THEN currentWorld = currentWorld - 1
 
 LoadCurrentLevel
 a1 = 20
@@ -448,7 +444,7 @@ wiew 2, 2, 10, 1, "win.i01"
 END SUB
 
 SUB LoadCurrentLevel
-IF maailm > 10 THEN
+IF currentWorld > 10 THEN
 CLS
 PRINT "Mission complete!"
 PRINT "Game over"
@@ -456,7 +452,7 @@ END
 END IF
 
 FOR a = 1 TO 10
-text5(a + 1) = levelData(a, maailm)
+text5(a + 1) = levelData(a, currentWorld)
 NEXT a
 
 FOR a = 1 TO 10
@@ -464,7 +460,7 @@ FOR b = 1 TO 15
 IF levelGrid(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "
 NEXT b
 NEXT a
-maailm1 = maailm
+maailm1 = currentWorld
 
 FOR a = -3 TO 20
 FOR b = -3 TO 20
@@ -480,7 +476,7 @@ kollal(a) = 0
 NEXT a
 
 CLS
-PAINT (1, 1), levelSkyColor(maailm)
+PAINT (1, 1), levelSkyColor(currentWorld)
 GET (1, 2)-(20, 21), tuhi
 FOR a = 2 TO 10
 FOR b = 1 TO 15
@@ -535,20 +531,6 @@ NEXT a
 CLOSE
 END SUB
 
-DEFSNG A-Z
-SUB tahed
-CLS
-t = 13
-FOR a = 1 TO 80 STEP 8
-FOR b = 1 TO 20
-t = t + 1
-LOCATE b, a
-PRINT CHR$(t); t
-NEXT b
-NEXT a
-
-END SUB
-
 DEFINT A-Z
 SUB UpdateHUD (zaz)
 IF lives < 0 THEN GameOverSequence
-- 
2.20.1