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