[varSetup]
i=0         
'i will be our counter var in for/next loops
'start with the basics and open a window containing a graphicbox
nomainwin
    WindowWidth=700:WindowHeight=480
    UpperLeftX=1:UpperLeftY=1
 
    menu #1, "&File", "E&xit", [quit]
    graphicbox #1.g, 0, 0, 700, 440
    open "Card Game" for window_nf as #1
    #1 "trapclose [quit]"
 
    'get graphicbox handle
    hBox=hwnd(#1.g)
 
    'open the dll
    open "qcard32.dll" for dll as #qc
    'initialize the deck
    Call InitializeDeck hBox
 
    'draw a nice background
    #1.g "down; fill 10 190 225"
 
    playwave "shuffle.wav",sync
 
    'the DLL allows for two decks
    'the first deck includes cards 1 - 52
    'by default, cards are face up
    'deal first deck face up
    for i = 1 to 52
        scan
        'window handle, card index number, x, y
        Call DealCard hBox,i,i*12,10
        playwave "card.wav",sync
        'pause 100 milliseconds between cards
        call Pause 100
    next
 
    playwave "shuffle.wav",sync
 
    'cards 53 to 104 are in the second deck
    'deal second deck face down
    'set status of all cards to 0, which is face down
    for i = 53 to 104
        scan
        call SetCardStatus i, 0
        Call DealCard hBox,i,(i-52)*6,67+i
        playwave "card.wav",sync
        'pause 100 milliseconds between cards
        call Pause 100
    next
    call BlitBack hBox, 700, 440
wait
 
[quit] close #qc:close #1:end
 
''''''''''''''''''''
'subs and functions:
 
Sub Pause ms
    'pause ms number of milliseconds
    calldll #kernel32,"Sleep",_
    ms as long, re as void
    End Sub
 
Sub InitializeDeck hndle
    calldll #qc, "InitializeDeck",_
    hndle as ulong,r as long
    End Sub
 
Sub DealCard hndle,nC,x,y
    'places card on window whose handle is hndle at x,y
    'nC is number of card - 1-52 in first deck and
    '53-104 in second deck, if used
    calldll #qc, "DealCard",hndle as ulong,nC as long,_
    x as long,y as long,r as void
    End Sub
 
Sub SetCardStatus nC,face
    'nC is number of card - 1-52 in first deck and
    '53-104 in second deck, if used
    'face:  0=facedown,1=faceup
    calldll #qc, "SetCardStatus",nC as long,_
    face as long,r as void
    End Sub
    
Sub BlitBack hBox, w, h    
    calldll #user32, "GetDC", hBox as ulong, bmpDC as ulong
    calldll #user32, "GetDCEx", hBox as ulong, _
                                0 as long, 0 as long, winDC as ulong
    calldll #gdi32, "BitBlt", bmpDC as ulong, 0 as long, 0 as long, _
                              w as long, h as long, winDC as ulong, _
                              0 as long, 0 as long, _
                              _SRCCOPY as long, ret as long
End Sub 

    nomainwin
    stylebits #w, 0, _WS_VISIBLE, 0, 0
    open "Initially hidden" for window as #w
    timer 2000, [show]
    wait
    
[show]
    timer 0
    #w "show"
    wait