Better code readability
authorSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Wed, 13 Aug 2025 14:52:58 +0000 (17:52 +0300)
committerSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Wed, 13 Aug 2025 14:52:58 +0000 (17:52 +0300)
Games/Pomppu Paavo/Pomppu Paavo.bas

index 6d66c46..82f80ef 100755 (executable)
@@ -11,7 +11,7 @@
 DECLARE SUB CL ()\r
 DECLARE SUB esc ()\r
 DECLARE SUB aargh ()\r
-DECLARE SUB die ()\r
+DECLARE SUB GameOverSequence ()\r
 \r
 \r
 DECLARE SUB HandlePlayerDeath ()\r
@@ -290,7 +290,7 @@ lives = lives - 1
 nait 0\r
 END SUB\r
 \r
-SUB die\r
+SUB GameOverSequence\r
 DIM diep(1 TO 2000)\r
 GET (0, 0)-(150, 20), diep\r
 LOCATE 1, 1\r
@@ -540,7 +540,7 @@ CLOSE
 END SUB\r
 \r
 SUB nait (zaz)\r
-IF lives < 0 THEN die\r
+IF lives < 0 THEN GameOverSequence\r
 PUT (0, 180), munt1, PSET\r
 rahaz(1) = rahaz(1) + zaz\r
 FOR b = 1 TO 3\r