% FILE: demos.pl
% LINE: Defines all components related to a player: name, melds, hand, score, 
% DATE: February 20, 2021

demo1 :-
    deck(D),
    draw(D, Card),
    write("CARD REPRESENTATION: "), write(Card), nl, nl,
    write("DECK REPRESENTATION: "), write(D), nl, nl,
    write("SHUFFLING DECK!"), nl,
    shuffle(D, NewDeck),
    write("UPDATED DECK: "), write(NewDeck), nl, nl,
    discard_pile(Discard),
    write("DISCARD REPRESENTATION: "),write(Discard), nl, nl,
    write("DEALING ONTO DISCARD!"), nl,
    deal_discard(D, NDeck, NewDiscard),
    write("DISCARD PILE: "), write(NewDiscard), nl, nl,
    write("REMAINING DECK: "), write(NDeck). 


demo2 :-
    deck(D), 
    player((player1, Hand1, Meld1, Score1)), 
    player((player2, Hand2, Meld2, Score2)), 
    init_rummy(D, (player1, Hand1, Meld1, Score1), (player2, Hand2, Meld2, Score2), _).

demo3 :-
    deck(D),
    player((player1, Hand1, _, _)), 
    draw_from_deck(D, NewDeck, Hand1, NewHand1),
    write("Player1 Hand = "), write(NewHand1), nl, nl,
    write("Updated Deck = "), write(NewDeck).