Module Module1
    'Because I have no idea what affect this will have lets define a card at the top
    Friend Class card
        Public Function getinfo() As String 'Need to work out a format, but this gets the information about the card,
            Dim test As String = {dr(0)}
            'Need to make this less abstract and return some important data
            Return test 'Whatever, to make it return a array use this:
            'Dim astr() As String = New String() {"Hello", "World"}
            'Return astr

        End Function
    End Class

    Public Class player
        Dim deck(60) As Integer
        Dim hand(7) As Integer 'Need to be a 2D array atleast so that we can store inforation on that card.
        Dim playarea(7, 6) As Integer 'Yes the play area
        ActiveCard(1, 6) As Integer '2D array, card number, and attached cards, this code needs refactoring already and 

        Public Class ActivePMK
            'it hasn't been written yet :(
        End Class
    End Class

    'Beginning of game
    Sub Main()

        'Set up the Variables,
        Dim i As Integer
        'dim PlayerName as string
        Dim gameinplay As Boolean
        Dim playername As Integer
        Dim CurrentPlayer As Integer

        'We need the code here to pick which player it is
        'Sets up player related activites
        Console.WriteLine("please enter your name")
        playername = Console.ReadLine()
        Dim myplayer As New player
        myplayer = New player()

        'Generate the deck
        For i = 0 To 59
            Dim RandomNumber As Integer
            RandomNumber = RandomNumber(1, 4086)
            myplayer.deck(i) = RandomNumber)
            player.deck(60) = player.deck(60) + 1 'Stores the number of cards in the deck
        Next i

        'Put card in players hand
        For i = 0 To 6
            player.hand(i) = player.deck(59 - i)) 'Moves the top seven cards from the deck
            'moves cards from the "bottom" of the deck, don't ask
            deck(59 - i) = 0
            deck(60) = deck(60) - 1
            'We need some code here to get the information on the card we are working on
            'card.getinfo()
        Next i

        'This will list the cards in the array
        System.Console.Write("Hello") 'Has to list Name HP and Type


        'Lets start the game wit a while loop
        While gameinplay = True
            'Ok so we know the game is running.
            'If CurrentPlayer = 1 And player = 1 Then 'This code is messy I hope this works
            'Here comes the fun part

            'Display a menu
            System.Console.Write("1. Attack")
            System.Console.Write("2. Check")
            System.Console.Write("3. Hand")
            System.Console.Write("4. Retreat")
            System.Console.Write("5. Pkm Power")
            System.Console.Write("6. Done")

            'Grab the input
            Dim inputC As Integer
            inputC = Console.ReadLine()

            Select Case inputC
                Case 1 'The user chose to attack
                    'Do something
                Case 2 'The user chose to check **Whatever that is**
                    'Do something
                Case 3 'User chose Hand
                    'Do something
                Case 4 'User chose to retreat
                    System.Console.Write("This function has not been implemented")
                Case 5 'Use chose to pkm power
                    'Check if the pokemon has a pokemon power,
                    'execute whatever is nesesary
                Case 6 'User chose done
                    'End the users turn
                Case Else
                    'Figure out what went wrong.
            End Select

            'Change players and repeat until the game is done.


        End While



    End Sub

End Module