From 83980074b5db09964cdb2919742dc333fe32a5cf Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Thu, 21 Aug 2025 20:30:23 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo.bas | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas index 1cb3e84..bfdbda1 100755 --- a/Games/Pomppu Paavo.bas +++ b/Games/Pomppu Paavo.bas @@ -878,16 +878,18 @@ ao(29) = "20000000000000000002" ao(30) = "22222222222222222222" END SELECT -IF fr = 50 THEN GOTO 8 -IF fr > 1 THEN GOTO 4 -FOR a = 1 TO 100 +IF fr = 50 THEN GOTO DrawFlippedSprite +IF fr > 1 THEN GOTO DrawScaledSprite + +FOR a = 1 TO 100 ' Normal sprite IF ao(a) = "" THEN GOTO FinishDrawing FOR b = 1 TO LEN(ao(a)) PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48 NEXT b NEXT a GOTO FinishDrawing -4 + +DrawScaledSprite: ' Scaled sprite FOR a = 1 TO 100 IF ao(a) = "" THEN GOTO FinishDrawing FOR b = 1 TO LEN(ao(a)) @@ -896,7 +898,8 @@ LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF NEXT b NEXT a GOTO FinishDrawing -8 + +DrawFlippedSprite: ' Horizontally flipped sprite FOR a = 1 TO 100 IF ao(a) = "" THEN GOTO FinishDrawing FOR b = 1 TO LEN(ao(a)) -- 2.20.1