Playing cards: Difference between revisions
Content added Content deleted
Line 1,220: | Line 1,220: | ||
EndDataSection |
EndDataSection |
||
OpenConsole() |
If OpenConsole() |
||
Define deck.deckObject = newDeck() |
Define deck.deckObject = newDeck() |
||
Define deck2.deckObject = newDeck() |
Define deck2.deckObject = newDeck() |
||
If deck = 0 Or deck2 = 0 |
If deck = 0 Or deck2 = 0 |
||
PrintN("Unable to create decks") |
PrintN("Unable to create decks") |
||
End |
End |
||
EndIf |
EndIf |
||
deck\shuffle() |
deck\shuffle() |
||
PrintN("Dealt: " + deck\deal(#False)) |
PrintN("Dealt: " + deck\deal(#False)) |
||
PrintN("Dealt: " + deck\deal(#False)) |
PrintN("Dealt: " + deck\deal(#False)) |
||
PrintN("Dealt: " + deck\deal(#False)) |
PrintN("Dealt: " + deck\deal(#False)) |
||
PrintN("Dealt: " + deck\deal(#False)) |
PrintN("Dealt: " + deck\deal(#False)) |
||
deck\show() |
deck\show() |
||
deck2\show() |
deck2\show() |
||
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit") |
|||
Repeat: Until Inkey() <> ""</lang> |
|||
Input() |
|||
CloseConsole() |
|||
EndIf</lang> |
|||
Sample output: |
Sample output: |
||
<pre>Dealt: Queen of Hearts |
<pre>Dealt: Queen of Hearts |