Démonstration de CARDS.DLL

rem ============================================================================
rem                Démonstration de CARDS.DLL
rem                     Par Papydall
rem ============================================================================
' ==============================================================================
' &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
' ==============================================================================
rem La DLL "cards.dll" contient des images de carte à jouer qui sont utilisées
rem dans de nombreux jeux sur Windows.
rem Cette DLL se trouve sur votre PC.
rem La DLL "cards.dll" exporte cinq fonctions qui sont :
rem '     ============
rem '      cdtAnimate
rem '     ============
rem Anime le dos des cartes. Elle fonctionne uniquement avec des cartes de taille
rem normale dessinées avec la fonction "cdtDraw".
rem Cela marche suivant le dos des cartes (paramètre "Card" à 56, 63, 64 et 65)
rem et la version de Windows.
rem Il faut incrémenter le paramètre "Etat" partant de "0" puis le remettre à "0"
rem lorsque la fonction retourne "0".
rem '     =========
rem '      cdtDraw
rem '     =========
rem Dessine une carte à jouer (cette fonction est détaillée en peu plus bas).
rem '    ============
rem '     cdtDrawExt
rem '    ============
rem Identique à la fonction "cdtDraw".
rem La seule différence est que cette fonction possède deux paramètres suplémentaires
rem qui vous permetteront d indiquer la taille (largeur et hauteur) des cartes.
rem '    =========
rem '     cdtInit
rem '    =========
rem Initialise la DLL.
rem Les deux paramètres permettent de récupèrer la largeur et la hauteur des cartes à jouer.
rem '   =========
rem '    cdtTerm
rem '   =========
rem Libère les ressources allouées.
rem ============================================================================
' IMPORTANT !
rem Vous devez respecter les majuscules et les minuscules pour les noms des fonctions
rem que vous importez.
rem Il n est pas nécessaire de spécifier le chemin complet de la DLL "cards.dll"
rem puisqu elle se trouve dans le répertoire "System32" de Windows.
rem ============================================================================
rem   Paramètre      Description
rem      HDC         Handle du contexte de périphérique dans lequel le tracé de
rem                  la carte à jouer sera effectué.
rem      X,Y         Position de la carte à jouer en pixel.
rem      Card        Numéro (appelé égalemnt ID) de la carte à jouer.
rem      Typ         Type de la carte. Les valeurs possibles sont "0", "1" et "2"
rem                  (permet d inverser les couleurs).
rem      Couleur     Couleur de fond de la carte. Par défaut, cette couleur est blanche.
rem ============================================================================
' Tableau récapitulant les valeurs possibles du paramètre "Card" de la fonction "cdtDraw".
rem       _________________________________________
rem      |                                         |
rem      |   N°     Trèfle  Carreau  Coeur  Pique  |
rem      |   As        0       1       2     3     |
rem      |   2         4       5       6     7     |
rem      |   3         8       9      10    11     |
rem      |   4        12      13      14    15     |
rem      |   5        16      17      18    19     |
rem      |   6        20      21      22    23     |
rem      |   7        24      25      26    27     |
rem      |   8        28      29      30    31     |
rem      |   9        32      33      34    35     |
rem      |   10       36      37      38    39     |
rem      | Valet (J)  40      41      42    43     |
rem      | Dame (Q)   44      45      46    47     |
rem      | Roi (K)    48      49      50    51     |
rem      |_________________________________________|
rem
rem Si le paramètre "Typ" vaut "1", le paramètre "Card" de la fonction "cdtDraw"
rem possède également quinze autres valeures qui sont :
rem "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65",
rem "67" et "68".
rem ' REMARQUE :  la valeur "66" n'existe pas!
rem ============================================================================
rem Les images qui sont affichées au dos de la carte à jouer peuvent être
rem différentes en fonction des versions de Windows et donc de la DLL.
rem ' ASTUCE :
rem Lorsque le paramètre "Typ" de la fonction "cdtDraw" vaut "1", vous pouvez alors
rem changer la couleur de fond des 52 cartes à jouer (ainsi que pour le dos de la carte "53")
rem grâce au paramètre "Couleur".
' ==============================================================================
' &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
' ==============================================================================
Init()
Init_DLL()
Demo()
Liberer_Ressources()
end
rem ============================================================================
SUB Init()
    dim HDC%   : ' Handle du contexte de périphérique dans lequel le tracé de la
                 ' carte à jouer sera effectué.
    dim ret%   : ' Valeur de retour de l'appel à la DLL
    dim w%,h%  : ' pour récupérer la largeur et la hauteur de la carte
    width 0,1250 : height 0,800
    picture 10   : full_space 10  : ' On dessine les cartes à jouer sur un PICTURE
    HDC% = handle_canvas(10)      : ' On détermine le Handle Device Control
END_SUB
rem ============================================================================
' Initialiser la DLL. les deux paramètres permettent de récuperer la largeur
' et la hauteur des cartes
SUB Init_DLL()
    dll_on "cards.dll"
    ret% = dll_call2("cdtInit",adr(w%),adr(h%))
END_SUB
rem ============================================================================
' Dessiner les cartes à jouer
SUB Demo()
    dim_local i
    for i = 0 to 11   : ' les 12 premières cartes
        ret% = dll_call6("cdtDraw",HDC%,20+i*100,20,i,0,0)
    next i

    for i = 12 to 23  : ' les 12 cartes suivantes
        ret% = dll_call6("cdtDraw",HDC%,20+(i-12)*100,20+120,i,0,0)
    next i

    for i = 24 to 35  : ' les 12 cartes d'après
        ret% = dll_call6("cdtDraw",HDC%,20+(i-24)*100,20+240,i,0,0)
    next i

    for i = 36 to 47  : ' encore 12 autres cartes
        ret% = dll_call6("cdtDraw",HDC%,20+(i-36)*100,20+360,i,0,0)
    next i

    for i = 48 to 51  : ' les 4 dernières cartes
        ret% = dll_call6("cdtDraw",HDC%,20+(i-48)*100,20+480,i,0,0)
    next i

    ret% = dll_call6("cdtDraw",HDC%,20+4*100,20+480,52,0,0) : ' Afficher une carte retournée

    for i = 53 to 59
        ret% = dll_call6("cdtDraw",HDC%,20+(i-48)*100,20+480,i,1,0) : ' Afficher le dos des cartes
    next i
    
    for i = 60 to 65
        ret% = dll_call6("cdtDraw",HDC%,20+(i-60)*100,620,i,1,0) : ' Afficher le dos des cartes
    next i
    ' Le N° 66 n'existe pas !
    for i = 67 to 68
        ret% = dll_call6("cdtDraw",HDC%,20+(i-60)*100,620,i,1,0) : ' Afficher le dos des cartes
    next i
END_SUB
rem ============================================================================
' Libèrer les ressources allouées
SUB Liberer_Ressources()
    ret% = dll_call0("cdtTerm")
    dll_off
END_SUB
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================

rem ============================================================================
rem                 Demo  Cards.DLL
rem                   Par Papydall
rem ============================================================================

Demo()

end
rem ============================================================================
SUB Demo()
    Constantes()
    Variables()
    GUI()
    Init()
    Deal()
    Destroy()
END_SUB
rem ============================================================================
SUB Constantes()
' Coordonnées x,y des jeux des 4 joueurs (Nord, Est, Sud, Ouest)
    dim NORTHx : NORTHx = 150
    dim NORTHy : NORTHy = 020
    dim EASTx  : EASTx  = 280
    dim EASTy  : EASTy  = 140
    dim SOUTHx : SOUTHx = 150
    dim SOUTHy : SOUTHy = 280
    dim WESTx  : WESTx  = 020
    dim WESTy  : WESTy  = 140
END_SUB
rem ============================================================================
SUB Variables()
    dim xpix%, ypix%     : ' Dimensions de la carte
    dim crd(52),xlt(52)  : ' jeu de 52 cartes
    dim HDC%             : ' Handle Device Control
    dim ret%             : ' Retour de l'appel à DLL_CALLx
END_SUB
rem ============================================================================
SUB GUI()
    picture 10 : width 10,520 : height 10,400 : left 10,30 : top 10,20
    caption 0, "Demo Cards.DLL"
END_SUB
rem ============================================================================
SUB Init()
    dim_Local i,j
    For i = 1 To 52 : crd(i) = i : next i
    For i = 1 To 4  : xlt(13*i) = i - 1 : next i : ' Les as
    For j = 2 To 13 : '  2 au roi K
        For i = 0 To 3 : xlt(j-2 + 13*i + 1) =  4*(j-1) + i : next i
    next j
    HDC% = handle_canvas(10)
    dll_on "cards.dll"
    ret% = dll_call2("cdtInit",adr(xpix%),adr(ypix%)) : ' Initialisation de la DLL
END_SUB
rem ============================================================================
' Melanger les cartes
SUB Shuffle()
    dim_local i,tmp,n
    for i = 1 to 52 : crd(i) = i : next i
    for i = 1 to 52
        n = int(rnd(52)+1) : tmp = crd(i) : crd(i) = crd(n) : crd(n) = tmp
    next i
END_SUB
rem ============================================================================
' Trier et afficher les jeux des 4 mains
SUB Sort_Draw(nHand, xpos, ypos)
    dim_Local i,j, nSt, nEnd, tmp
    nSt  = nHand * 13+1
    nEnd = nSt + 12
    For i = nSt To nEnd
        For j = nSt To i-1
            If crd(i) > crd(j)
               tmp = crd(i) : crd(i) = crd(j) : crd(j) = tmp
            End_if
        next j
    next i
    For i = nSt To nEnd
        ret% = dll_call6("cdtDraw",HDC%, xpos+(i-nSt)*12,ypos,xlt(crd(i)),0,0)
    next i
END_SUB
rem ============================================================================
SUB Deal()
    Shuffle()
    Sort_Draw(0,NORTHx,NORTHy)
    Sort_Draw(1,SOUTHx,SOUTHy)
    Sort_Draw(2,EASTx, EASTy)
    Sort_Draw(3,WESTx,WESTy)
END_SUB
rem ============================================================================
' Libérer les ressources
SUB Destroy()
    ret% = dll_call0("cdtTerm")
END_SUB
rem ============================================================================

' Trier et afficher les jeux des 4 mains
SUB Sort_Draw(nHand, xpos, ypos)
    dim_Local i,j, nSt, nEnd, tmp
    nSt  = nHand * 13+1
    nEnd = nSt + 12
    For i = nSt To nEnd
        For j = nSt To i-1
            If crd(i) > crd(j)
               tmp = crd(i) : crd(i) = crd(j) : crd(j) = tmp
            End_if
        next j
    next i
    For i = nSt To nEnd
        ret% = dll_call6("cdtDraw",HDC%, xpos+(i-nSt)*12,ypos,xlt(crd(i)),0,0)
    next i
END_SUB

' Trier et afficher les jeux des 4 mains
SUB Sort_Draw(nHand, xpos, ypos)
    dim_Local i,j, nSt, nEnd, tmp
    nSt  = nHand * 13+1
    nEnd = nSt + 12
    For i = nSt To nEnd
        For j = nSt To i-1
            If crd(i) > crd(j)
               tmp = crd(i) : crd(i) = crd(j) : crd(j) = tmp
            End_if
        next j
    next i
    For i = nSt To nEnd
        ret% = dll_call6("cdtDraw",HDC%, xpos+(i-nSt)*12,ypos,xlt(crd(i)),0,0)
        wait 200 : ' <=================
    next i
END_SUB

SUB Deal()
    Shuffle()
    Sort_Draw(0,NORTHx,NORTHy)
    message "a"
    Sort_Draw(1,SOUTHx,SOUTHy)
    Sort_Draw(2,EASTx, EASTy)
    Sort_Draw(3,WESTx,WESTy)
END_SUB

#include "Constantes.bas"

rem ============================================================================
rem                Constantes_o_Cards.bas
rem A inclure dans un programme utilisant o_Cards.dll
rem ============================================================================
SUB Constantes()
' ==============================================================================
' Version
    dim cMajVersion : cMajVersion = 0
    dim cMinVersion : cMinVersion = 1
' ==============================================================================
' Fond d'écran
    dim cBackgrndGradNull : cBackgrndGradNull = 1 : ' Fond uni
    dim cBackgrndGradHor  : cBackgrndGradHor  = 2 : ' Fond dégradé horizontal
    dim cBackgrndGradVer  : cBackgrndGradVer  = 3 : ' Fond dégradé vertical
    dim cBackgrndImageCenter   : cBackgrndImageCenter   = 1 : ' Image de fond centrée
    dim cBackgrndImageStretch  : cBackgrndImageStretch  = 2 : ' Image de fond adaptée
    dim cBackgrndImageMosaique : cBackgrndImageMosaique = 3 : ' Image de fond mosaïque
' ==============================================================================
' Caractéristiaques des cartes
    ' Carte : Color
    dim cCarteNoire : cCarteNoire = 1
    dim cCarteRouge : cCarteRouge = 2
    ' Carte : Suite
    dim cCarteTrefle  : cCarteTrefle  = 1
    dim cCarteCarreau : cCarteCarreau = 2
    dim cCartePique   : cCartePique   = 3
    dim cCarteCoeur   : cCarteCoeur   = 4
    ' Carte : Value
    dim cCarteAs     : cCarteAs     = 1
    dim cCarteDeux   : cCarteDeux   = 2
    dim cCarteTrois  : cCarteTrois  = 3
    dim cCarteQuatre : cCarteQuatre = 4
    dim cCarteCinq   : cCarteCinq   = 5
    dim cCarteSix    : cCarteSix    = 6
    dim cCarteSept   : cCarteSept   = 7
    dim cCarteHuit   : cCarteHuit   = 8
    dim cCarteNeuf   : cCarteNeuf   = 9
    dim cCarteDix    : cCarteDix    = 10
    dim cCarteValet  : cCarteValet  = 11
    dim cCarteDame   : cCarteDame   = 12
    dim cCarteRoi    : cCarteRoi    = 13
    dim cCarteJoker  : cCarteJoker  = 14
    ' Carte : Image
    dim cAsTrefle     : cAsTrefle     = 1
    dim cDeuxTrefle   : cDeuxTrefle   = 2
    dim cTroisTrefle  : cTroisTrefle  = 3
    dim cQuatreTrefle : cQuatreTrefle = 4
    dim cCinqTrefle   : cCinqTrefle   = 5
    dim cSixTrefle    : cSixTrefle    = 6
    dim cSeptTrefle   : cSeptTrefle   = 7
    dim cHuitTrefle   : cHuitTrefle   = 8
    dim cNeufTrefle   : cNeufTrefle   = 9
    dim cDixTrefle    : cDixTrefle    = 10
    dim cValetTrefle  : cValetTrefle  = 11
    dim cDameTrefle   : cDameTrefle   = 12
    dim cRoiTrefle    : cRoiTrefle    = 13
    dim cAsCarreau    : cAsCarreau    = 14
    dim cDeuxCarreau  : cDeuxCarreau  = 15
    dim cTroisCarreau : cTroisCarreau = 16
    dim cQuatreCarreau : cQuatreCarreau = 17
    dim cCinqCarreau  : cCinqCarreau  = 18
    dim cSixCarreau   : cSixCarreau   = 19
    dim cSeptCarreau  : cSeptCarreau  = 20
    dim cHuitCarreau  : cHuitCarreau  = 21
    dim cNeufCarreau  : cNeufCarreau  = 22
    dim cDixCarreau   : cDixCarreau   = 23
    dim cValetCarreau : cValetCarreau = 24
    dim cDameCarreau  : cDameCarreau  = 25
    dim cRoiCarreau   : cRoiCarreau   = 26
    dim cAsPique      : cAsPique      = 27
    dim cDeuxPique    : cDeuxPique    = 28
    dim cTroisPique   : cTroisPique   = 29
    dim cQuatrePique  : cQuatrePique  = 30
    dim cCinqPique    : cCinqPique    = 31
    dim cSixPique     : cSixPique     = 32
    dim cSeptPique    : cSeptPique    = 33
    dim cHuitPique    : cHuitPique    = 34
    dim cNeufPique    : cNeufPique    = 35
    dim cDixPique     : cDixPique     = 36
    dim cValetPique   : cValetPique   = 37
    dim cDamePique    : cDamePique    = 38
    dim cRoiPique     : cRoiPique     = 39
    dim cAsCoeur      : cAsCoeur      = 40
    dim cDeuxCoeur    : cDeuxCoeur    = 41
    dim cTroisCoeur   : cTroisCoeur   = 42
    dim cQuatreCoeur  : cQuatreCoeur  = 43
    dim cCinqCoeur    : cCinqCoeur    = 44
    dim cSixCoeur     : cSixCoeur     = 45
    dim cSeptCoeur    : cSeptCoeur    = 46
    dim cHuitCoeur    : cHuitCoeur    = 47
    dim cNeufCoeur    : cNeufCoeur    = 48
    dim cDixCoeur     : cDixCoeur     = 49
    dim cValetCoeur   : cValetCoeur   = 50
    dim cDameCoeur    : cDameCoeur    = 51
    dim cRoiCoeur     : cRoiCoeur     = 52
    dim cJokerNoir    : cJokerNoir    = 53
    dim cJokerRouge   : cJokerRouge   = 54
    ' Carte : Face
    dim cCardBack     : cCardBack = 1 : ' Affichage de l'image dos
    dim cCardFace     : cCardFace = 2 : ' Affichage de l'image carte
    ' Carte : Verrouillage
    dim cCardFree     : cCardFree = 1 : ' La carte peut être utilisée
    dim cCardLocked   : cCardLocked = 2 : ' La carte est bloquée
    ' Carte : Indentation
    dim cCardIndentOff : cCardIndentOff = 0
    dim cCardIndentOn  : cCardIndentOn  = 1
' ==============================================================================
' Images dos
    dim cCardBackBlue      : cCardBackBlue      = 174 : ' Dos look Win9x
    dim cCardBackGreen     : cCardBackGreen     = 175
    dim cCardBackRobot     : cCardBackRobot     = 176
    dim cCardBackRose      : cCardBackRose      = 177
    dim cCardBackLeafGreen : cCardBackLeafGreen = 178
    dim cCardBackLeafBlue  : cCardBackLeafBlue  = 179
    dim cCardBackFishAqua  : cCardBackFishAqua  = 180
    dim cCardBackFishBlue  : cCardBackFishBlue  = 181
    dim cCardBackShell     : cCardBackShell     = 182
    dim cCardBackCastel    : cCardBackCastel    = 183
    dim cCardBackBeach     : cCardBackBeach     = 184
    dim cCardBackGame      : cCardBackGame      = 185
' ======
    dim cCardBackCloud       : cCardBackCloud       = 154 : ' Dos look WinXP
    dim cCardBackBlurBlue    : cCardBackBlurBlue    = 155
    dim cCardBackFish        : cCardBackFish        = 156
    dim cCardBackFrog        : cCardBackFrog        = 157
    dim cCardBackRoseXP      : cCardBackRoseXP      = 158
    dim cCardBackBeachXP     : cCardBackBeachXP     = 159
    dim cCardBackSquare      : cCardBackSquare      = 160
    dim cCardBackBlurFuchsia : cCardBackBlurFuchsia = 161
    dim cCardBackDune        : cCardBackDune        = 162
    dim cCardBackSpace       : cCardBackSpace       = 163
    dim cCardBackYellow      : cCardBackYellow      = 164
    dim cCardBackCars        : cCardBackCars        = 165
' ==============================================================================
' Sélection dos
    dim cCardBackAll : cCardBackAll = 0
    dim cCardBackXP  : cCardBackXP  = 1
    dim cCardBack9x  : cCardBack9x  = 2
' ==============================================================================
' Piles
' Types de pile
    dim cStackFixed       : cStackFixed       = 1 : ' Pile d'empilement
    dim cStackFixedEffect : cStackFixedEffect = 2 : ' Pile d'empilement avec effet
    dim cStackDragVer     : cStackDragVer     = 3 : ' Pile verticale pour drag and drop en colonne
    dim cStackDragLR      : cStackDragLR      = 4 : ' Pile horizontale left-right pour drag and drop en ligne
    dim cStackDragRL      : cStackDragRL      = 5 : ' Pile horizontale right-left pour drag and drop en ligne
    dim cStackVerFixed    : cStackVerFixed    = 6 : ' Pile verticale sans réorganisation des cartes
    dim cStackHorFixed    : cStackHorFixed    = 7 : ' Pile horizontale sans réorganisation des cartes
    dim cStackVerDyn1     : cStackVerDyn1     = 8 : ' Pile verticale : l'élimination d'une carte fait remonter les suivantes
    dim cStackHorDyn1     : cStackHorDyn1     = 9 : ' Pile horizontale : l'élimination d'une carte fait glisser les suivantes
    dim cStackVerDynC     : cStackVerDynC     = 10 : ' Pile verticale : l'élimination ou l'ajout d'une carte redessine la pile
                                                     ' et la centre à partir de la position initiale
    dim cStackHorDynC     : cStackHorDynC     = 11 : ' Pile horizontale : l'élimination ou l'ajout d'une carte redessine la pile
                                                     ' et la centre à partir de la position initiale
    dim cStackVirtual     : cStackVirtual     = 99 : ' Pile virtuelle non dessinable
' ==============================================================================
' Images de pile
    dim cStackImageNo   : cStackImageNo   = 0  : ' Pile sans image
    dim cStackImageGrid : cStackImageGrid = 60 : ' Pile avec grille transparente
    dim cStackImageX    : cStackImageX    = 61 : ' Pile transparente avec symbole X rouge
    dim cStackImageO    : cStackImageO    = 62 : ' Pile transparente avec symbole O vert
    dim cStackImageTrefleTrans  : cStackImageTrefleTrans  = 71 : ' Pile avec symbole trèfle transparent
    dim cStackImageCarreauTrans : cStackImageCarreauTrans = 72 : ' Pile avec symbole carreau transparent
    dim cStackImagePiqueTrans   : cStackImagePiqueTrans   = 73 : ' Pile avec symbole pique transparent
    dim cStackImageCoeurTrans   : cStackImageCoeurTrans   = 74 : ' Pile avec symbole coeur transparent
    dim cStackImageTrefleWhite  : cStackImageTrefleWhite  = 81 : ' Pile avec symbole trèfle blanc
    dim cStackImageCarreauWhite : cStackImageCarreauWhite = 82 : ' Pile avec symbole carreau blanc
    dim cStackImagePiqueWhite   : cStackImagePiqueWhite   = 83 : ' Pile avec symbole pique blanc
    dim cStackImageCoeurWhite   : cStackImageCoeurWhite   = 84 : ' Pile avec symbole coeur blanc
' ==============================================================================
' Tri de piles
    dim cStackSortNo      : cStackSortNo    = 0 : ' Pas de tri
    dim cStackSortColor   : cStackSortColor = 1 : ' Classement couleur TrefleKarreauPiqueCoeur : les cartes ne sont pas triées par valeur
    dim cStackSortAR      : cStackSortAR    = 2 : ' Classement par valeur AAAA, 2222, .... , RRRR :  les cartes ne sont pas triées par couleur
    dim cStackSort2A      : cStackSort2A    = 3 : ' Classement par valeur 2222, .... , RRRR, AAAA :  les cartes ne sont pas triées par couleur
    dim cStackSortColorAR : cStackSortColorAR = 4 : ' Classement couleur TKPC : les cartes sont triées par valeur A..R
    dim cStackSortColor2A : cStackSortColor2A = 5 : ' Classement couleur TKPC : les cartes sont triées par valeur 2..A
    dim cStackSortARColor : cStackSortARColor = 6 : ' Classement par valeur AAAA, 2222, .... , RRRR :  les cartes sont triées par couleur TKPC
    dim cStackSort2AColor : cStackSort2AColor = 7 : ' Classement par valeur 2222, .... , RRRR, AAAA :  les cartes sont triées par couleur TKPC
    dim cStackSortFIFO    : cStackSortFIFO    = 8 : ' First In First Out
' ==============================================================================
' Jeux tout fait
    dim cGameEmpty    : cGameEmpty    = 0 : ' Jeu sans cartes
    dim cGameNormal   : cGameNormal   = 1 : ' Jeu de 52 cartes
    dim cGameNormalJ  : cGameNormalJ  = 2 : ' Jeu de 52 cartes + 1 joker noir
    dim cGameNormalJJ : cGameNormalJJ = 3 : ' Jeu de 52 cartes + 2 jokers noir-rouge
' ==============================================================================
' Son dépôt d'une carte
    dim cCardClickOff : cCardClickOff = 0
    dim cCardClickOn  : cCardClickOn  = 1
' ==============================================================================
' Dragging
' Drag Horizontal
    dim cDragHorNo : cDragHorNo = 0
    dim cDragHorRL : cDragHorRL = 1
    dim cDragHorLR : cDragHorLR = 2
' Restriction Drag
    dim cDragFull   : cDragFull   = 0
    dim cDragNormal : cDragNormal = 1
END_SUB
rem =================== FIN DES DECLARATIONS DES CONSTANTES ====================

' test_OCards.bas

label creer, supprimer
label fun01

dim PG%, res%

full_space 0
dll_on "KGF.dll"

button 1 : top 1,10 : left 1,500 : caption 1,"Créer" : on_click 1,creer
button 2 : top 2,40 : left 2,500 : caption 2,"Supprimer" : on_click 2,supprimer

button 101 : top 101,10 : left 101,600 : caption 101,"o_AboutDll" : on_click 101,fun01

end

creer:
  PG% = dll_call2("Create0CardsPlayground",handle(0),0)
  message "Create0CardsPlayground="+str$(PG%)
  return
 
supprimer:
  PG% = dll_call1("Delete0CardsPlayground",PG%)
  message "Delete0CardsPlayground="+str$(PG%)
  return


fun01:
  res% = dll_call1("o_Cards_GetVersion",0)
  message "o_Cards_GetVersion="+str$(res%)
  res% = dll_call0("o_AboutDll")
  message "o_AboutDll="+str$(res%)
  return