Better code readability
authorSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Thu, 21 Aug 2025 16:56:53 +0000 (19:56 +0300)
committerSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Thu, 21 Aug 2025 16:56:53 +0000 (19:56 +0300)
Games/Pomppu Paavo.bas

index cd2707c..107ec84 100755 (executable)
@@ -75,17 +75,17 @@ DIM SHARED sippm20(51)
 DIM SHARED sippm3(51)\r
 DIM SHARED DoorSpriteSmall(50)\r
 \r
-\r
-DIM SHARED kuikiir\r
 leftArrowKey$ = CHR$(0) + "K"\r
 rightArrowKey$ = CHR$(0) + "M"\r
 upArrowKey$ = CHR$(0) + "H"\r
 downArrowKey$ = CHR$(0) + "P"\r
+\r
 LivesRemaining% = 10\r
+\r
 SCREEN 1\r
 CurrentLevelNumber% = 1\r
-REM joonist\r
-REM END\r
+\r
+' Capture sprite images from screen drawing operations\r
 GET (1, 1)-(20, 20), EmptySpaceSprite\r
 DrawSprite 0, 0, 1, 1, 1\r
 GET (1, 1)-(20, 20), SolidTerrainSprite\r
@@ -142,6 +142,9 @@ CLS
 DrawSprite 0, 0, 16, 1, 1\r
 GET (1, 1)-(20, 20), sipp3\r
 CLS\r
+\r
+\r
+' Capture small scale versions of sprites\r
 GET (1, 1)-(10, 10), EmptySpaceSpriteSmall\r
 DrawSprite 0, 0, 1, 1, 2\r
 GET (1, 1)-(10, 10), SolidTerrainSpriteSmall\r
@@ -203,14 +206,12 @@ CLS
 DrawSprite 0, 0, 17, 1, 2\r
 GET (1, 1)-(11, 16), IntroScreen\r
 CLS\r
-GOTO 7\r
+\r
 DrawSprite -1, -1, 10, 4, 1\r
 GET (1, 1)-(318, 124), IntroScreen\r
-CLS\r
-SLEEP 1\r
-PUT (1, 1), IntroScreen, PSET\r
-SLEEP 100\r
-7\r
+\r
+key$ = INPUT$(1)\r
+\r
 LoadLevel 1\r
 a = 50\r
 b = 50\r