Another Cards DLL Demo

- StPendl

 'Windows Cards.DLL demo by Stefan Pendl 
 'based on code by UncleBen, Rod Bird, Alyce Watson and others. 
 
 nomainwin 
 'Indices of cards in deck, numbered 0-51: 
 clubs = 0 'ace of clubs=0,deuce=4,three=8...king=48 
 diamonds = 1 'ace of diamonds=1,deuce=5,three=9...king=49 
 hearts = 2 'ace of hearts=2,deuce=6,three=10...king=50 
 spades = 3 'ace of spades=3,deuce=7,three=11...king=51 
 ace=0 'values increment by 4, which is the number of suits 
 deuce=4 
 three=8 
 four=12 
 five=16 
 six=20 
 seven=24 
 eight=28 
 nine=32 
 ten=36 
 jack=40 
 queen=44 
 king=48 
 
 'formula for card index: cardValue+cardSuit 
 'queen of hearts is 
 queenHearts = queen+hearts 
 
 hDLL=LoadLibrary("cards32.dll") 
 if hDLL<>0 then 
 dll$="cards32.dll" 
 else 
 hDLL=LoadLibrary("cards.dll") 
 if hDLL<>0 then 
 dll$="cards.dll" 
 else 
 notice "No DLL available." 
 end 
 end if 
 end if 
 
 r=FreeLibrary(hDLL) 
 
 WindowWidth = 800 
 WindowHeight = 500 
 UpperLeftX=1 
 UpperLeftY=1 
 
 open "Cards.DLL" for graphics_nsb as #main 
 #main "trapclose [quit]" 
 #main "down ; fill 0 255 0" 
 
 'Open the card DLL 
 open dll$ for dll as #card 
 
 'create structs that allow function to return default card sizes 
 struct cardX, cardwidth as long 
 struct cardY, cardheight as long 
 
 calldll #card,"cdtInit",_ 'initialize DLL 
 cardX as struct,_ 'will contain card width 
 cardY as struct,_ 'will contain card height 
 result as long 
 
 cardWide = cardX.cardwidth.struct 
 cardHigh = cardY.cardheight.struct 
 
 hgDC=GetDC(hwnd(#main)) 'device context for graphicbox 
 col=MakeRGB(0,127,0) 'color matches fill color of graphicbox 
 
 for Suit=0 to 3 'card indices 0-51 
 for Value = 0 to 48 step 4 
 cardX=int(10 + 20 * Value / 4) 'draw overlapped cards 
 cardY=int(10 + (10 + cardHigh) * Suit) 'each suit on their own row 
 nCard = Suit + Value 'calculate card index 
 nDraw=0 'draw card front 
 r=DrawCard(hgDC,cardX,cardY,nCard,nDraw,col) 
 next 
 next 
 
 oldCardX = cardX + cardWide + 10 
 row = 0 
 column = 0 
 
 for nCard = 53 to 65 'card indices 52-65 
 cardX=int(oldCardX + (10 + cardWide) * column) 'draw full cards 
 cardY=int(10 + (10 + cardHigh) * row) 'on three rows 
 nDraw=1 'draw card 
 r=DrawCard(hgDC,cardX,cardY,nCard,nDraw,col) 
 
 column = column + 1 
 if column > 4 then 
 column = 0 
 row = row + 1 
 end if 
 next 
 
 column = 3 
 
 for nCard = 67 to 68 'card indices 67-68 
 cardX=int(oldCardX + (10 + cardWide) * column) 'draw full cards 
 cardY=int(10 + (10 + cardHigh) * 3) 'on last row 
 nDraw=1 'draw card 
 r=DrawCard(hgDC,cardX,cardY,nCard,nDraw,col) 
 
 column = column + 1 
 next 
 wait 
 
 [quit] 
 'terminate DLL and call FreeLibrary 
 calldll #card,"cdtTerm",result as void 
 
 close #main 
 close #card 
 end 
 
 Function DrawCard(hDC,x,y,iCard,iDraw,clr) 
 calldll #card,"cdtDraw",_ 
 hDC as ulong,_ 'graphics device context 
 x as long,_ 'desired x location 
 y as long,_ 'desired y location 
 iCard as long,_ '0-51=deck, 52-68=specials 
 iDraw as long,_ '0=front, 1=back, 2=invert for active 
 clr as long,_ 'background color 
 result as long 
 end function 
 
 Function GetDC(hWnd) 
 CallDLL #user32, "GetDC",_ 
 hWnd As Ulong,_ 'window or control handle 
 GetDC As Ulong 'returns device context 
 End Function 
 
 Function LoadLibrary(file$) 
 Calldll #kernel32, "LoadLibraryA", file$ As Ptr, LoadLibrary As Ulong 
 End Function 
 
 Function FreeLibrary(hDLL) 
 Calldll #kernel32, "FreeLibrary", hDLL As Ulong, FreeLibrary As Long 
 End Function 
 
 function MakeRGB(red,green,blue) 
 if red<0 then red=0 
 if red>255 then red=255 
 if green<0 then green=0 
 if green>255 then green=255 
 if blue<0 then blue=0 
 if blue>255 then blue=255 
 MakeRGB=(blue*256*256)+(green*256)+red 
 end function