Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 58df50c..4b7058d 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -280,12 +280,12 @@ IF ObjectGrid((a + 30) \ 20, (b + 21) \ 20) = "o" THEN TerrainGrid((a + 30) \ 20
 IF ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = "a" THEN TerrainGrid((a + 30) \ 20, (b + 38) \ 20) = "": ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1\r
 \r
 ' First companion hedgehog terrain collision checks\r
-IF TerrainGrid((Companion1PositionX% + 25) \ 20, (Companion1PositionY% + 25) \ 20) = "z" THEN siiall = -1\r
+IF TerrainGrid((Companion1PositionX% + 25) \ 20, (Companion1PositionY% + 25) \ 20) = "z" THEN Companion1VerticalVelocity = -1\r
 IF TerrainGrid((Companion1PositionX% + 30) \ 20, (Companion1PositionY% + 10) \ 20) = "z" THEN Companion1HorizontalVelocity = -1\r
 IF TerrainGrid((Companion1PositionX% + 20) \ 20, (Companion1PositionY% + 10) \ 20) = "z" THEN Companion1HorizontalVelocity = 1\r
 \r
 ' Second companion hedgehog terrain collision checks\r
-IF TerrainGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 25) \ 20) = "z" THEN siiall1 = -1\r
+IF TerrainGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 25) \ 20) = "z" THEN Companion2VerticalVelocity = -1\r
 IF TerrainGrid((Companion2PositionX% + 30) \ 20, (Companion2PositionY% + 10) \ 20) = "z" THEN Companion2HorizontalVelocity = -1\r
 IF TerrainGrid((Companion2PositionX% + 20) \ 20, (Companion2PositionY% + 10) \ 20) = "z" THEN Companion2HorizontalVelocity = 1\r
 \r
@@ -313,16 +313,16 @@ ObjectGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 8) \ 20) =
 \r
 ' Update companion positions\r
 Companion1PositionX% = Companion1PositionX% + Companion1HorizontalVelocity\r
-Companion1PositionY% = Companion1PositionY% + siiall\r
+Companion1PositionY% = Companion1PositionY% + Companion1VerticalVelocity\r
 Companion2PositionX% = Companion2PositionX% + Companion2HorizontalVelocity\r
-Companion2PositionY% = Companion2PositionY% + siiall1\r
+Companion2PositionY% = Companion2PositionY% + Companion2VerticalVelocity\r
 \r
 ' Mark new companion positions in object grid\r
 ObjectGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 8) \ 20) = "q": ObjectGrid((Companion1PositionX% + 25) \ 20, (Companion1PositionY% + 8) \ 20) = "q"\r
 \r
 ' Apply gravity to companions (max downward velocity = 2)\r
-siiall = siiall + 1: IF siiall > 2 THEN siiall = 2\r
-siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
+Companion1VerticalVelocity = Companion1VerticalVelocity + 1: IF Companion1VerticalVelocity > 2 THEN Companion1VerticalVelocity = 2\r
+Companion2VerticalVelocity = Companion2VerticalVelocity + 1: IF Companion2VerticalVelocity > 2 THEN Companion2VerticalVelocity = 2\r
 \r
 ' Update player position based on velocity\r
 a = a + eda\r
@@ -418,12 +418,12 @@ IF ObjectGrid((a + 30) \ 20, (b + 21) \ 20) = "o" THEN TerrainGrid((a + 30) \ 20
 IF ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = "a" THEN TerrainGrid((a + 30) \ 20, (b + 38) \ 20) = "": ObjectGrid((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1\r
 \r
 ' First companion hedgehog terrain collision checks\r
-IF TerrainGrid((Companion1PositionX% + 25) \ 20, (Companion1PositionY% + 25) \ 20) = "z" THEN siiall = -1\r
+IF TerrainGrid((Companion1PositionX% + 25) \ 20, (Companion1PositionY% + 25) \ 20) = "z" THEN Companion1VerticalVelocity = -1\r
 IF TerrainGrid((Companion1PositionX% + 30) \ 20, (Companion1PositionY% + 10) \ 20) = "z" THEN Companion1HorizontalVelocity = -1\r
 IF TerrainGrid((Companion1PositionX% + 20) \ 20, (Companion1PositionY% + 10) \ 20) = "z" THEN Companion1HorizontalVelocity = 1\r
 \r
 ' Second companion hedgehog terrain collision checks\r
-IF TerrainGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 25) \ 20) = "z" THEN siiall1 = -1\r
+IF TerrainGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 25) \ 20) = "z" THEN Companion2VerticalVelocity = -1\r
 IF TerrainGrid((Companion2PositionX% + 30) \ 20, (Companion2PositionY% + 10) \ 20) = "z" THEN Companion2HorizontalVelocity = -1\r
 IF TerrainGrid((Companion2PositionX% + 20) \ 20, (Companion2PositionY% + 10) \ 20) = "z" THEN Companion2HorizontalVelocity = 1\r
 \r
@@ -451,14 +451,14 @@ ObjectGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 8) \ 20) =
 \r
 ' Update companion positions\r
 Companion1PositionX% = Companion1PositionX% + Companion1HorizontalVelocity\r
-Companion1PositionY% = Companion1PositionY% + siiall\r
+Companion1PositionY% = Companion1PositionY% + Companion1VerticalVelocity\r
 Companion2PositionX% = Companion2PositionX% + Companion2HorizontalVelocity\r
-Companion2PositionY% = Companion2PositionY% + siiall1\r
+Companion2PositionY% = Companion2PositionY% + Companion2VerticalVelocity\r
 \r
 ' Mark new companion positions in object grid\r
 ObjectGrid((Companion2PositionX% + 25) \ 20, (Companion2PositionY% + 8) \ 20) = "q": ObjectGrid((Companion1PositionX% + 25) \ 20, (Companion1PositionY% + 8) \ 20) = "q"\r
-siiall = siiall + 1: IF siiall > 2 THEN siiall = 2\r
-siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2\r
+Companion1VerticalVelocity = Companion1VerticalVelocity + 1: IF Companion1VerticalVelocity > 2 THEN Companion1VerticalVelocity = 2\r
+Companion2VerticalVelocity = Companion2VerticalVelocity + 1: IF Companion2VerticalVelocity > 2 THEN Companion2VerticalVelocity = 2\r
 \r
 ' Update player position based on velocity\r
 a = a + eda\r