DB Classic * TDK's Snippets For Newcomers - 4 Dealing A Pack Of Cards

Author

Message

gearce

19

Years of Service

User Offline

Joined: 18th Dec 2006

Location: ex SCOTLAND, now MELBOURNE, Australia

Posted: 24th May 2007 13:26

Link

Quote: "
How to deal a pack of cards randomly without dealing any twice."

+ Code Snippet

Rem TDK's Alternative Way To Deal A Pack Of Cards
Set Display Mode 800,600,16
Sync On
CLS RGB(255,255,255)
Randomize Timer()

Hearts$=  "AH2H3H4H5H6H7H8H9HTHJHQHKH"
Clubs$=   "AC2C3C4C5C6C7C8C9CTCJCQCKC"
Diamonds$="AD2D3D4D5D6D7D8D9DTDJDQDKD"
Spades$=  "AS2S3S4S5S6S7S8S9STSJSQSKS"
Pack$=Hearts$+Clubs$+Diamonds$+Spades$

Ink 0,0
Print "Dealing The Whole Pack..."
Print
For N=1 To 52
  NextCard=Rnd(Len(Pack$)/2-1)
  Card$=Mid$(Pack$,NextCard*2+1)+Mid$(Pack$,NextCard*2+2)
  Pack$=Left$(Pack$,NextCard*2)+Right$(Pack$,Len(Pack$)-NextCard*2+2)
  If Right$(Card$,1)="H" or Right$(Card$,1)="D"
    Ink RGB(255,0,0),0
  Else
    Ink 0,0
  Endif
  Print Card$;" ";
  Inc Counter
  If Counter=13
    Print
    Counter=0
  Endif
Next N
Sync

TDK - Just came across this. Much better and easier to work with than the method I had previously used. Have recoded all the card puzzles in my Merlin's Wide and Wonderful World of Mystical Magic series to use this method.

Thanks a lot

gearce

LANG MEY YER LUM REEK

Back to top

Profile PM

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 31st May 2007 04:43 Edited at: 31st May 2007 04:46

Link

Did you find that from my "Storing random data in an array thread" thread?
You should also note the following line:

+ Code Snippet

For N=1 To 52

Should be changed to:

+ Code Snippet

For N=1 To 52 : rem or however many cards you want to deal

Did someone say 3D scanning on my desk, or was that just an AdBot?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

gearce

19

Years of Service

User Offline

Joined: 18th Dec 2006

Location: ex SCOTLAND, now MELBOURNE, Australia

Posted: 31st May 2007 13:23 Edited at: 1st Jun 2007 07:28

Link

Sorry! but I've just had a look at your said posting and there's no source code there.

Have a look at the description

Quote: "DB Classic * TDK's Snippets For Newcomers - 4 Dealing A Pack Of Cards"

I got it from a TDK posting
Posted: 12th Aug 2005 21:16 Edited: 14th Aug 2005 13:29

EDIT: June 1 2007

I have now had time to have a look at all of your postings and nearly all (if not all) of them asks multiple questions for which you have had plenty of help, but not once have you come back to say whether or not any of your exercises have been completed.

Getting back to your question

Quote: "Did you find that from my "Storing random data in an array thread" thread?"

Where is the source code posted? I can't find it. Certainly not on this board

gearce

LANG MEY YER LUM REEK

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / DB Classic * TDK's Snippets For Newcomers - 4 Dealing A Pack Of Cards