Шахматы на VBA. - - Ответ 10733009

Sub Books()
' Sub make first moves from book  DataW()
' Процедура делает ходы из предзаписанной книги DataW()
    '--------- Opening Book -----------------------------------------------
    If BookFlag = False Then Exit Sub            'if no more books skip
    Const BookLimit = 17
    Dim i, j, k, RndNumber, BlankSpaceCount    ', SumBookPercent
    Dim DataW(BookLimit) As String, BookMove(BookLimit, 2) As String
    Dim Prioritet1(BookLimit) As Single
    Dim BookStr As String, CurBook As String, CurBookMove As String
    Dim X1w$, X2w$, Y1w$, Y2w$
    Dim X1, X2, Y1, Y2
    Dim Condition1 As Boolean
    i = 0
    '-------------------
    i = i + 1
    DataW(i) = "RNBQKBNRPPPPPPPP32pppppppprnbqkbnr*1"
    BookMove(i, 1) = "E2E4": BookMove(i, 2) = "D2D4"
    Prioritet1(i) = 0.75
    i = i + 1
    DataW(i) = "RNBQKBNRPPPP1PPP12P19pppppppprnbqkbnr*1"
    BookMove(i, 1) = "E7E5": BookMove(i, 2) = "E7E5"
    Prioritet1(i) = 0.5
    i = i + 1
    DataW(i) = "RNBQKBNRPPPP1PPP12P7p11pppp1ppprnbqkbnr*2"
    BookMove(i, 1) = "G1F3": BookMove(i, 2) = "B1C3"
    Prioritet1(i) = 0.5
    i = i + 1
    DataW(i) = "RNBQKB1RPPPP1PPP5N6P7p11pppp1ppprnbqkbnr*2"
    BookMove(i, 1) = "B8C6": BookMove(i, 2) = "D7D6"
    Prioritet1(i) = 0.5
    i = i + 1
    DataW(i) = "RNBQKBNRPPPP2PP5P6P7p11pppp1ppprnbqkbnr*2"
    BookMove(i, 1) = "D7D6": BookMove(i, 2) = "D7D6"
    Prioritet1(i) = 0.5
    i = i + 1
    DataW(i) = "R1BQKBNRPPPP1PPP2N9P7p11pppp1ppprnbqkbnr*2"
    BookMove(i, 1) = "G8F6": BookMove(i, 2) = "F8C5"
    Prioritet1(i) = 0.5
    
    i = i + 1
    DataW(i) = "RNBQKBNRPPPP1PPP12P5p13pp1ppppprnbqkbnr*2"
    BookMove(i, 1) = "G1F3": BookMove(i, 2) = "G1F3"
    Prioritet1(i) = 0.5
    
    i = i + 1
    DataW(i) = "RNBQKB1RPPPP1PPP5N6P5p13pp1ppppprnbqkbnr*2"
    BookMove(i, 1) = "D7D6": BookMove(i, 2) = "D7D6"
    Prioritet1(i) = 0.5
    
    i = i + 1
    DataW(i) = "RNBQKBNRPPPP1PPP12P15p3pppp1ppprnbqkbnr*2"
    BookMove(i, 1) = "D2D3": BookMove(i, 2) = "D2D4"
    Prioritet1(i) = 0.5
    
    
    i = i + 1
    DataW(i) = "RNBQKBNRPPP2PPP3P8P15p3pppp1ppprnbqkbnr*2"
    BookMove(i, 1) = "D7D5": BookMove(i, 2) = "D7D5"
    Prioritet1(i) = 0.5
    
    i = i + 1
    DataW(i) = "RNBQKBNRPPP2PPP11PP15p3pppp1ppprnbqkbnr*2"
    BookMove(i, 1) = "D7D5": BookMove(i, 2) = "D7D5"
    Prioritet1(i) = 0.5
    
    i = i + 1
    DataW(i) = "RNBQKB1RPPPP1PPP5N5P7p9n2pppp1pppr1bqkbnr*3"
    BookMove(i, 1) = "B1F3": BookMove(i, 2) = "B1F3"
    Prioritet1(i) = 0.5
    i = i + 1
    DataW(i) = "R1BQKB1RPPPP1PPP2N2N6P7p5n5pppp1pppr1bqkbnr*3"
    BookMove(i, 1) = "G8F6": BookMove(i, 2) = "G8F6"
    Prioritet1(i) = 0.5
    i = i + 1
    DataW(i) = "R1BQKBNRPPPP1PPP2N9P7p8n2pppp1ppprnbqkb1r*3"
    BookMove(i, 1) = "G1F3": BookMove(i, 2) = "G1F3"
    Prioritet1(i) = 0.5
    i = i + 1
    DataW(i) = "R1BQKB1RPPPP1PPP2N2N6P7p8n2pppp1ppprnbqkb1r*3"
    BookMove(i, 1) = "B8C6": BookMove(i, 2) = "B8C6"
    Prioritet1(i) = 0.5
   
    i = i + 1
    DataW(i) = "RNBQKB1RPPPP1PPP5N6P5p8p4pp2pppprnbqkbnr*3"
    BookMove(i, 1) = "D2D4": BookMove(i, 2) = "D2D4"
    Prioritet1(i) = 0.5
    
    i = i + 1
    DataW(i) = "R1BQK2RPPPP1PPP2N2N4B1P7p5n2n2pppp1pppr1bqkb1r*4"
    BookMove(i, 1) = "F8C5": BookMove(i, 2) = "F8C5"
    Prioritet1(i) = 0.5
    
    '---------
    BookStr = ""                           'set start flag for book moves
    BlankSpaceCount = 0                     'set blank space counter
    For k = 10 To 80 Step 10                'scan chess board
        For j = 1 To 8                      'scan chess board
          If ChessBoard(k + j) = 0 Then     'is square empty ?
            BlankSpaceCount = BlankSpaceCount + 1        'count space
          Else
            If BlankSpaceCount > 0 Then                     'this means we found a man
                BookStr = BookStr & Format(BlankSpaceCount)  'put results in book string
                BlankSpaceCount = 0                          'reset space counter
            End If
            i = ChessBoard(k + j)           'get contents of square
            BookStr = BookStr & Boo(i)   'store white man in book string
          End If
        Next j                              'next Column
    Next k                                  'next Row
    BookStr = BookStr & "*" & Format(MoveNum) 'set end flag & store move number
    '======= Debug block == блок отладки ==========
    'Debug.Print "BookStr "
    'Debug.Print BookStr
    '======== END of Debug block == конец блока отладки =========
    Do
        BookIndex = BookIndex + 1
        If BookIndex > BookLimit Then             'if we are at the end
          BookFlag = False                  'the set books to No more
          Exit Sub
        ElseIf BookIndex = BookLimit Then             'if we are at the end
          BookFlag = False                  'the set books to No more
        End If
        CurBook = DataW(BookIndex)          'read book data
    Loop While (BookStr <> CurBook)         'our books start with a "*" compare with boardscan
    If Rnd() < Prioritet1(BookIndex) Then
        CurBookMove = BookMove(BookIndex, 1)
    Else
        CurBookMove = BookMove(BookIndex, 2)
    End If
    X1w$ = Mid$(CurBookMove, 1, 1)           'used to convert to numbers that
    X1 = Asc(X1w$) - 64                     'the computer can use to make
    Y1w$ = Mid$(CurBookMove, 2, 1)             'the required move indicated by
    Y1 = Val(Y1w$)                             'our opening book data
    X2w$ = Mid$(CurBookMove, 3, 1)
    X2 = Asc(X2w$) - 64
    Y2w$ = Mid$(CurBookMove, 4, 1)
    Y2 = Val(Y2w$)
    FromPos = 10 * Y1 + X1                      'convert to "from-to" format
    ToPos = 10 * Y2 + X2
    For i = 1 To MoveIteration
        BestFromPs(i) = FromPos
        BestToPs(i) = ToPos
        Best(i) = 500
    Next
End Sub