From ea713695aa0e9ce61502b9c19c4ff910725bf394 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Wed, 13 Aug 2025 17:55:17 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 68 ++++++++++++++--------------- 1 file changed, 34 insertions(+), 34 deletions(-) diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas index 82f80ef..c9f6276 100755 --- a/Games/Pomppu Paavo/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo/Pomppu Paavo.bas @@ -8,9 +8,9 @@ ' Changelog: ' 1999, Initial version -DECLARE SUB CL () -DECLARE SUB esc () -DECLARE SUB aargh () +DECLARE SUB UpdateLoadingScreen () +DECLARE SUB HandleEscapeKey () +DECLARE SUB PlayHurtSound () DECLARE SUB GameOverSequence () @@ -91,86 +91,86 @@ COLOR 255 PRINT "LOADING " -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "pilv" GET (1, 1)-(109, 35), pilv -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "kast" GET (1, 2)-(20, 21), kast -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "tellis" GET (1, 2)-(20, 21), tellis -CL +UpdateLoadingScreen GET (1, 2)-(20, 21), tuhi wiew 0, 0, 1, 1, "paavo1" GET (1, 2)-(20, 21), mari(202, 1) -CL +UpdateLoadingScreen wiew1 0, 0, 1, 1, "paavo1" GET (3, 2)-(22, 21), mari(202, 2) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "paavo2" GET (1, 2)-(20, 21), mari(202, 3) -CL +UpdateLoadingScreen wiew1 0, 0, 1, 1, "paavo2" GET (3, 2)-(22, 21), mari(202, 4) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "poosas" GET (1, 1)-(60, 21), poosas -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "puu" GET (1, 1)-(40, 60), puu -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "munt" GET (1, 1)-(10, 11), munt -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "munt1" GET (0, 2)-(20, 11), munt1 -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "munt2" GET (0, 2)-(20, 11), munt2 -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "0" GET (0, 2)-(10, 11), number(100, 0) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "1" GET (0, 2)-(10, 11), number(100, 1) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "2" GET (0, 2)-(10, 11), number(100, 2) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "3" GET (0, 2)-(10, 11), number(100, 3) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "4" GET (0, 2)-(10, 11), number(100, 4) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "5" GET (0, 2)-(10, 11), number(100, 5) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "6" GET (0, 2)-(10, 11), number(100, 6) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "7" GET (0, 2)-(10, 11), number(100, 7) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "8" GET (0, 2)-(10, 11), number(100, 8) -CL +UpdateLoadingScreen GET (0, 2)-(10, 11), number(100, 10) wiew 0, 0, 1, 1, "9" GET (0, 2)-(10, 11), number(100, 9) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "tigu" GET (1, 2)-(20, 21), koll1(202, 1) -CL +UpdateLoadingScreen wiew 0, 0, 1, 1, "tigu1" GET (3, 2)-(22, 21), koll1(202, 2) -CL +UpdateLoadingScreen wiew1 0, 0, 1, 1, "tigu" GET (1, 2)-(20, 21), koll1(202, 3) -CL +UpdateLoadingScreen wiew1 0, 0, 1, 1, "tigu1" GET (3, 2)-(22, 21), koll1(202, 4) @@ -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: HandlePlayerDeath: GOTO 12 +IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN PlayHurtSound: HandlePlayerDeath: GOTO 12 END IF NEXT ox END IF @@ -238,7 +238,7 @@ a$ = INKEY$ IF a$ = CHR$(0) + "H" AND ao < 10 THEN alla = -6 IF a$ = CHR$(0) + "M" AND qa = 0 THEN edasi = edasi + 3: liig = ov1 IF a$ = CHR$(0) + "K" AND qa = 0 THEN edasi = edasi - 3: liig = ov2 -IF a$ = CHR$(27) THEN esc +IF a$ = CHR$(27) THEN HandleEscapeKey IF a$ = "+" AND qa = 0 THEN maailm = maailm + 1: level: GOTO 12 IF qa <> 0 THEN qa = 0 IF edasi > 5 THEN edasi = 3 @@ -262,7 +262,7 @@ 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: HandlePlayerDeath GOTO 12 -SUB aargh +SUB PlayHurtSound a = 1700 b = 1900 FOR c = 1 TO 50 @@ -273,7 +273,7 @@ SOUND b, .2 NEXT c END SUB -SUB CL +SUB UpdateLoadingScreen LINE (0, 0)-(319, 150), 0, BF LOCATE 20, 10 + prog prog = prog + 1 @@ -334,7 +334,7 @@ END END SUB -SUB esc +SUB HandleEscapeKey FOR b = 0 TO 20 FOR a = b TO 200 STEP 20 LINE (0, a)-(320, a), 0 -- 2.20.1