Refactoring code for better readability
authorSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Tue, 15 Oct 2024 18:44:13 +0000 (21:44 +0300)
committerSvjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Tue, 15 Oct 2024 18:44:13 +0000 (21:44 +0300)
Games/Checkers 2/checkers2.bas

index 6fa43c5..b20bddf 100755 (executable)
@@ -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