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
End If
If sug = 1 Then
- msg "l��a ei saa", 4
+ msg "Cannot eat.", 4
msg Str$(h1), 4
End If
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
End Sub
Sub thinkh
- msg "your turn", 14
+ msg "Your turn.", 14
5
freet
If humx1 = 0 Then GoTo 5