edude03

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.
    End Class

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 playername As 

        'Generate the deck
        For i = 0 To 59
            Dim RandomNumber As Integer
            RandomNumber = RandomNumber(1, 4086)
            player.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
end sub