Imports System.IO
Module Module1

    Dim BoardSquares(3, 3)
    Dim GameOver As Integer = 1
    Dim PlayerOneIcon As String = "X"
    Dim PlayerTwoIcon As String = "O"
    Dim MoveCount As Integer = 0
    Dim StartPlayer As Integer


    Sub Main()




    End Sub

    Sub Move()

    End Sub

    Sub StartOfGame()
        Randomize()
        Dim Starter As Integer = CInt((Rnd() * 2) * 10)
        Dim Response, Icon As String


        StartPlayer = Starter

        Console.WriteLine("Do You Wish To Choose Your Own Pieces? (Y/N) : ") : Response = Console.ReadLine

        If Response.ToLower() = "y" Then
            Console.Clear()
            Console.Write("Player 1 Enter Your Icon (Default = X) : ") : Icon = Console.ReadLine()
            If Icon <> "" Then
                PlayerOneIcon = Icon
                Icon = ""
            End If
            Console.WriteLine()
            Console.Write("Player 2 Enter Your Icon (Default = X) : ") : Icon = Console.ReadLine()
            If Icon <> "" Then
                PlayerTwoIcon = Icon
            End If
        End If



    End Sub

    Sub Save()

    End Sub

    Sub Open()

    End Sub

    Sub AssignArray()

        For i As Integer = 1 To 3
            For i2 As Integer = 1 To 3
                BoardSquares(i, i2) = " "
            Next
        Next

    End Sub

    Sub WinCheck()

        If (BoardSquares(1, 1) = BoardSquares(1, 2) And BoardSquares(1, 3) = BoardSquares(1, 2) And BoardSquares(1, 2) <> " ") Or _
        (BoardSquares(2, 1) = BoardSquares(2, 2) And BoardSquares(2, 3) = BoardSquares(2, 2) And BoardSquares(2, 2) <> " ") Or _
        (BoardSquares(3, 1) = BoardSquares(3, 2) And BoardSquares(3, 3) = BoardSquares(3, 2) And BoardSquares(3, 2) <> " ") Or _
        (BoardSquares(1, 1) = BoardSquares(2, 1) And BoardSquares(3, 1) = BoardSquares(2, 1) And BoardSquares(2, 1) <> " ") Or _
        (BoardSquares(1, 2) = BoardSquares(2, 2) And BoardSquares(3, 2) = BoardSquares(2, 2) And BoardSquares(2, 2) <> " ") Or _
        (BoardSquares(1, 3) = BoardSquares(2, 3) And BoardSquares(3, 3) = BoardSquares(2, 3) And BoardSquares(2, 3) <> " ") Or _
        (BoardSquares(1, 1) = BoardSquares(2, 2) And BoardSquares(3, 3) = BoardSquares(2, 2) And BoardSquares(2, 2) <> " ") Or _
        (BoardSquares(1, 3) = BoardSquares(2, 2) And BoardSquares(1, 3) = BoardSquares(2, 2) And BoardSquares(2, 2) <> " ") Then

            GameOver = 2

        End If


        If MoveCount = 9 Then
            GameOver = 3
        End If

        MoveCount += 1

        If GameOver = 2 Then

        ElseIf GameOver = 3 Then
            Console.WriteLine("The Game Was A Draw")
        End If

    End Sub

    Sub ShowBoard()

        Console.WriteLine("   A B C")
        Console.WriteLine("  ------")
        Console.WriteLine("1 |" + BoardSquares(1, 1).ToString() + "|" + BoardSquares(1, 2) + "|" + BoardSquares(1, 3) + "|")
        Console.WriteLine("  ------")
        Console.WriteLine("2 |" + BoardSquares(2, 1).ToString() + "|" + BoardSquares(2, 2) + "|" + BoardSquares(2, 3) + "|")
        Console.WriteLine("  ------")
        Console.WriteLine("3 |" + BoardSquares(3, 1).ToString() + "|" + BoardSquares(3, 2) + "|" + BoardSquares(3, 3) + "|")
        Console.WriteLine("  ------")

    End Sub

    Sub EndOfGame()

    End Sub

    Function CheckPlayer()
        Dim CurrentPlayer, Random As Integer

        Random = StartPlayer + MoveCount
        Random = Random Mod 2

        Select Case Random
            Case 0
                CurrentPlayer = 2
            Case Else
                CurrentPlayer = 1
        End Select

        Return CurrentPlayer

    End Function

End Module