From 5bcba25e4cc99db7148207a0e431df87d6aa1539 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Tue, 15 Oct 2024 21:44:13 +0300 Subject: [PATCH] Refactoring code for better readability --- Games/Checkers 2/checkers2.bas | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Games/Checkers 2/checkers2.bas b/Games/Checkers 2/checkers2.bas index 6fa43c5..b20bddf 100755 --- a/Games/Checkers 2/checkers2.bas +++ b/Games/Checkers 2/checkers2.bas @@ -64,7 +64,7 @@ Sub cmd (a$) Select Case sona$(1) Case "m" - If humx1 > 0 Then msg "move replaced", 14 + If humx1 > 0 Then msg "Move replaced.", 14 humx1 = Asc(Left$(sona$(2), 1)) - 64 If humx1 > 32 Then humx1 = humx1 - 32 @@ -201,7 +201,7 @@ Sub compgo (h) End If If sug = 1 Then - msg "l��a ei saa", 4 + msg "Cannot eat.", 4 msg Str$(h1), 4 End If @@ -440,25 +440,25 @@ Sub start getfnt Screen 12 Line (399, 0)-(399, 479), 13 - msg "type 'h' for help", 14 + msg "Type 'h' for help.", 14 rs = Int(370 / siz) End Sub Sub thinkc - msg "computer turn", 14 + msg "Computer turn.", 14 sug = 0 npos = 0 cx1 = -1 compgo h cmd "n" - If cx1 = -1 Then msg "you won!", 10: msg "--------", 10: System + If cx1 = -1 Then msg "You won!", 10: msg "--------", 10: System - If h <= -2 Then msg "oh no...", 10 - If h = -1 Then msg "oops!", 10 - If h = 1 Then msg "yess! I will eat soon!", 10 + If h <= -2 Then msg "Oh no...", 10 + If h = -1 Then msg "Oops!", 10 + If h = 1 Then msg "Yess! I will eat soon!", 10 If h >= 2 Then msg "HA HA HA YOU ARE IN TROUBLE!", 10 If Abs(cx1 - cx2) = 2 Then @@ -475,7 +475,7 @@ Sub thinkc End Sub Sub thinkh - msg "your turn", 14 + msg "Your turn.", 14 5 freet If humx1 = 0 Then GoTo 5 -- 2.20.1