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

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

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index c9f6276..2802435 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -16,9 +16,9 @@ DECLARE SUB GameOverSequence ()
 
 DECLARE SUB HandlePlayerDeath ()
 DEFINT A-Z
-DECLARE SUB level1 ()
-DECLARE SUB nait (zaz%)
-DECLARE SUB wiew1 (a1%, b1%, c1%, d1%, a$)
+DECLARE SUB InitializeAllLevelData ()
+DECLARE SUB UpdateHUD (zaz%)
+DECLARE SUB RenderImageFromTextFile (a1%, b1%, c1%, d1%, a$)
 DECLARE SUB level ()
 DECLARE SUB save (a$)
 DECLARE SUB picedit ()
@@ -72,7 +72,7 @@ prog = 1
 SCREEN 13
 maailm = 1
 maailm1 = 1
-level1
+InitializeAllLevelData
 1
 ekraan = 13: zpqf = 4
 
@@ -105,13 +105,13 @@ GET (1, 2)-(20, 21), tuhi
 wiew 0, 0, 1, 1, "paavo1"
 GET (1, 2)-(20, 21), mari(202, 1)
 UpdateLoadingScreen
-wiew1 0, 0, 1, 1, "paavo1"
+RenderImageFromTextFile 0, 0, 1, 1, "paavo1"
 GET (3, 2)-(22, 21), mari(202, 2)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "paavo2"
 GET (1, 2)-(20, 21), mari(202, 3)
 UpdateLoadingScreen
-wiew1 0, 0, 1, 1, "paavo2"
+RenderImageFromTextFile 0, 0, 1, 1, "paavo2"
 GET (3, 2)-(22, 21), mari(202, 4)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "poosas"
@@ -168,10 +168,10 @@ UpdateLoadingScreen
 wiew 0, 0, 1, 1, "tigu1"
 GET (3, 2)-(22, 21), koll1(202, 2)
 UpdateLoadingScreen
-wiew1 0, 0, 1, 1, "tigu"
+RenderImageFromTextFile 0, 0, 1, 1, "tigu"
 GET (1, 2)-(20, 21), koll1(202, 3)
 UpdateLoadingScreen
-wiew1 0, 0, 1, 1, "tigu1"
+RenderImageFromTextFile 0, 0, 1, 1, "tigu1"
 GET (3, 2)-(22, 21), koll1(202, 4)
 
 SCREEN 0
@@ -186,7 +186,7 @@ ov2 = 2
 raha = 0
 lives = 3
 z = 1
-nait 0
+UpdateHUD 0
 12
 IF b1 > 0 THEN GET (a1, b1)-(a1 + 20, b1 + 20), mari0: PUT (a1, b1), mari(202, liig), OR
 
@@ -232,7 +232,7 @@ 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 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: nait 1: SOUND 1000, 1: SOUND 2000, 1
+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
 ao = ao + 1
 a$ = INKEY$
 IF a$ = CHR$(0) + "H" AND ao < 10 THEN alla = -6
@@ -287,7 +287,7 @@ level
 a1 = 20
 b1 = 100
 lives = lives - 1
-nait 0
+UpdateHUD 0
 END SUB
 
 SUB GameOverSequence
@@ -415,10 +415,10 @@ IF c$ = "9" THEN mobX(9) = (b - 1) * 20: mobY(9) = (a - 2) * 20: GET (mobX(9), m
 IF c$ = "0" THEN mobX(10) = (b - 1) * 20: mobY(10) = (a - 2) * 20: GET (mobX(10), mobY(10))-(mobX(10) + 20, mobY(10) + 20), koll(202, 10)
 NEXT b
 NEXT a
-nait 0
+UpdateHUD 0
 END SUB
 
-SUB level1
+SUB InitializeAllLevelData
 levelSkyColor(1) = 1
 levelData(1, 1) = "m              "
 levelData(2, 1) = "m  -      -    "
@@ -539,7 +539,7 @@ NEXT a
 CLOSE
 END SUB
 
-SUB nait (zaz)
+SUB UpdateHUD (zaz)
 IF lives < 0 THEN GameOverSequence
 PUT (0, 180), munt1, PSET
 rahaz(1) = rahaz(1) + zaz
@@ -597,7 +597,7 @@ NEXT a
 CLOSE
 END SUB
 
-SUB wiew1 (a1, b1, c1, d1, a$)
+SUB RenderImageFromTextFile (a1, b1, c1, d1, a$)
 a1 = a1 * 8
 b1 = b1 * 8
 laius1 = c1 - a1
-- 
2.20.1