User talk:Samualkai

I forgot to test the Queen. I have fixed that part of the code but It still allows the queen to jump: Function checkQueenMoveIsLegal(ByVal Board As String, ByVal StartRank As Integer, ByVal StartFile As Integer, ByVal FinishRank As Integer, ByVal FinishFile As Integer) As Boolean Dim rD As Integer Dim fD As Integer rD = FinishRank - StartRank fD = FinishFile - StartFile

If (Abs(fD)) = (Abs(rD)) Or ((Abs(rD) = 0) And Not (Abs(fD) = 0) Or ((Abs(fD) = 0) And Not (Abs(rD) = 0))) Then Return True End If

Return False

End Function