Reversi V2

Module Module1

    Dim BoardSquare(8, 8) As String, DupeBoard(8, 8) As String
    Dim Flipped(25, 2) As Integer
    Dim PlayerIcon As String = "X", AIIcon As String = "O"
    Dim GameOver As Boolean = False

    Sub Main()
        Dim Quit As String


        Do
            Call StartOfGame()

            Console.Write("Do You Wish To Continue (Y/N) : ") : Quit = Console.ReadLine()
        Loop Until Quit.ToLower() = "n"

    End Sub

    Sub StartOfGame()
        Randomize()
        Call AssignArray()
        Dim RndStarter As Integer = CInt(Rnd() * 1)
        Dim NextMove As Integer

        Call ShowBoard()

        If RndStarter = 0 Then
            Call GetAIMove()
            NextMove = 1
        Else
            Call GetPlayerMove()
            NextMove = 2
        End If

        Do
            If NextMove = 1 Then
                Call GetPlayerMove()
                NextMove = 2
                Call ShowBoard()
            ElseIf NextMove = 2 Then
                Call GetAIMove()
                NextMove = 1
                Call ShowBoard()
            End If
        Loop Until GameOver = True

    End Sub

    Sub GetPlayerMove()


    End Sub

    Sub GetAIMove()


    End Sub

    Sub ValidMoveCheck()


    End Sub

    Function IsOnBoard(ByVal XCord As Integer, ByVal YCord As Integer) As Boolean

        If YCord > 8 Or YCord < 0 Or XCord > 8 Or XCord < 0 Then
            Return False
        Else
            Return True
        End If

    End Function

    Function IsCornerSquare(ByVal XCord As Integer, ByVal YCord As Integer) As Boolean

        If (XCord = 8 AndAlso YCord = 8) Or (XCord = 1 AndAlso YCord = 8) Or (XCord = 1 AndAlso YCord = 1) Or _
        (XCord = 8 AndAlso YCord = 1) Then
            Return True
        Else
            Return False
        End If

    End Function

    Sub MakeMove()


    End Sub

    Sub AssignArray()

        For i As Integer = 1 To 8
            For j As Integer = 1 To 8
                BoardSquare(i, j) = (" ")
            Next
        Next

        BoardSquare(5, 5) = "X"
        BoardSquare(4, 4) = "X"
        BoardSquare(4, 5) = "O"
        BoardSquare(5, 4) = "O"

    End Sub

    Sub ShowBoard()
        Dim HLine As String = "  +--+--+--+--+--+--+--+--+ "
        Dim XScore As Integer = 0
        Dim OScore As Integer = 0

        Console.Write("   A  B  C  D  E  F  G  H")
        Console.WriteLine()

        For i As Integer = 1 To 8
            Console.WriteLine(HLine)
            For j As Integer = 1 To 1
                Console.Write(i.ToString() + " ")
                Console.Write("|" + BoardSquare(1, i) + " |" + BoardSquare(2, i) + " |" + BoardSquare(3, i) + " |" + _
                              BoardSquare(4, i) + " |" + BoardSquare(5, i) + " |" + BoardSquare(6, i) + " |" + _
                              BoardSquare(7, i) + " |" + BoardSquare(8, i) + " |")
            Next
            Console.WriteLine()
        Next

        Console.WriteLine(HLine)

        For i As Integer = 1 To 8
            For j As Integer = 1 To 8
                If BoardSquare(i, j) = "X" Then
                    XScore += 1
                ElseIf BoardSquare(i, j) = "O" Then
                    OScore += 1
                End If
            Next
        Next

        Console.WriteLine()
        Console.WriteLine("   Computer : {0}    Player : {1} ", XScore, OScore)
        Console.WriteLine()

    End Sub

End Module