ьний відбиток поточного відкритого поля, далі працюємо з ним
Dim S0 (9, 9) As ByteNum = 1 Theni = 0 To 9: j = 0 To 9:
S0 (i, j) = V1 (i, j): j:
Next iIfNum = 2 Theni = 0 To 9: j = 0 To 9:
S0 (i, j) = V2 (i, j): j:
Next i
End If
'Перевіряємо, чи є пошкоджені
cnt = 0i = 0 To 9j = 0 To 9S0 (j, i) <2 Then cnt = cnt + 1jicnt = 0 Then Err = True: ErrName = "Жодного простреленого поля": Exit Subi = 0 To 9j = 0 To 9S0 (j, i) = 3 Then X = j: Y = i: GoSub 120ji
'Якщо немає: 110
'Складність (якщо рівень> 3) :)
If Slozhnost> 3 Then
If Slozhnost = 4 Then skv = 150: If Moves <30 Then GoTo 100Slozhnost = 5 Then skv = 300: If Moves <15 Then GoTo 100Slozhnost = 6 Then skv = 500: If Moves < ; 10 Then GoTo 100Slozhnost = 7 Then skv = 600: If Moves <5 Then GoTo 100Slozhnost = 8 Then skv = 700Slozhnost = 9 Then skv = 850v = Int (Rnd * 1000) v = Int (v/skv) v <> 1 Then GoTo 100i = 1 To 50110Num = 1 Then If S1 (X, Y) = 1 Then GoTo 100Num = 2 Then If S2 (X, Y) = 1 Then GoTo 100 i
End If
'Пробуємо стріляти поруч з уже простріленими місцями (якщо рівень> 0)
If Slozhnost> 0 Theni = 0 To (Slozhnost * 2) 110X> 0 Then If Y> 0 Then If S0 (X - 1, Y - 1) = 1 Then GoTo 100X> ; 0 Then If Y> 0 Then If S0 (X - 1, Y - 1) = 3 Then GoTo 100X <9 Then If Y <9 Then If S0 (X + 1, Y + 1) = 1 Then GoTo 100X <9 Then If Y <9 Then If S0 (X + 1, Y + 1) = 3 Then GoTo 100X> 0 Then If Y <9 Then If S0 (X - 1, Y + 1) = 1 Then GoTo 100X> 0 Then If Y <9 Then If S0 (X - 1, Y + 1) = 3 Then GoTo 100X <9 Then If Y> 0 Then If S0 (X + 1, Y - 1) = 1 Then GoTo 100X <9 Then If Y> 0 Then If S0 (X + 1, Y - 1) = 3 Then GoTo 100 i
End If
'Стріляємо по координаті
If S0 (X, Y)> 1 Then GoTo 500 = Moves + 1 = X = Y Sub
'Випадковим чином вибираємо координати для пострілу
Randomize = Int (Rnd * 10) = Int (Rnd * 10)
'Перевіряємо, чи стріляли ми вже туди
If S0 (X, Y) = 2 Or S0 (X, Y) = 4 Then GoTo 110
'Перевіряємо суміжні з пошкодженим сектором місця
m = 0mx (4) As Byte, my (4) As Byte = 0
'ВверхX> 0 Then = X - 1 = YS0 (X1, Y1) = 3 Then conf = 1conf <> 2 Then If S0 (X1, Y1) = 0 Or S0 (X1 , Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1If
'ВнізX <9 Then = X + 1 = YS0 (X1, Y1) = 3 Then conf = 1conf <> 2 Then If S0 (X1, Y1) = 0 Or S0 (X1 , Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1If
'ВлевоY> 0 Then = X = ...
