import GUI

var deck : array 1 .. 53 of string % Creates a deck of 52 - First value is a comment and will be ignored later on
var getcards : int % Get the card file
var count : int := 0 % Count for card file
var random_cards : flexible array 1 .. 4 of int % Make array for 4 random cards
var your_cards : flexible array 1 .. 2 of string % Make array for 2 cards for you
var dealer_cards : flexible array 1 .. 2 of string % Make array for 2 cards for dealer
var number_of_your_cards : int := 2 % Keep track of the number of cards in your hand
var total : int := 0 % Keep track of the total of all your
var num : int := 0 % Dummy values

procedure your_total
    for a : 1 .. number_of_your_cards
        if length (your_cards (a)) = 2 then % Checks to see if the number is less then 10, by determining the number of spaces in the card name
            num := strint (your_cards (a) (1)) % Gives a the value of the card to num (First character in the string), by changing it from an string, into an int.
            total := total + num % Calculates your total
        elsif length (your_cards (a)) = 3 then
            total += 10 % All of the cards that have are 3 charaters long are worth 10
        end if
    end for
    put "Your Total is: ", total
    total := 0
end your_total

procedure hit
    number_of_your_cards += 1
    new random_cards, upper (random_cards) + 1 % Expands the array for a random card
    new your_cards, upper (your_cards) + 1 % Expands the number of cards in your hand
    random_cards (5) := Rand.Int (2, 53) % Picks a random card
    your_cards (3) := deck (random_cards (5)) % Assigns that card to your hand
    put your_cards (3) : 5 ..
    your_total
end hit

open : getcards, "cards.txt", get % Open list of cards

loop % Assigns Card values into the array
    count += 1
    exit when eof (getcards)
    get : getcards, deck (count) : *
end loop

close : getcards

for a : 1 .. 4 % Assign Random Cards
    random_cards (a) := Rand.Int (2, 53)
end for

your_cards (1) := deck (random_cards (1)) % Assign Two of the random cards to you
your_cards (2) := deck (random_cards (2))

dealer_cards (1) := deck (random_cards (3)) % Assign Two of the random cards to the dealer
dealer_cards (2) := deck (random_cards (4))

put "Your Cards" : 15, your_cards (1) : 5, your_cards (2) : 5
put "Dealers Cards" : 15, dealer_cards (1) : 5, "--"

your_total % Checks your total of your cards

var hit_button : int := GUI.CreateButtonFull (50, 50, 0, "Hit", hit,0, '^D', true) % Make a button that says hit, and run procedure called hit

loop
    exit when GUI.ProcessEvent
end loop