Шахматки

[netdemon]

Помогите написать алгоритм проверки корректности хода для шахмат

Поле задано массивом 8х8 нумерация слева направо, сверху вниз.

[alibek]

Как заданы фигуры? Это объекты? Или просто значение в матрице?

[netdemon]

Фигуры заданы так:

Код: Выделить всё

Public Punit(32) as cChessUnit



И Вот сам проект:

[netdemon]

Вот проверочка на шах пешкой и конём.

Код: Выделить всё

Public Function IsCheck(up As UPOS, ucolor) As Boolean
  ' up-позиция короля ; ucolor-цвет короля
  Dim retval As Boolean
  Dim i As Integer
  Dim j As Integer
 
 
  retval = False
    ' Проверка на *ШАХ* лошадкой и пешкой
   For i = 0 To 7
    For j = 0 To 7
      If PUnit(i).gColor <> ucolor And PUnit(i).gUnit = PAWN And (PUnit(i).LinePos = up.uLine + 1 And (PUnit(i).ColPos = up.uColumn + 1 Or PUnit(i).ColPos = up.uColumn + 1)) Then retval = True: Exit For
      If PUnit(i).gColor <> ucolor And PUnit(i).gUnit = HORSE And ((PUnit(i).LinePos = up.uLine + 2 And (PUnit(i).ColPos = up.uColumn + 1 Or PUnit(i).ColPos = up.uColumn - 1))) Or _
                                    ((PUnit(i).LinePos = up.uLine - 2 And (PUnit(i).ColPos = up.uColumn + 1 Or PUnit(i).ColPos = up.uColumn - 1))) Or _
                                    ((PUnit(i).ColPos = up.uColumn - 2 And (PUnit(i).LinePos = up.uLine - 1 Or PUnit(i).LinePos = up.uLine + 1))) Or _
                                    ((PUnit(i).ColPos = up.uColumn - 2 And (PUnit(i).LinePos = up.uLine - 1 Or PUnit(i).LinePos = up.uLine + 1))) Then retval = True: Exit For
    Next j
   Next i
IsCheck = retval
End Function