From 34b7bf40ad03387b7eb6ff5b224dcbcbac63d8d3 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 13 Aug 2025 17:51:44 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas index 75be07a..6d66c46 100755 --- a/Games/Pomppu Paavo/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo/Pomppu Paavo.bas @@ -14,7 +14,7 @@ DECLARE SUB aargh () DECLARE SUB die () -DECLARE SUB dead () +DECLARE SUB HandlePlayerDeath () DEFINT A-Z DECLARE SUB level1 () DECLARE SUB nait (zaz%) @@ -220,7 +220,7 @@ IF mobX(ox) > 270 THEN kolled(ox) = -1 IF mobX(ox) < 2 THEN kolled(ox) = 1 IF ruum((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1 IF ruum((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1 -IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN aargh: dead: GOTO 12 +IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN aargh: HandlePlayerDeath: GOTO 12 END IF NEXT ox END IF @@ -259,7 +259,7 @@ a1 = a1 + edasi IF clr > 0 THEN clr = 0: PUT (clra * 20, clrb * 20), tuhi, PSET IF a1 > 280 THEN maailm = maailm + 1: level: a1 = 3 IF a1 < 2 THEN maailm = maailm - 1: level: a1 = 279 -IF b1 > 170 THEN FOR a = 3000 TO 500 STEP -100: SOUND a, .3: NEXT a: dead +IF b1 > 170 THEN FOR a = 3000 TO 500 STEP -100: SOUND a, .3: NEXT a: HandlePlayerDeath GOTO 12 SUB aargh @@ -280,7 +280,7 @@ prog = prog + 1 PRINT "." END SUB -SUB dead +SUB HandlePlayerDeath IF maailm > 1 THEN maailm = maailm - 1 level -- 2.20.1