Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 974f8f4..ac8aa6f 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -30,17 +30,17 @@ DIM SHARED kast(51)
 DIM SHARED mar1(70)\r
 DIM SHARED pilv(209)\r
 DIM SHARED taht(50)\r
-DIM SHARED siil(30)\r
-DIM SHARED siil1(30)\r
-DIM SHARED siil2(30)\r
+DIM SHARED HedgehogSprite(30)\r
+DIM SHARED HedgehogSprite1(30)\r
+DIM SHARED HedgehogSprite2(30)\r
 DIM SHARED CoinSprite(30)\r
 DIM SHARED poosas(100)\r
 DIM SHARED WindowSprite(100)\r
 DIM SHARED TrampolineSprite(50)\r
 DIM SHARED IntroScreen(6000)\r
 DIM SHARED TreeSprite(3000)\r
-DIM SHARED noolt(51)\r
-DIM SHARED noolt1(51)\r
+DIM SHARED RightArrowSprite(51)\r
+DIM SHARED LeftArrowSprite(51)\r
 DIM SHARED HoleSprite(51)\r
 DIM SHARED sipp1(51)\r
 DIM SHARED sipp2(51)\r
@@ -56,16 +56,16 @@ DIM SHARED kastm(51)
 DIM SHARED marm1(70)\r
 DIM SHARED pilvm(209)\r
 DIM SHARED tahtm(50)\r
-DIM SHARED siilm(30)\r
-DIM SHARED siilm1(30)\r
-DIM SHARED siilm2(30)\r
+DIM SHARED HedgehogSpriteSmall(30)\r
+DIM SHARED HedgehogSpriteSmall1(30)\r
+DIM SHARED HedgehogSpriteSmall2(30)\r
 DIM SHARED CoinSpriteSmall(30)\r
 DIM SHARED poosasm(100)\r
 DIM SHARED WindowSpriteSmall(100)\r
 DIM SHARED TrampolineSpriteSmall(50)\r
 DIM SHARED TreeSpriteSmall(3000)\r
-DIM SHARED nooltm(51)\r
-DIM SHARED nooltm1(51)\r
+DIM SHARED RightArrowSpriteSmall(51)\r
+DIM SHARED LeftArrowSpriteSmall(51)\r
 DIM SHARED HoleSpriteSmall(51)\r
 DIM SHARED sippm1(51)\r
 DIM SHARED sippm2(51)\r
@@ -100,7 +100,7 @@ RenderSpriteFromFile 20, 100, 3, 1, 1
 GET (21, 101)-(31, 114), taht\r
 CLS\r
 RenderSpriteFromFile 0, 0, 5, 1, 1\r
-GET (1, 1)-(11, 8), siil\r
+GET (1, 1)-(11, 8), HedgehogSprite\r
 CLS\r
 RenderSpriteFromFile 0, 0, 6, 1, 1\r
 GET (1, 1)-(8, 10), CoinSprite\r
@@ -118,10 +118,10 @@ RenderSpriteFromFile 0, 0, 11, 1, 1
 GET (1, 1)-(51, 81), TreeSprite\r
 CLS\r
 RenderSpriteFromFile 0, 0, 12, 1, 1\r
-GET (1, 1)-(20, 20), noolt\r
+GET (1, 1)-(20, 20), RightArrowSprite\r
 CLS\r
 RenderSpriteFromFile 0, 0, 12, 50, 1\r
-GET (1, 1)-(20, 20), noolt1\r
+GET (1, 1)-(20, 20), LeftArrowSprite\r
 CLS\r
 RenderSpriteFromFile 0, 0, 13, 1, 1\r
 GET (1, 1)-(20, 20), HoleSprite\r
@@ -158,7 +158,7 @@ RenderSpriteFromFile 20, 100, 3, 1, 2
 GET (11, 51)-(16, 72), tahtm\r
 CLS\r
 RenderSpriteFromFile 0, 0, 5, 1, 2\r
-GET (1, 1)-(6, 4), siilm\r
+GET (1, 1)-(6, 4), HedgehogSpriteSmall\r
 CLS\r
 RenderSpriteFromFile 0, 0, 6, 1, 2\r
 GET (1, 1)-(4, 5), CoinSpriteSmall\r
@@ -176,10 +176,10 @@ RenderSpriteFromFile 0, 0, 11, 1, 2
 GET (1, 1)-(26, 41), TreeSpriteSmall\r
 CLS\r
 RenderSpriteFromFile 0, 0, 12, 1, 2\r
-GET (1, 1)-(10, 10), nooltm\r
+GET (1, 1)-(10, 10), RightArrowSpriteSmall\r
 CLS\r
 RenderSpriteFromFile 0, 0, 12, 50, 2\r
-GET (1, 1)-(10, 10), nooltm1\r
+GET (1, 1)-(10, 10), LeftArrowSpriteSmall\r
 CLS\r
 RenderSpriteFromFile 0, 0, 13, 1, 2\r
 GET (1, 1)-(10, 10), HoleSpriteSmall\r
@@ -227,12 +227,12 @@ IF b > 0 THEN IF sipp = 20 THEN PUT (a, b), sipp20, OR
 IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), sipp3, OR\r
 \r
 ' Draw first companion hedgehog\r
-GET (Companion1PositionX%, Companion1PositionY%)-(Companion1PositionX% + 10, Companion1PositionY% + 10), siil1\r
-PUT (Companion1PositionX%, Companion1PositionY%), siil, OR\r
+GET (Companion1PositionX%, Companion1PositionY%)-(Companion1PositionX% + 10, Companion1PositionY% + 10), HedgehogSprite1\r
+PUT (Companion1PositionX%, Companion1PositionY%), HedgehogSprite, OR\r
 \r
 ' Draw second companion hedgehog\r
-GET (Companion2PositionX%, Companion2PositionY%)-(Companion2PositionX% + 10, Companion2PositionY% + 10), siil2\r
-PUT (Companion2PositionX%, Companion2PositionY%), siil, OR\r
+GET (Companion2PositionX%, Companion2PositionY%)-(Companion2PositionX% + 10, Companion2PositionY% + 10), HedgehogSprite2\r
+PUT (Companion2PositionX%, Companion2PositionY%), HedgehogSprite, OR\r
 \r
 ' Create short delay using sound command (workaround for no built-in delay)\r
 SOUND 0, .8\r
@@ -294,8 +294,8 @@ IF Companion2PositionX% > 300 THEN siie1 = -1
 IF Companion2PositionX% < 3 THEN siie1 = 1\r
 \r
 ' Restore previous companion positions\r
-PUT (Companion2PositionX%, Companion2PositionY%), siil2, PSET\r
-PUT (Companion1PositionX%, Companion1PositionY%), siil1, PSET\r
+PUT (Companion2PositionX%, Companion2PositionY%), HedgehogSprite2, PSET\r
+PUT (Companion1PositionX%, Companion1PositionY%), HedgehogSprite1, PSET\r
 \r
 ' Restore previous player position\r
 IF b > 0 THEN PUT (a, b), mar1, PSET\r
@@ -364,10 +364,10 @@ IF b > 0 THEN IF sipp = 20 THEN PUT (a \ 2, b \ 2), sippm20, OR
 IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), sippm3, OR\r
 \r
 ' Draw companions in scaled down mode\r
-GET (Companion1PositionX% \ 2, Companion1PositionY% \ 2)-((Companion1PositionX% + 10) \ 2, (Companion1PositionY% + 10) \ 2), siilm1\r
-PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), siilm, OR\r
-GET (Companion2PositionX% \ 2, Companion2PositionY% \ 2)-((siia1 + 10) \ 2, (Companion2PositionY% + 10) \ 2), siilm2\r
-PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), siilm, OR\r
+GET (Companion1PositionX% \ 2, Companion1PositionY% \ 2)-((Companion1PositionX% + 10) \ 2, (Companion1PositionY% + 10) \ 2), HedgehogSpriteSmall1\r
+PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), HedgehogSpriteSmall, OR\r
+GET (Companion2PositionX% \ 2, Companion2PositionY% \ 2)-((siia1 + 10) \ 2, (Companion2PositionY% + 10) \ 2), HedgehogSpriteSmall2\r
+PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), HedgehogSpriteSmall, OR\r
 \r
 ' Small delay to limit framerate\r
 SOUND 0, .8\r
@@ -429,8 +429,8 @@ IF Companion2PositionX% > 600 THEN siie1 = -1
 IF Companion2PositionX% < 3 THEN siie1 = 1\r
 \r
 ' Restore previous companion positions\r
-PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), siilm2, PSET\r
-PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), siilm1, PSET\r
+PUT (Companion2PositionX% \ 2, Companion2PositionY% \ 2), HedgehogSpriteSmall2, PSET\r
+PUT (Companion1PositionX% \ 2, Companion1PositionY% \ 2), HedgehogSpriteSmall1, PSET\r
 \r
 ' Restore previous player position\r
 IF b > 0 THEN PUT (a \ 2, b \ 2), marm1, PSET\r
@@ -652,8 +652,8 @@ IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET
 IF q$ = "h" THEN PUT (D * 20, e * 20), WindowSprite, PSET\r
 IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), TrampolineSprite, PSET: TerrainGrid(D + 1, e + 1) = "v"\r
 IF q$ = "t" THEN PUT (D * 20, e * 20), TreeSprite, PSET\r
-IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"\r
-IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"\r
+IF q$ = ">" THEN PUT (D * 20, e * 20), RightArrowSprite, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"\r
+IF q$ = "<" THEN PUT (D * 20, e * 20), LeftArrowSprite, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"\r
 IF q$ = "a" THEN PUT (D * 20, e * 20), HoleSprite, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "a"\r
 IF q$ = "u" THEN PUT (D * 20, e * 20), DoorSprite, PSET: TerrainGrid(D + 1, e + 1) = "u": DoorEntryX% = D * 20: DoorEntryY% = e * 20\r
 IF q$ = "U" THEN PUT (D * 20, e * 20), DoorSprite, PSET: TerrainGrid(D + 1, e + 1) = "U": DoorExitX% = D * 20: DoorExitY% = e * 20\r
@@ -675,8 +675,8 @@ IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET
 IF q$ = "h" THEN PUT (D * 10, e * 10), WindowSpriteSmall, PSET\r
 IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), TrampolineSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "v"\r
 IF q$ = "t" THEN PUT (D * 10, e * 10), TreeSpriteSmall, PSET\r
-IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"\r
-IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"\r
+IF q$ = ">" THEN PUT (D * 10, e * 10), RightArrowSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = ">"\r
+IF q$ = "<" THEN PUT (D * 10, e * 10), LeftArrowSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "<"\r
 IF q$ = "a" THEN PUT (D * 10, e * 10), HoleSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "a"\r
 IF q$ = "u" THEN PUT (D * 10, e * 10), DoorSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "u": DoorEntryX% = D * 20: DoorEntryY% = e * 20\r
 IF q$ = "U" THEN PUT (D * 10, e * 10), DoorSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "U": DoorExitX% = D * 20: DoorExitY% = e * 20\r