Better code readability

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