Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 42dfb1d..13cfd76 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -29,10 +29,8 @@ DECLARE SUB mousedriver (AX%, bx%, cx%, dx%, lb%, rb%, EX%)
 DECLARE SUB tahed ()\r
 \r
 DIM SHARED userInput$\r
-DIM SHARED pikkus\r
 \r
-\r
-DIM SHARED ruum(-5 TO 20, -5 TO 20) AS STRING\r
+DIM SHARED levelGrid(-5 TO 20, -5 TO 20) AS STRING\r
 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
@@ -213,24 +211,24 @@ IF zy = 1 THEN ov1 = 3: ov2 = 4
 \r
 FOR ox = 1 TO 10\r
 IF mobY(ox) < 170 THEN\r
-IF ruum((mobX(ox) + 20) / 20, (mobY(ox) + 9) / 20) = "m" THEN kollal(ox) = -1\r
+IF levelGrid((mobX(ox) + 20) / 20, (mobY(ox) + 9) / 20) = "m" THEN kollal(ox) = -1\r
 IF mobX(ox) > 270 THEN kolled(ox) = -1\r
 IF mobX(ox) < 2 THEN kolled(ox) = 1\r
-IF ruum((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1\r
-IF ruum((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1\r
+IF levelGrid((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1\r
+IF levelGrid((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1\r
 IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN PlayHurtSound: HandlePlayerDeath: GOTO 12\r
 END IF\r
 NEXT ox\r
 END IF\r
 \r
-IF ruum((a1 + 15) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0\r
-IF ruum((a1 + 25) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0\r
-IF ruum((a1 + 20) / 20, (b1 - 8) / 20) = "m" THEN alla = 1: ao = 20\r
-IF ruum((a1 + 28) / 20, (b1) / 20) = "m" THEN edasi = -1: qa = 1\r
-IF ruum((a1 + 10) / 20, (b1) / 20) = "m" THEN edasi = 1: qa = 1\r
+IF levelGrid((a1 + 15) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0\r
+IF levelGrid((a1 + 25) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0\r
+IF levelGrid((a1 + 20) / 20, (b1 - 8) / 20) = "m" THEN alla = 1: ao = 20\r
+IF levelGrid((a1 + 28) / 20, (b1) / 20) = "m" THEN edasi = -1: qa = 1\r
+IF levelGrid((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: UpdateHUD 1: SOUND 1000, 1: SOUND 2000, 1\r
+IF ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "o" THEN alla = 1: ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "": levelGrid((a1 + 20) / 20, (b1 - 8) / 20) = "2": clra = ((a1 + 20) / 20) - 1: clrb = (b1 - 8) / 20: clr = 1:  SOUND 50, .5\r
+IF levelGrid((a1 + 20) / 20, (b1) / 20) = "1" THEN levelGrid((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
@@ -463,14 +461,14 @@ NEXT a
 \r
 FOR a = 1 TO 10\r
 FOR b = 1 TO 15\r
-IF ruum(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "\r
+IF levelGrid(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "\r
 NEXT b\r
 NEXT a\r
 maailm1 = maailm\r
 \r
 FOR a = -3 TO 20\r
 FOR b = -3 TO 20\r
-ruum(a, b) = ""\r
+levelGrid(a, b) = ""\r
 ruum1(a, b) = ""\r
 NEXT b\r
 NEXT a\r
@@ -490,10 +488,10 @@ c$ = RIGHT$(LEFT$(text5(a), b), 1)
 IF c$ = "-" THEN PUT ((b - 1) * 20, (a - 2) * 20), pilv, OR\r
 IF c$ = "." THEN PUT ((b - 1) * 20, (a - 2) * 20), poosas, OR\r
 IF c$ = "+" THEN PUT ((b - 1) * 20, (a - 2) * 20), puu, OR\r
-IF c$ = "$" THEN PUT ((b - 1) * 20, (a - 2) * 20), munt, OR: ruum(b, a - 2) = "1"\r
-IF c$ = "m" THEN PUT ((b - 1) * 20, (a - 2) * 20), kast, PSET: ruum(b, a - 2) = "m"\r
-IF c$ = "o" THEN PUT ((b - 1) * 20, (a - 2) * 20), tellis, PSET: ruum(b, a - 2) = "m": ruum1(b, a - 2) = "o"\r
-IF c$ = " " THEN ruum(b, a) = " "\r
+IF c$ = "$" THEN PUT ((b - 1) * 20, (a - 2) * 20), munt, OR: levelGrid(b, a - 2) = "1"\r
+IF c$ = "m" THEN PUT ((b - 1) * 20, (a - 2) * 20), kast, PSET: levelGrid(b, a - 2) = "m"\r
+IF c$ = "o" THEN PUT ((b - 1) * 20, (a - 2) * 20), tellis, PSET: levelGrid(b, a - 2) = "m": ruum1(b, a - 2) = "o"\r
+IF c$ = " " THEN levelGrid(b, a) = " "\r
 \r
 IF c$ = "1" THEN mobX(1) = (b - 1) * 20: mobY(1) = (a - 2) * 20: GET (mobX(1), mobY(1))-(mobX(1) + 20, mobY(1) + 20), koll(202, 1)\r
 IF c$ = "2" THEN mobX(2) = (b - 1) * 20: mobY(2) = (a - 2) * 20: GET (mobX(2), mobY(2))-(mobX(2) + 20, mobY(2) + 20), koll(202, 2)\r