Better code readability

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