Better code readability

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index fc4c2cf..cd2707c 100755 (executable)
--- a/Games/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo.bas
@@ -34,10 +34,10 @@ DIM SHARED taht(50)
 DIM SHARED siil(30)\r
 DIM SHARED siil1(30)\r
 DIM SHARED siil2(30)\r
-DIM SHARED munt(30)\r
+DIM SHARED CoinSprite(30)\r
 DIM SHARED poosas(100)\r
-DIM SHARED aken(100)\r
-DIM SHARED vedru(50)\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
@@ -60,10 +60,10 @@ DIM SHARED tahtm(50)
 DIM SHARED siilm(30)\r
 DIM SHARED siilm1(30)\r
 DIM SHARED siilm2(30)\r
-DIM SHARED muntm(30)\r
+DIM SHARED CoinSpriteSmall(30)\r
 DIM SHARED poosasm(100)\r
-DIM SHARED akenm(100)\r
-DIM SHARED vedrum(50)\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
@@ -104,16 +104,16 @@ DrawSprite 0, 0, 5, 1, 1
 GET (1, 1)-(11, 8), siil\r
 CLS\r
 DrawSprite 0, 0, 6, 1, 1\r
-GET (1, 1)-(8, 10), munt\r
+GET (1, 1)-(8, 10), CoinSprite\r
 CLS\r
 DrawSprite 0, 0, 7, 1, 1\r
 GET (1, 1)-(31, 11), poosas\r
 CLS\r
 DrawSprite 0, 0, 8, 1, 1\r
-GET (1, 1)-(26, 21), aken\r
+GET (1, 1)-(26, 21), WindowSprite\r
 CLS\r
 DrawSprite 0, 0, 9, 1, 1\r
-GET (1, 1)-(21, 11), vedru\r
+GET (1, 1)-(21, 11), TrampolineSprite\r
 CLS\r
 DrawSprite 0, 0, 11, 1, 1\r
 GET (1, 1)-(51, 81), TreeSprite\r
@@ -159,16 +159,16 @@ DrawSprite 0, 0, 5, 1, 2
 GET (1, 1)-(6, 4), siilm\r
 CLS\r
 DrawSprite 0, 0, 6, 1, 2\r
-GET (1, 1)-(4, 5), muntm\r
+GET (1, 1)-(4, 5), CoinSpriteSmall\r
 CLS\r
 DrawSprite 0, 0, 7, 1, 2\r
 GET (1, 1)-(16, 6), poosasm\r
 CLS\r
 DrawSprite 0, 0, 8, 1, 2\r
-GET (1, 1)-(13, 11), akenm\r
+GET (1, 1)-(13, 11), WindowSpriteSmall\r
 CLS\r
 DrawSprite 0, 0, 9, 1, 2\r
-GET (1, 1)-(11, 6), vedrum\r
+GET (1, 1)-(11, 6), TrampolineSpriteSmall\r
 CLS\r
 DrawSprite 0, 0, 11, 1, 2\r
 GET (1, 1)-(26, 41), TreeSpriteSmall\r
@@ -1130,10 +1130,10 @@ IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET
 IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET\r
 IF q$ = "x" THEN FirstCompanionX% = D * 20: FirstCompanionY% = (e + 1) * 20\r
 IF q$ = "y" THEN SecondCompanionX% = D * 20: SecondCompanionY% = (e + 1) * 20\r
-IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: TerrainGrid(D + 1, e + 1) = "1"\r
+IF q$ = "1" THEN PUT (D * 20, e * 20), CoinSprite, PSET: TerrainGrid(D + 1, e + 1) = "1"\r
 IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET\r
-IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET\r
-IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: TerrainGrid(D + 1, e + 1) = "v"\r
+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
@@ -1153,10 +1153,10 @@ IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET
 IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET\r
 IF q$ = "x" THEN FirstCompanionX% = D * 20: FirstCompanionY% = (e + 1) * 20\r
 IF q$ = "y" THEN SecondCompanionX% = D * 20: SecondCompanionY% = (e + 1) * 20\r
-IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: TerrainGrid(D + 1, e + 1) = "1"\r
+IF q$ = "1" THEN PUT (D * 10, e * 10), CoinSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "1"\r
 IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET\r
-IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET\r
-IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: TerrainGrid(D + 1, e + 1) = "v"\r
+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