From 20a7a4fb4754e92f10f4738fb56c498f2b95f312 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 13 Aug 2025 17:52:58 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas index 6d66c46..82f80ef 100755 --- a/Games/Pomppu Paavo/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo/Pomppu Paavo.bas @@ -11,7 +11,7 @@ DECLARE SUB CL () DECLARE SUB esc () DECLARE SUB aargh () -DECLARE SUB die () +DECLARE SUB GameOverSequence () DECLARE SUB HandlePlayerDeath () @@ -290,7 +290,7 @@ lives = lives - 1 nait 0 END SUB -SUB die +SUB GameOverSequence DIM diep(1 TO 2000) GET (0, 0)-(150, 20), diep LOCATE 1, 1 @@ -540,7 +540,7 @@ CLOSE END SUB SUB nait (zaz) -IF lives < 0 THEN die +IF lives < 0 THEN GameOverSequence PUT (0, 180), munt1, PSET rahaz(1) = rahaz(1) + zaz FOR b = 1 TO 3 -- 2.20.1