PureBasic

Code : Tout sélectionner

; Test pour piocher des cartes au hasard pour jeux de cartes 52 (Prototype)
; Par threedslider

Dim Trefle.s(13)
Dim Carreau.s(13)
Dim Pique.s(13)
Dim Coeur.s(13)

Dim total_des_cartes.s(52)
Dim selection_des_cartes.s(52)

Procedure.s assigner_picto(a.i, mots.s)
  Dim picto.s(13)
  
  picto(0) = "Ace"
  picto(1) = "2"
  picto(2) = "3"
  picto(3) = "4"
  picto(4) = "5"
  picto(5) = "6"
  picto(6) = "7"
  picto(7) = "8"
  picto(8) = "9"
  picto(9) = "10"
  picto(10) = "Valet"
  picto(11) = "Dame"
  picto(12) = "Roi"
  
  If mots = "Trèfle"
    picto(a) = picto(a) + " Trèfle"
    ProcedureReturn picto(a)
  EndIf
  
  If mots = "Carreau"
    picto(a) = picto(a) + " Carreau"
    ProcedureReturn picto(a) 
  EndIf
  
  If mots = "Pique"
    picto(a) = picto(a) + " Pique"
    ProcedureReturn picto(a)
  EndIf
  
  If mots = "Coeur"
    picto(a) = picto(a) + " Coeur"
    ProcedureReturn picto(a)
  EndIf
  
EndProcedure


Procedure init_carte_52()
  Shared Trefle()
  Shared Carreau()
  Shared Pique()
  Shared Coeur()
  
  For T = 0 To 13-1
    Trefle(T) = assigner_picto(T, "Trèfle")
  Next
  
   For T = 0 To 13-1
    Carreau(T) = assigner_picto(T, "Carreau")
  Next
  
   For T = 0 To 13-1
    Pique(T) = assigner_picto(T, "Pique")
  Next
  
   For T = 0 To 13-1
    Coeur(T) = assigner_picto(T, "Coeur")
  Next
EndProcedure


Procedure piocher_des_cartes()
  Shared Trefle()
  Shared Carreau()
  Shared Pique()
  Shared Coeur()
  
  Shared total_des_cartes()
  
  ; Totaliser les cartes
  T=0
  While T < 52 
    If T < 13
      For C=0 To 13-1
        If T = C
          total_des_cartes(T) = Trefle(C)
        EndIf
        
      ;T = T+1
    Next
    EndIf
    If T >= 13 And T < 26  
      For C=0 To 13-1
        If T  = C + 13
          total_des_cartes(T) = Carreau(C)
        EndIf
        
      ;T = T+1
    Next
    EndIf
    If T >= 26 And T < 39
      For C=0 To 13-1
        If T = C+ 26
          total_des_cartes(T) = Pique(C)
        EndIf
        
      ;T = T+1
    Next
    EndIf
    If T >= 39 And T < 52
      For C=0 To 13-1
        If T = C + 39
          total_des_cartes(T) = Coeur(C)
        EndIf
        
      ;T = T+1
    Next
    EndIf
    T =T + 1
    
   Wend
  
  ; Piocher des cartes (prototype)
  
  Pioche = Random(52-1)
  
  ;while etc...
  
EndProcedure

init_carte_52()
piocher_des_cartes()

Debug total_des_cartes(51)
Debug total_des_cartes(10)