PureBasic

Code : Tout sélectionner

; Forum: http://www.purebasic.fr/german/viewtopic.php?t=3249&start=10
; Autheur de procedure DrawCube: NicTheQuick (updated for PB 4.00 by Andre) 
; (YAMS Auteur kernadec  PB 630 et supérieur par kernadec le 25 Juin 2026) 
; Version corrigée pour la selection de Dés avec la souris on/off  Aout 2026
; version 5 en moins de 800 lignes
UsePNGImageDecoder()
EnableExplicit
Enumeration 
  #Window_Des
EndEnumeration
Structure yams
  Num.l
  Tours.l
  Points.l
EndStructure
Global NewList Ranglist.yams()
Global Event, Cube_Size.l, Cube_Points_r.l, Cube_Img.l, Cube_alpha.l, main, SonActif.l, TitreW$, block
Global numero.l, Lancer.l = 1, Joueur.l, Jco, Jcolor.l, i, u, a.l, n.l, ne.l, ns.l, m$, lg, ii, uu
Global Total, Total$, Total1$, Total2$, Total3$, Score$, result1.l,ColorDes,tmp.l, foix1.l, ToPair
Global Calcul1$, Calcul2$, Calcul3$, Calcul4$, Calcul5$, Calcul6$, dicte$, version$, chemin$, Pt_Suite
Global FtArial, ni, txi, tyi, xt, yt, T$, Cf, Cb, Ht, col, bcol, xb, yb, Styl, fon$, fon1$, fon2$
Global Dim Resultat(6), Dim  Resultat2(6), Dim XPosition(6), Dim Des_Fixe(6),Dim Couleur(6)
Global Dim TourJoueur(6), Dim RangJoueur$(6), Dim Filtre(6), Dim triage$(5), Dim Paire$(6)
Global Dim ScoreJoueur(6), Dim ScoreChance(6), Dim Language$(36), Dim Language1$(36)
Procedure country(lg)
  If lg = 1  ; french()
    Language$(1) = "Joueur n°1": Language$(2) = "Joueur n°2": Language$(3) = "Joueur n°3":Language$(4) = "Joueur n°4": Language$(5) = "Joueur n°5": Language$(6) = "Joueur n°6": Language$(7) = "JOUEUR  N° "
    Language$(8) = "[ Espace ]...  Lance " + Str(5) + " Dés"
    Language$(9) = "[ Return ]  =  PASSER et VALIDER LE RESULTAT"
    Language$(10) = " [Joueur suivant]   RESULTAT = "
    Language$(11) = "[ Espace ].Résultat du 1er Coup "
    Language$(12) = "[ Espace ].Résultat du 2ème Coup"
    Language$(13) = "[ Espace ]...3ème Coup = RESULTAT"
    Language$(14) = "Cliquer sur les Dés qui doivent conserver leurs valeurs     Pour choisir un joueur > Clavier de 1 à 6"
    Language$(15) = "Color Des"
    Language$(16) = "Resultat Sonor"
    Language$(17) = "Efface tout"
    Language$(18) = "Quit"
    Language$(19) = "[ Espace ]...  Lance 5 Dés"
    Language$(20) = " Score  "
    Language$(21) = " Points "
    Language$(22) = " Tours "
    Language$(23) = " Chance "
    Language$(24) = " Tirage "
    Language$(25) = "Tours"
    Language$(26) = "rang"
    Language$(27) = "Options"
    Language$(28) = "Joueur"
    Language$(29) = " Brelan 20"
    Language$(30) = "    Full 25"
    Language$(31) = "  Carre 30"
    Language$(32) = " Pt.Suit 15"
    Language$(33) = " Gr.Suit 40"
    Language$(34) = "  YAM'S 50"
    Language$(35) = "  Z e r o + 0 "
    Language$(36) = " 2 Paires 10"
  EndIf
  If lg = 2  ;English()
    Language$(1) = " Player n°1":Language$(2) = " Player n°2":Language$(3) = " Player n°3":Language$(4) = " Player n°4":Language$(5) = " Player n°5":Language$(6) = " Player n°6": Language$(7) = "PLAYER  N° "
    Language$(8) = "( Space )...Roll the" + Str(5) + " Dice"
    Language$(9) = "[ Return ] = PROCESS and COMFIRM THE RESULT"
    Language$(10) = " [ Next player ] THE RESULT = "
    Language$(11) = "[ Space ]...Result of the 1st Round"
    Language$(12) = "[ Space ]...Result of the 2nd Round"
    Language$(13) = "[ Space ]...3rd Move = RESULT"
    Language$(14) = "Click on the dice that should keep their values     To select a player > Keyboard keys 1 to 6"
    Language$(15) = "Dice Color"
    Language$(16) = "Sound Result"
    Language$(17) = "Erase everything"
    Language$(18) = "Quit"
    Language$(19) = "[ Space ]... Roll the 5 Dice"
    Language$(20) = " Score  "
    Language$(21) = " Points "
    Language$(22) = "RoundPlay"
    Language$(23) = " Luck "
    Language$(24) = "Sort order"
    Language$(25) = "Round"
    Language$(26) = "Row"
    Language$(27) = "Options"
    Language$(28) = "Player"
    Language$(29) = " 3of kind 20"
    Language$(30) = "FullHouse 25"
    Language$(31) = " 4of kind 30"
    Language$(32) = "Sequen4 15"
    Language$(33) = "Sequen5 40"
    Language$(34) = " Yahtzee 50"
    Language$(35) = "  Z e r o + 0 "
    Language$(36) = " 2 pairs 10"
  EndIf
  If lg = 3  ;German()
    Language$(1) = "Spieler n°1": Language$(2) = "Spieler n°2": Language$(3) = "Spieler n°3":Language$(4) = "Spieler n°4":Language$(5) = "Spieler n°5":Language$(6) = "Spieler n°6": Language$(7) = "SPIELER N° "
    Language$(8) = "[Leertaste]..Starte " + Str(5) + " Würfel"
    Language$(9) = "[ Return ] = Ausführen und Ergebnis bestätigen"
    Language$(10) = " [Nächster Spieler]   ERGEBNIS ="
    Language$(11) = "[Leerzeichen]. Ergebnis 1. Wurfs"
    Language$(12) = "[Leerzeichen]. Ergebnis 2. Wurfs"
    Language$(13) = "[Leerzeichen]..3. Zug = ERGEBNIS"
    Language$(14) = "Klicken Sie auf die Würfel, um deren Wert zu behalten : einen Spieler auszuwählen >Tastatur 1bis6"
    Language$(15) = "Farbe des Würfels"
    Language$(16) = "Klangresultat"
    Language$(17) = "Löscht alles"
    Language$(18) = "Beenden"
    Language$(19) = "[Leertaste] ... " + "5" + " Würfel werfen"
    Language$(20) = " Spielstand"
    Language$(21) = " Punkte "
    Language$(22) = " Zyklus "
    Language$(23) = " Glück "
    Language$(24) = " Auflage"
    Language$(25) = "Zyklus"
    Language$(26) = "rang"
    Language$(27) = "Option"
    Language$(28) = "Spieler"
    Language$(29) = " Drilling 20"
    Language$(30) = "FullHous 25"
    Language$(31) = " Vierling 30"
    Language$(32) = "Fortset4 15"
    Language$(33) = "Fortset5 40"
    Language$(34) = " Yahtzee 50"
    Language$(35) = "  Z e r o + 0 "
    Language$(36) = " 2 Paar 10"
  EndIf
  If lg = 4  ;Spagne()
    Language$(1) = " Jugador 1": Language$(2) = " Jugador 2": Language$(3) = " Jugador 3": Language$(4) = " Jugador 4": Language$(5) = " Jugador 5": Language$(6) = " Jugador 6": Language$(7) = "JUGADOR N° "
    Language$(8) = "[ Espacio ]...  Lanza" + Str(5) + "Dados"
    Language$(9) = "[ Return ]  =  PASAR y VALIDAR EL RESULTADO"
    Language$(10) = "[Siguiente jugador]   RESULTADO ="
    Language$(11) = "[Espacio]....Resultado de la 1.ª ronda"
    Language$(12) = "[ Espacio ]...Resultado de la segunda ronda"
    Language$(13) = "[ Espacio ]...3.er golpe = RESULTADO"
    Language$(14) = "Haz clic en los dados que deban conservar valores    Para elegir un jugador > Teclado del 1 al 6"
    Language$(15) = "Dados Color"
    Language$(16) = "Su resultado"
    Language$(17) = "Borra todo"
    Language$(18) = "Salir"
    Language$(19) = "[Espacio]... Lanza 5 dados"
    Language$(20) = " Score  "
    Language$(21) = " Puntos "
    Language$(22) = " Ciclo"
    Language$(23) = "Fortuna"
    Language$(24) = "Sorteo"
    Language$(25) = "Redonda"
    Language$(26) = "Fila"
    Language$(27) = "Opciones"
    Language$(28) = "Jugador"
    Language$(29) = "3Iguales 20"
    Language$(30) = "Casalena 25"
    Language$(31) = "4Iguales 30"
    Language$(32) = "Esquale4 15"
    Language$(33) = "Esquale5 40"
    Language$(34) = "5Iguales 50"
    Language$(35) = "  Z e r o + 0 "
    Language$(36) = " 2 pares 10"
  EndIf
EndProcedure 
Couleur(1) = RGBA(0, 255, 255, 0) : Couleur(2) = #Red : Couleur(3) = #Green : Couleur(4) = #Blue : Couleur(5) = #Yellow : Couleur(6) = #Magenta 
RandomizeArray(Couleur(),1,6)
version$ = " 5"+ Space(30)
TitreW$ = " YAHTZEE - Y A M S "
chemin$ = ""
SonActif = 0
fon1$ = "courier new normal" : fon2$ = "Modern normal"
If #PB_Compiler_Version => 630  ;## Réglages CreateImage() ########
  Cube_alpha  = 255 
Else ; mettre à zero "Cube_alpha" pour version inferieur à PB 6.30
  Cube_alpha  = 0 
EndIf
bcol = RGBA(173, 173, 173, 0)  ; couleur selection boutons
numero = 5                     ; Mode 5 Dés
Joueur = 1
Cube_Size = 105 
Cube_Points_r = Cube_Size / 10 
For i = 0 To 6
  CreateImage(i, Cube_Size, Cube_Size, 32 , RGBA(255, 255, 255, Cube_alpha))
Next i
For i = 21 To 26
  CreateImage(21, Cube_Size, Cube_Size, 32 , RGBA(255, 255, 255, 30))
Next i
CreateImage(11, 15, 15, 24 , Couleur(1)):CreateImage(12, 15, 15, 24 , Couleur(2)):CreateImage(13, 15, 15, 24 , Couleur(3)):CreateImage(14, 15, 15, 24 , Couleur(4)):CreateImage(15, 15, 15, 24 , Couleur(5)):CreateImage(16, 15, 15, 24 , Couleur(6))
CreateImage(21, 50, 20, 24 , Couleur(1)):CreateImage(22, 50, 20, 24 , Couleur(2)):CreateImage(23, 50, 20, 24 , Couleur(3)):CreateImage(24, 50, 20, 24 , Couleur(4)):CreateImage(25, 50, 20, 24 , Couleur(5)):CreateImage(26, 50, 20, 24 , Couleur(6))
XPosition(1) =  10:XPosition(2) = 130:XPosition(3) = 250:XPosition(4) = 370:XPosition(5) = 490:XPosition(6) = 610
Procedure carre(col, xb)   ; affiche carre autour du bouton selecte
  StartDrawing(WindowOutput(#Window_Des)) 
  LineXY(xb + 7 , 0 + 7 , xb + Cube_Size + 17, 0 + 7 , col):  LineXY(xb + 7 , 1 + 7 , xb + Cube_Size + 17, 1 + 7 , col)
  LineXY(xb + 7 , 2 + 7 , xb + Cube_Size + 17, 2 + 7 , col):  LineXY(xb + 7 , 3 + 7 , xb + Cube_Size + 17, 3 + 7 , col)
  ;ligne bas
  LineXY(xb + 1 + 7, Cube_Size-3 + 18, xb + Cube_Size + 17, Cube_Size-3 + 18, col)
  LineXY(xb + 1 + 7, Cube_Size-2 + 18, xb + Cube_Size + 17, Cube_Size-2 + 18, col)
  LineXY(xb + 1 + 7, Cube_Size-1 + 18, xb + Cube_Size + 17, Cube_Size-1 + 18, col)
  LineXY(xb + 1 + 7, Cube_Size   + 18, xb + Cube_Size + 17, Cube_Size   + 18, col)
  ;ligne gauche
  LineXY(xb + 3 + 7, 7, xb +  3 + 7, Cube_Size + 17 , col) 
  LineXY(xb + 2 + 7, 7, xb +  2 + 7, Cube_Size + 17 , col)
  LineXY(xb + 1 + 7, 7, xb +  1 + 7, Cube_Size + 17 , col)
  LineXY(xb + 0 + 7, 7, xb +  0 + 7, Cube_Size + 17 , col)
  ;ligne droite
  LineXY(xb + Cube_Size-3 + 17 , 7, xb + Cube_Size-3 + 17, Cube_Size + 17 , col)
  LineXY(xb + Cube_Size-2 + 17 , 7, xb + Cube_Size-2 + 17, Cube_Size + 17 , col)
  LineXY(xb + Cube_Size-1 + 17 , 7, xb + Cube_Size-1 + 17, Cube_Size + 17 , col)
  LineXY(xb + Cube_Size   + 17 , 7, xb + Cube_Size   + 17, Cube_Size + 17 , col)
  StopDrawing()
EndProcedure
Procedure ButtonTextColor(ni, txi, tyi, xt, yt, T$, Cf, Cb, Ht, Styl, fon$)  
  If IsImage(ni):FreeImage(ni):EndIf
  If CreateImage(ni, txi, tyi, 32, Cb)
    FtArial = LoadFont(1, fon$, Ht, Styl)
    StartDrawing(ImageOutput(ni))
    DrawingFont(FtArial)
    DrawingMode(1)
    DrawText(xt+1, yt-1, T$, RGBA(0, 0, 0, Cube_alpha), cb)
    DrawText(xt, yt, T$, Cf, Cb)
    DrawingFont(GetStockObject_(#SYSTEM_FONT))
    StopDrawing()
  EndIf
EndProcedure 
Procedure Col_Joueur(Jco)
  If Jco = 1 : Jcolor = Couleur(1) : EndIf:If Jco = 2 : Jcolor = Couleur(2) : EndIf:If Jco = 3 : Jcolor = Couleur(3) : EndIf:If Jco = 4 : Jcolor = Couleur(4) : EndIf:If Jco = 5 : Jcolor = Couleur(5) : EndIf:  If Jco = 6 : Jcolor = Couleur(6) : EndIf:SetWindowColor(#Window_Des, Jcolor)
EndProcedure
Procedure CheckBox_0()
  ; reactive en gris le bouton valide return avant les 3 coup de des
  ButtonTextColor(7, 350, 34, 56, 11, Language$(9), RGBA(0, 0, 0, 0), RGBA(220, 220, 220, 128), 8, 0, fon2$)
  ButtonImageGadget(17, 350, 145, Cube_Size + 145, 30, ImageID(7), #PB_Button_Toggle)
  For i = 1 To 6 : SetGadgetState(20 + i, 0) : Des_Fixe(i) = 0: Next i
  For i = 1 To 6
    ButtonImageGadget(i, XPosition(i), 10, Cube_Size + 5, Cube_Size + 5, ImageID(0), #PB_Image_Border | #PB_Button_Toggle)
  Next i
EndProcedure
Procedure StateMenu(a)
  If a = 0 : For i = 1 To  6 : SetMenuItemState(0, i, 0) : Next i : EndIf
  If a = 1 : For i = 11 To 16 : SetMenuItemState(0, i, 0) : Next i : EndIf
EndProcedure
Procedure NewMenuIcon(Nimg.l, co.l) 
  CreateImage(Nimg, 16, 16, 32) 
  StartDrawing(ImageOutput(Nimg))
  DrawingMode(#PB_2DDrawing_Default )
  Box(0, 0, 15, 15, co) 
  DrawingMode(#PB_2DDrawing_Outlined )
  Box(0, 0, 16, 16, RGBA(127, 127, 127, 255))
  StopDrawing() 
  ProcedureReturn ImageID(Nimg) 
EndProcedure  
Procedure efface_des(ne)
  StartDrawing(ImageOutput(ne))  
  DrawingMode(0) 
  Box(0, 0, Cube_Size - 1, Cube_Size - 1, RGB(255, 255, 255)) 
  StopDrawing()  
  SetGadgetState(ne, ImageID(ne))
  SetWindowTitle(0, TitreW$ + version$ + Space(15) + Language$(7) + Str(Joueur))
  ButtonTextColor(8, 350, 34, 110, 11, Language$(8), RGBA(0, 0, 0, 0), RGBA(220, 250, 190, 100), 8, 0, fon2$)
  ButtonImageGadget(15, XPosition(1), 145, Cube_Size + 131, 30, ImageID(8), #PB_Button_Toggle)
  ; affiche gains
  ButtonTextColor(105, 92, 28, -10, 6, "", RGBA(255, 255, 255, Cube_alpha), RGBA(255, 255, 255, Cube_alpha), 12, 0, fon1$)
  ButtonImageGadget(105, 248, 146, 100, 28, ImageID(105))
EndProcedure
Procedure test_select()
  block = 0 : For i = 1 To 5 : If GetGadgetState(20 + i) = 0 : block + 1 : EndIf : Next i
  If  block = 5 : score$ = Language$(35) : Total2$ = "" : EndIf
EndProcedure
Procedure vocal(chemin$, dicte$,tmp)   ; donner de la voix aux resultats
  
  ;precedure en attente de fichiers son
  ;#####################################################################################  ;Utiliza este sitio para crear letras durante el juego "https://soundoftext.com/)
  ;copiar los archivos paroles.OGG en el directorio del Yahtzee
  ;Nutze diese Website, um während des Spiels Songtexte zu erstellen "https://soundoftext.com/)
  ;Kopieren Sie die Dateien paroles.OGG in das Yahtzee-Verzeichnis
  ;Use this site to create lyrics during the game "https://soundoftext.com/)
  ;copy the paroles.OGG files to the Yahtzee directory
  ;Utiliser ce site pour creer des paroles pendant le jeu "https://soundoftext.com/)
  ;copier les fichiers paroles.OGG dans repertoire du Yahtzee
  ;Default file names example : 10.ogg, 15.ogg, 20.ogg, 25.ogg, 30.ogg, 40.ogg, 50.ogg
  ;#####################################################################################
  If InitSound()                       ; Initialisation des Sons
    UseOGGSoundDecoder()               ; Utilisation des fichiers ogg
    If LoadSound(0, #PB_Compiler_Home + chemin$ + dicte$)
      PlaySound(0, #PB_Sound_Loop):  Delay(tmp) : FreeSound(0)                     ; Le son est libéré
    EndIf
  EndIf 
EndProcedure
Procedure range()
  For i = 1 To 5 : triage$(i) = Mid(Total2$,i ,1) : Next i 
  SortArray(triage$(), #PB_Sort_Ascending)
  Total2$ = triage$(1) + triage$(2) + triage$(3) + triage$(4) + triage$(5)
EndProcedure
Procedure Cherche2paires()
  Range(): uu = 0
  For ii = 1 To 6 
    If CountString(total2$,Paire$(ii)) : uu = uu + 1 : If uu = 2 : Score$ = Language$(36)
        Else : Score$ = "" : EndIf : EndIf 
  Next ii
EndProcedure
Procedure Cherche_Petite_Suite()
  ;Cherche_Petite_Suite 
  Range() : If Left(total2$,4) = "1234"    : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,4) = "2345"    : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,4) = "3456"    : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "11234"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "12234"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "12334"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "22345"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "23345"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "23445"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "33456"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "34456"   : Score$ = Language$(32) : EndIf 
  Range() : If Left(total2$,5) = "34556"   : Score$ = Language$(32) : EndIf
  Range() : If Left(total2$,5) = "13456"   : Score$ = Language$(32) : EndIf
EndProcedure
Procedure Combinaisons()
  
  ;To do this, I set these two minor options To 10 points For pairs And 15 points 
  ;For minor straights of 4 dice; do not change the order of these point values, 
  ;As doing so could disrupt the display of the results.
  ;Recherche des repetitions de chiffres dans Total2 trié en croissance
  Calcul1$ = Str(CountString(Total2$, "1"))
  Calcul2$ = Str(CountString(Total2$, "2"))   
  Calcul3$ = Str(CountString(Total2$, "3"))
  Calcul4$ = Str(CountString(Total2$, "4"))
  Calcul5$ = Str(CountString(Total2$, "5"))
  Calcul6$ = Str(CountString(Total2$, "6"))
  ; Total3 = Second Rangement Croissant
  Total3$ = Calcul1$ + Calcul2$ + Calcul3$ + Calcul4$ + Calcul5$ + Calcul6$
  ; Recherche des Combinaisons selon les règles du YAMS standard
  If ToPair = 1 : Cherche2paires() : EndIf
  If CountString(Total3$, "3")     = #True : Score$ = Language$(29) : EndIf 
  If CountString(Total3$, "3")     = #True
  If CountString(Total3$, "2")     = #True : Score$ = Language$(30) : EndIf : EndIf
  If CountString(Total3$, "4")     = #True : Score$ = Language$(31) : EndIf
  If CountString(Total3$, "5")     = #True : Score$ = Language$(34) : EndIf
  If Pt_Suite = 1 : Cherche_Petite_Suite() : EndIf
  ;grande suite
  range() : If Left(total2$,5) = "12345"   : Score$ = Language$(33) : EndIf
  range() : If Left(total2$,5) = "23456"   : Score$ = Language$(33) : EndIf
  If score$ = "" : score$ = Language$(35) : EndIf
  ; change couleur passe return en vert
  If score$ = Language$(30) Or score$ = Language$(33) ;Or score$ = Language$(29) Or score$ = Language$(31)
    ButtonTextColor(7, 350, 34, 56, 11, Language$(9), RGBA(0, 0, 0, 0), RGBA(135, 235, 125, 128), 8, 0, fon2$)
    ButtonImageGadget(17, 350, 145, Cube_Size + 145, 30, ImageID(7), #PB_Button_Toggle)
  Else
    ButtonTextColor(7, 350, 34, 56, 11, Language$(9), RGBA(0, 0, 0, 0), RGBA(220, 220, 220, 128), 8, 0, fon2$)
    ButtonImageGadget(17, 350, 145, Cube_Size + 145, 30, ImageID(7), #PB_Button_Toggle) 
  EndIf
EndProcedure
Procedure Score_des_Joueur_options(ns, Joueur) 
  If Lancer <= 3
    ; copie Resultat en Resultat2 pour le tri et garde position origine DES dans Resultat
    CopyArray(Resultat(), Resultat2()) 
    Total1$ = "" : Total2$ = ""
    For i = 1 To  ns : Total1$ = Total1$ + Str(Resultat2(i)) : Next i ; stock Resultat2 en Total1
    SortArray(Resultat2(), #PB_Sort_Ascending  , 1 , ns)
    For i = 1 To  ns : Total2$ = Total2$ + Str(Resultat2(i)) : Next i ; stock Resultat2 tri en Total2
    Combinaisons()
    SetWindowTitle(0, TitreW$ + version$ + Space(15) + Language$(7) + Str(Joueur)+Space(10) + Score$)
    ;##############################################################################################
    ;Creer des son.OGG avec des noms de scores
    ;Activer la Procedure vocal(chemin$, dicte$,tmp)
    If lancer = 3 And Score$ = "" : Score$ = Language$(35)       : EndIf 
    If SonActif = 1 ; score sonor
      If score$ = Language$(36)  : vocal(chemin$, "10.ogg", 400) : EndIf : If score$ = Language$(29)  : vocal(chemin$, "20.ogg", 400) : EndIf: If score$ = Language$(30)  : vocal(chemin$, "25.ogg", 700) : EndIf: If score$ = Language$(31)  : vocal(chemin$, "30.ogg", 400) : EndIf: If score$ = Language$(32)  : vocal(chemin$, "15.ogg", 400) : EndIf: If score$ = Language$(33)  : vocal(chemin$, "40.ogg", 400) : EndIf
      If Lancer = 3 : If score$ = Language$(34)  : vocal(chemin$, "50.ogg", 400) : EndIf : EndIf
    EndIf
  EndIf
  If score$ = Language$(34)  : Lancer = 3  : EndIf ; valide le resultat
  SetWindowTitle(0, TitreW$ + version$ + Space(15) + Language$(7) + Str(Joueur)+Space(10) + Score$)
  ButtonTextColor(105, 92, 28, -10, 6, "  " + Score$, Jcolor, RGBA(255, 255, 255, Cube_alpha), 12, 0, fon1$)
  ButtonImageGadget(105, 248, 145, 100, 30, ImageID(105))
EndProcedure
Procedure Score_des_Joueur_List(ns, Joueur)
  If Lancer <= 3
    ; copie Resultat en Resultat2 pour le tri et garde position origine DES dans Resultat
    CopyArray(Resultat(), Resultat2()) 
    Total1$ = "" : Total2$ = ""
    For i = 1 To  ns : Total1$ = Total1$ + Str(Resultat2(i)) : Next i ; stock Resultat2 en Total1
    SortArray(Resultat2(), #PB_Sort_Ascending  , 1 , ns)
    For i = 1 To  ns : Total2$ = Total2$ + Str(Resultat2(i)) : Next i ; stock Resultat2 tri en Total2
    Combinaisons()
    ScoreJoueur(Joueur) = ScoreJoueur(Joueur) + Val(Right(Score$, 2))
    TourJoueur(Joueur) = TourJoueur(Joueur) + 1
    If TourJoueur(Joueur) > 0
      ScoreChance(Joueur) =  ((scoreJoueur(Joueur) * 2) / TourJoueur(Joueur)) ; %
    EndIf
    AddGadgetItem (40, -1, " n°"+ Str(Joueur)+Chr(10)+Str(ScoreJoueur(Joueur))+Chr(10)+LTrim(Score$)+Chr(10)+Str(TourJoueur(Joueur))+Chr(10)+Str(ScoreChance(Joueur))+"%"+Chr(10)+Total1$, ImageID(Joueur+10)) 
    ;Affiche le dernier coup visible avec scoll ascenseur mis en bas
    SetGadgetState(40, CountGadgetItems(40)-1) 
    AddElement(Ranglist())
    Ranglist()\Num = Joueur
    Ranglist()\Tours = TourJoueur(Joueur)
    Ranglist()\Points = ScoreJoueur(Joueur) 
    SortStructuredList(Ranglist(), #PB_Sort_Descending, OffsetOf(yams\tours), TypeOf(yams\tours))
    SortStructuredList(Ranglist(), #PB_Sort_Descending, OffsetOf(yams\Points), TypeOf(yams\Points))
    ClearGadgetItems(42)
    For i = 1 To 6          
      Filtre(i) = 1
    Next i 
    ForEach  Ranglist()
      If Filtre(Ranglist()\Num) = 1      ; Filtre 
        Filtre(Ranglist()\Num) = 0       ; Filtre pas plus de 6 résultats dans le ListIconGadget()
        AddGadgetItem(42, -1, "" +Ranglist()\Num+Chr(10)+""+Ranglist()\Tours+Chr(10)+""+Ranglist()\Points, ImageID(Ranglist()\Num + 10))  
        Lancer = 4
      EndIf
    Next
  EndIf
  If Lancer = 4 
    ButtonTextColor(8,350, 34, 66, 11, Language$(10) + Score$ + "  -->", RGBA(0, 0, 0, 0), RGBA(220, 165, 195, 200), 8, 0, fon2$)
    ButtonImageGadget(15,XPosition(1), 145, Cube_Size + 131, 30, ImageID(8), #PB_Button_Toggle)
    ButtonTextColor(7, 350, 34, 56, 11, Language$(9), RGBA(0, 0, 0, 0), RGBA(220, 220, 220, 128), 8, 0, fon2$)
    ButtonImageGadget(17, 350, 145, Cube_Size + 145, 30, ImageID(7), #PB_Button_Toggle)
    Score$ = ""
    For i = 0 To 600 Step 120 ; efface cadres cubes selectes
      carre(jcolor, i)
      SetGadgetState(20 + ((i/120)+1), 0)
    Next i
  EndIf 
EndProcedure   
Procedure DrawCube(numero, Nr.l) 
  ;Author Procedure : NicTheQuick
  Protected a.l, x.l, y.l, drhx.l, drhy.l 
  If Nr < 0 And Nr > 6 : ProcedureReturn #False : EndIf 
  If numero > 0 
    Restore Cube_Pos 
    a = Nr * (Nr - 1) / 2 
    While a : Read.l x : Read.l y : a - 1 : Wend 
    StartDrawing(ImageOutput(numero))  
    DrawingMode(0)
    Box(0, 0, Cube_Size - 1, Cube_Size - 1, RGB(255, 255, 255)) 
    drhx = Random(1) 
    drhy = Random(1) 
    For a = 1 To Nr 
      Read.l x : If drhx : x = 100 - x : EndIf 
      Read.l y : If drhy : y = 100 - y : EndIf 
      x = x * Cube_Size / 100 
      y = y * Cube_Size / 100 
      If ColorDes = 1  ; Points de Dés au couleur du jour
        Circle(x + 2, y - 1, Cube_Points_r, RGB(110, 110, 110)) ;couleur de l'ombre
        Circle(x, y, Cube_Points_r, $000000)
      Else
        Circle(x + 2, y - 1, Cube_Points_r, RGB(80, 80, 80)) ;couleur de l'ombre
        Circle(x, y, Cube_Points_r, Jcolor) 
      EndIf
    Next 
    StopDrawing() 
    ProcedureReturn numero 
  Else 
    ProcedureReturn #False 
  EndIf 
  DataSection 
    Cube_Pos: 
    Data.l 50, 50 
    Data.l 25, 25, 75, 75 
    Data.l 25, 25, 50, 50, 75, 75 
    Data.l 25, 25, 75, 25, 25, 75, 75, 75 
    Data.l 25, 25, 75, 25, 50, 50, 25, 75, 75, 75 
    Data.l 25, 25, 75, 25, 25, 50, 75, 50, 25, 75, 75, 75 
  EndDataSection 
EndProcedure 
Procedure des(numero)
  If numero = 1
    If GetGadgetState(20 + numero) = 0
      Resultat(numero) = Random(5) + 1
      DrawCube(numero, Resultat(numero)) 
      ButtonImageGadget(numero, XPosition(numero), 10, Cube_Size + 5, Cube_Size + 5, ImageID(numero), #PB_Image_Border | #PB_Button_Toggle)
      SetGadgetState(numero, ImageID(numero)) 
    EndIf
    total$ = Str(Resultat(1))
  EndIf
  If numero = 2
    If GetGadgetState(20 + numero) = 0
      Resultat(numero) = Random(5) + 1
      DrawCube(numero, Resultat(numero)) 
      ButtonImageGadget(numero, XPosition(numero), 10, Cube_Size + 5, Cube_Size + 5, ImageID(numero), #PB_Image_Border | #PB_Button_Toggle)
      SetGadgetState(numero, ImageID(numero))
    EndIf
    total$ = Str(Resultat(1) + Resultat(2))
  EndIf
  If numero = 3
    If GetGadgetState(20 + numero) = 0
      Resultat(numero) = Random(5) + 1
      DrawCube(numero, Resultat(numero))  
      ButtonImageGadget(numero, XPosition(numero), 10, Cube_Size + 5, Cube_Size + 5, ImageID(numero), #PB_Image_Border | #PB_Button_Toggle)
      SetGadgetState(numero, ImageID(numero)) 
    EndIf
    total$ = Str(Resultat(1) + Resultat(2) + Resultat(3))
  EndIf
  If numero = 4
    If GetGadgetState(20 + numero) = 0
      Resultat(numero) = Random(5) + 1 
      DrawCube(numero, Resultat(numero))  
      ButtonImageGadget(numero, XPosition(numero), 10, Cube_Size + 5, Cube_Size + 5, ImageID(numero), #PB_Image_Border | #PB_Button_Toggle)
      SetGadgetState(numero, ImageID(numero)) 
    EndIf
    total$ = Str(Resultat(1) + Resultat(2) + Resultat(3) + Resultat(4))
  EndIf
  If numero = 5
    If GetGadgetState(20 + numero) = 0
      Resultat(numero) = Random(5) + 1
      DrawCube(numero, Resultat(numero)) 
      ButtonImageGadget(numero, XPosition(numero), 10, Cube_Size + 5, Cube_Size + 5, ImageID(numero), #PB_Image_Border | #PB_Button_Toggle)
      SetGadgetState(numero, ImageID(numero))
    EndIf
    total$ = Str(Resultat(1) + Resultat(2) + Resultat(3) + Resultat(4) + Resultat(5))
  EndIf
EndProcedure
Procedure Partie_Lancer(n)
  If Lancer <= 3 
    For i =1 To 5 : If Des_Fixe(i) = 0 : efface_des(i) : EndIf : Next i
    For i = 1 To n : If Des_Fixe(i) = 0 : des(i) : EndIf :  Next i   
    SetWindowTitle(0, TitreW$ + version$ + Space(15) + Language$(7) + Str(Joueur))
    StateMenu(0) : SetMenuItemState(0, 5, GetMenuItemState(0, 5))
    ; CacheBouton() : HideGadget(15, #False) 
    Total = Resultat(1) + Resultat(2) + Resultat(3) + Resultat(4) + Resultat(5)
    If Lancer = 1
      ButtonTextColor(8,350, 34, 100, 11, Language$(11), RGBA(0, 0, 0, 0), RGBA(220, 250, 190, 100), 8, 0, fon2$)
      ButtonImageGadget(15,XPosition(1), 145, Cube_Size + 131, 30, ImageID(8), #PB_Button_Toggle)
      Score_des_Joueur_options(n, Joueur) : test_select()
    EndIf
    If Lancer = 2 
      ButtonTextColor(8,350, 34, 100, 11, Language$(12), RGBA(0, 0, 0, 0), RGBA(220, 250, 190, 100), 8, 0, fon2$)
      ButtonImageGadget(15,XPosition(1), 145, Cube_Size + 131, 30, ImageID(8), #PB_Button_Toggle)
      Score_des_Joueur_options(n, Joueur) : test_select()
    EndIf
    If Lancer = 3 
      ButtonTextColor(8,350, 34, 100, 11, Language$(13), RGBA(0, 0, 0, 0), RGBA(220, 250, 190, 100), 8, 0, fon2$)
      ButtonImageGadget(15,XPosition(1), 145, Cube_Size + 131, 30, ImageID(8), #PB_Button_Toggle)
      Score_des_Joueur_options(n, Joueur) : test_select()
      Score_des_Joueur_List(n, Joueur)
    EndIf
    Lancer = Lancer + 1
  EndIf
EndProcedure
Procedure Main_Joueur(main)
  If GetGadgetState(main) = 1
    carre(Jcolor, 120 * (main - 1))
    Des_Fixe(main) = 0
    SetGadgetState(20 + main, 0)
    SetGadgetState(main, ImageID(main)) 
  Else
    carre(bcol, 120 * (main - 1))
    Des_Fixe(main) = 1
    SetGadgetState(20 + main, 1) 
  EndIf 
EndProcedure
Procedure AfficheBoutons()
  ;// Sélection du Joueur listIcone
  SetMenuItemBitmaps_(MenuID(0), 11  , #MF_BYCOMMAND, NewMenuIcon(11, Couleur(1)), 0) 
  SetMenuItemBitmaps_(MenuID(0), 12  , #MF_BYCOMMAND, NewMenuIcon(12, Couleur(2)), 0) 
  SetMenuItemBitmaps_(MenuID(0), 13  , #MF_BYCOMMAND, NewMenuIcon(13, Couleur(3)), 0) 
  SetMenuItemBitmaps_(MenuID(0), 14  , #MF_BYCOMMAND, NewMenuIcon(14, Couleur(4)), 0) 
  SetMenuItemBitmaps_(MenuID(0), 15  , #MF_BYCOMMAND, NewMenuIcon(15, Couleur(5)), 0) 
  SetMenuItemBitmaps_(MenuID(0), 16  , #MF_BYCOMMAND, NewMenuIcon(16, Couleur(6)), 0)
  ;// Sélection du Joueur
  ButtonTextColor(51, 180, 40, 47, 11, Language$(1), Couleur(1), RGBA(220, 220, 220, Cube_alpha), 12, #PB_Font_Bold, fon1$)
  ButtonImageGadget(51, 10, 333, 90, 34, ImageID(51), #PB_Button_Toggle):
  ButtonTextColor(52, 180, 40, 47, 11, Language$(2), Couleur(2), RGBA(220, 220, 220, Cube_alpha), 12, #PB_Font_Bold, fon1$)
  ButtonImageGadget(52, 109, 333, 90, 34, ImageID(52), #PB_Button_Toggle)
  ButtonTextColor(53, 180, 40, 47, 11, Language$(3), Couleur(3), RGBA(220, 220, 220, Cube_alpha), 12, #PB_Font_Bold, fon1$)
  ButtonImageGadget(53, 209, 333, 90, 34, ImageID(53), #PB_Button_Toggle)
  ButtonTextColor(54, 180, 40, 47, 11, Language$(4), Couleur(4), RGBA(220, 220, 220, Cube_alpha), 12, #PB_Font_Bold, fon1$)
  ButtonImageGadget(54, 309, 333, 90, 34, ImageID(54), #PB_Button_Toggle)
  ButtonTextColor(55, 180, 40, 47, 11, Language$(5), Couleur(5), RGBA(220, 220, 220, Cube_alpha), 12, #PB_Font_Bold, fon1$)
  ButtonImageGadget(55, 409, 333, 90, 34, ImageID(55), #PB_Button_Toggle)
  ButtonTextColor(56, 180, 40, 47, 11, Language$(6), Couleur(6), RGBA(220, 220, 220, Cube_alpha), 12, #PB_Font_Bold, fon1$)
  ButtonImageGadget(56, 509, 333, 90, 34, ImageID(56), #PB_Button_Toggle)
  ButtonTextColor(105, 92, 28, -10, 6, "", RGBA(255, 255, 255, Cube_alpha), RGBA(255, 255, 255, Cube_alpha), 12, 0, fon1$)
  ButtonImageGadget(105, 248, 145, 100, 30, ImageID(105))
EndProcedure
Procedure Reset_Efface_Tout() 
  ; Efface les toutes parties et remise zero des scores
  RandomizeArray(Couleur(),1,6)
  ClearGadgetItems(40) : ClearGadgetItems(42)
  For i = 1 To 6 
    Resultat(i) = 0 : Resultat2(i) = 0 : ScoreJoueur(i) = 0 : ScoreChance(i) = 0 : TourJoueur(i) = 0
  Next i
  For i = 1 To 5       ; Effece les dés
    efface_des(i)
    ButtonImageGadget(i, XPosition(i), 10, Cube_Size + 5, Cube_Size + 5, ImageID(i), #PB_Image_Border | #PB_Button_Toggle)
    SetGadgetState(i, 1)
  Next i
  Total1$ = "" : Total2$ = ""
  ForEach  Ranglist()
    Ranglist()\Num = 0
    Ranglist()\Tours = 0
    Ranglist()\Points = 0
  Next
  For i = 0 To 600 Step 120 ; Efface cadres cubes selectes
    carre(jcolor, i)
  Next i
  Calcul1$ = "": Calcul2$ = "": Calcul3$ = "": Calcul4$ = "": Calcul5$ = "": Calcul6$ = ""
  CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 11, GetMenuItemState(0, 11)!1) : Col_Joueur(1) : Joueur = 1
  For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
  AfficheBoutons()
EndProcedure 
If OpenWindow(1, 0, 0, 220, 260, "YAHTZEE -  Kernadec  - YAM'S", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StickyWindow(1,#True) 
  ButtonGadget(0, 10,  10, 200, 30, "Français"): ButtonGadget(1, 10,  50, 200, 30, "Anglais"): ButtonGadget(2, 10,  90, 200, 30, "Allemand"): ButtonGadget(3, 10, 130, 200, 30, "Espagnol")
  CheckBoxGadget(4, 8 , 190, 205, 12, "Ptsuite, Sequen4, Fortset4, Esquale4") 
  CheckBoxGadget(5, 8 , 207, 205, 12, "2 Paires, 2 pairs, 2 Paar, 2 Pares") 
  CheckBoxGadget(6, 8 , 224, 205, 12, "Point = Voix, Voice, Stimme, Voz") 
  GadgetToolTip(6, "Valeur phonétique , Phonetic Value, Lautwert, Valor fonético")
  TextGadget(7, 86, 170,45,20,"Options")
  TextGadget(8, 10, 242,220,20,"       version " + Left(version$,2) + " -  aout MMXXVI")
  Repeat
    Event = WaitWindowEvent()
    Select Event
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0 : lg = 1  :Break
          Case 1 : lg = 2 : Break
          Case 2 : lg = 3 : Break
          Case 3 : lg = 4 : Break
            Case 4 : If GetGadgetState(4) : SetGadgetState(4,1) : Pt_Suite = 1 : Else : SetGadgetState(4,0) : Pt_Suite = 0  : EndIf
            Case 5 : If GetGadgetState(5) : SetGadgetState(5,1) : Topair = 1   : Else : SetGadgetState(5,0) : Topair = 0 : EndIf
            Case 6 : If GetGadgetState(6) : SetGadgetState(6,1) : SonActif = 1 : Else : SetGadgetState(6,0) : SonActif = 0 : EndIf
        EndSelect 
    EndSelect
  Until Event = #PB_Event_CloseWindow
EndIf
CloseWindow(1)
If lg = 0 : lg = 1 : EndIf
Country(lg)
;// adresse de telechargement de fichier son ogg pour la diction des pointsé 
;// https://drive.google.com/file/d/1d92Pp6kI0QqeRo7SpAL_tIAI3SH-hE-L/view?usp=drive_link
If lg = 1 : Chemin$ = "Yahtzee_French\" : EndIf
If lg = 2 : Chemin$ = "Yahtzee_English\" : EndIf
If lg = 3 : Chemin$ = "Yahtzee_German\" : EndIf
If lg = 4 : Chemin$ = "Yahtzee_Spain\" : EndIf
;sauve langue  traduction en fichiers externes
; CreateFile(0,"Langue"+ Str(lg) + ".txt")
; For u=1 To 35 
;   WriteStringN(0,Language$(u))
; Next u     
; CloseFile(0)
;charge langue ; lecture du fichier de données- read file
; If ReadFile(0,"Langue"+ Str(lg) + ".txt") <> 0 : u = 1          
;   While Eof(0) = 0
;     Language1$(u) = ReadString(0,#PB_Ascii)
;     u + 1
;   Wend  
;   CloseFile(0) 
;EndIf 
If OpenWindow(#Window_Des, 0, 0, Cube_Size + XPosition(numero) + 15, 294 + Cube_Size, TitreW$ + version$, #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
  If CreateMenu(0, WindowID(#Window_Des))    
    MenuTitle(Language$(27))
    MenuItem(11, Language$(1) + Chr(9) + "/ Key 1")  ;Cyan
    MenuItem(12, Language$(2) + Chr(9) + "/ Key 2")  ;Rouge
    MenuItem(13, Language$(3) + Chr(9) + "/ Key 3")  ;Vert 
    MenuItem(14, Language$(4) + Chr(9) + "/ Key 4")  ;Blue 
    MenuItem(15, Language$(5) + Chr(9) + "/ Key 5")  ;Jaune
    MenuItem(16, Language$(6) + Chr(9) + "/ Key 6")  ;violet
    MenuBar()
    MenuItem(17, Language$(15))
    MenuItem(18, Language$(16))
    MenuItem(25, Language$(32))
    MenuItem(26, Language$(36))
    MenuItem(23, Language$(17) + Chr(9) + "/ Ctrl Del")
    MenuItem(24, Language$(18))
    MenuTitle("       " + Language$(14))
  EndIf
  SetMenuItemState(0, 5, GetMenuItemState(0, 5))
  SetMenuItemState(0, 11, GetMenuItemState(0, 11))
  If ColorDes = 0 
    ColorDes = 0 
    SetMenuItemState(0,17,1)
  Else 
    ColorDes = 1 
    SetMenuItemState(0,17,0)
  EndIf
  Paire$(1) = "11":Paire$(2) = "22":Paire$(3) = "33":Paire$(4) = "44":Paire$(5) = "55":Paire$(6) = "66"
  SetMenuItemBitmaps_(MenuID(0), 17  , #MF_BYCOMMAND, NewMenuIcon(17, RGBA(150, 215, 255, 100)), 0)
  SetMenuItemBitmaps_(MenuID(0), 18  , #MF_BYCOMMAND, NewMenuIcon(18, RGBA(150, 215, 255, 100)), 0)
  ButtonTextColor(7, 350, 34, 56, 11, Language$(9), RGBA(0, 0, 0, 0), RGBA(220, 220, 220, 128), 8, 0, fon2$)
  ButtonImageGadget(17, 350, 145, Cube_Size + 145, 30, ImageID(7), #PB_Button_Toggle)
  AfficheBoutons()
  ButtonTextColor(105, 92, 28, -10, 6, "", RGBA(255, 255, 255, Cube_alpha), RGBA(255, 255, 255, Cube_alpha), 12, 0, fon1$)
  ButtonImageGadget(105, 248, 145, 100, 30, ImageID(105))
  ButtonImageGadget(1, XPosition(1), 10, Cube_Size + 5, Cube_Size + 5, ImageID(1), #PB_Image_Border | #PB_Button_Toggle)
  ButtonImageGadget(2, XPosition(2), 10, Cube_Size + 5, Cube_Size + 5, ImageID(2), #PB_Image_Border | #PB_Button_Toggle) 
  ButtonImageGadget(3, XPosition(3), 10, Cube_Size + 5, Cube_Size + 5, ImageID(3), #PB_Image_Border | #PB_Button_Toggle) 
  ButtonImageGadget(4, XPosition(4), 10, Cube_Size + 5, Cube_Size + 5, ImageID(4), #PB_Image_Border | #PB_Button_Toggle) 
  ButtonImageGadget(5, XPosition(5), 10, Cube_Size + 5, Cube_Size + 5, ImageID(5), #PB_Image_Border | #PB_Button_Toggle) 
  ButtonImageGadget(6, XPosition(6), 10, Cube_Size + 5, Cube_Size + 5, ImageID(6), #PB_Image_Border | #PB_Button_Toggle)  
  ButtonTextColor(8,350, 34, 100, 11, Language$(19), RGBA(0, 0, 0, 0), RGBA(220, 250, 190, 100), 8, 0, fon2$)
  ButtonImageGadget(15,XPosition(1), 145, Cube_Size + 131, 30, ImageID(8), #PB_Button_Toggle)
  CheckBoxGadget(21, XPosition(1) + 50 ,  125, 30, 12, "F1") 
  CheckBoxGadget(22, XPosition(2) + 50 ,  125, 30, 12, "F2") 
  CheckBoxGadget(23, XPosition(3) + 50 ,  125, 30, 12, "F3") 
  CheckBoxGadget(24, XPosition(4) + 50 ,  125, 30, 12, "F4") 
  CheckBoxGadget(25, XPosition(5) + 50 ,  125, 30, 12, "F5") 
  CheckBoxGadget(26, XPosition(6) + 50 ,  125, 12, 12, "")   ; non key 
  ListIconGadget(40, 10, 180, WindowWidth(#Window_Des) - 169, 145, Language$(28), 48, #PB_ListIcon_GridLines)
  AddGadgetColumn(40, 1, Language$(20), (WindowWidth(#Window_Des) - 12) / 8)
  AddGadgetColumn(40, 2, Language$(21), (WindowWidth(#Window_Des) - 12) / 7)
  AddGadgetColumn(40, 3, Language$(22), (WindowWidth(#Window_Des) - 12) / 8)
  AddGadgetColumn(40, 4, Language$(23), (WindowWidth(#Window_Des) - 42) / 9)
  AddGadgetColumn(40, 5, Language$(24), (WindowWidth(#Window_Des) - 12) / 8)
  ListIconGadget(42, 450, 180, 150, 145, Language$(28), 49, #PB_ListIcon_GridLines) 
  AddGadgetColumn(42, 1, Language$(25), 49)
  AddGadgetColumn(42, 2, Language$(26), 48)
  Col_Joueur(Joueur)
  SetWindowTitle(0, TitreW$ + version$ + Space(15) + Language$(7) + Str(Joueur))
  Joueur = 1
  If Pt_Suite = 1 : SetMenuItemState(0,25,1) : Else : SetMenuItemState(0,25,0) : EndIf
  If ToPair   = 1 : SetMenuItemState(0,26,1) : Else : SetMenuItemState(0,26,0) : EndIf
  If SonActif = 1 : SetMenuItemState(0,18,1) : Else : SetMenuItemState(0,18,0) : EndIf
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Escape, 27)  ;  27 = Valeur Touche Escape
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Space, 32)   ;  32 = Valeur Touche Espace
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_1, 101)      ; 1 = Valeur Touche 1
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Pad1, 111)   ; 1 = Valeur Touche 1
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_2, 102)      ; 2 = Valeur Touche 2
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Pad2, 112)   ; 2 = Valeur Touche 2
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_3, 103)      ; 3 = Valeur Touche 3
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Pad3, 113)   ; 2 = Valeur Touche 2
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_4, 104)      ; 4 = Valeur Touche 4
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Pad4, 114)   ; 2 = Valeur Touche 2
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_5, 105)      ; 5 = Valeur Touche 5
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Pad5, 115)   ; 2 = Valeur Touche 2
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_6, 106)      ; 6 = Valeur Touche 6
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Pad6, 116)   ; 2 = Valeur Touche 2
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_F1, 121)     ; 2 = Valeur Touche 121
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_F2, 122)     ; 2 = Valeur Touche 122
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_F3, 123)     ; 2 = Valeur Touche 123
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_F4, 124)     ; 2 = Valeur Touche 124
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_F5, 125)     ; 2 = Valeur Touche 125
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Return, 130) ;  32 = Valeur Touche Espace
  AddKeyboardShortcut(#Window_Des, #PB_Shortcut_Control | #PB_Shortcut_Delete, 23)  ; Raccourci clavier control delete)
  Repeat   
    Event = WaitWindowEvent() 
    Select Event 
      Case #PB_Event_Menu      ; Un élément du menu a été sélectionné
        Select EventMenu()     ; On recupère le numéro de cet élement...
          Case 11, 101, 111 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 11, GetMenuItemState(0, 11)!1) : Col_Joueur(1) : Joueur = 1
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 12, 102, 112 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 12, GetMenuItemState(0, 12)!1) : Col_Joueur(2) : Joueur = 2 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 13, 103, 113 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 13, GetMenuItemState(0, 13)!1) : Col_Joueur(3) : Joueur = 3 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 14, 104, 114 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 14, GetMenuItemState(0, 14)!1) : Col_Joueur(4) : Joueur = 4 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 15, 105, 115 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 15, GetMenuItemState(0, 15)!1) : Col_Joueur(5) : Joueur = 5 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 16, 106, 116 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 16, GetMenuItemState(0, 16)!1) : Col_Joueur(6) : Joueur = 6 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1 
          Case 17 
            If ColorDes = 0 : ColorDes = 1 : SetMenuItemState(0,17,0): Else : ColorDes = 0 : SetMenuItemState(0,17,1): EndIf
          Case 18  
            If SonActif = 0 : SonActif = 1 : SetMenuItemState(0,18,1): Else : SonActif = 0 : SetMenuItemState(0,18,0): EndIf
          Case 21 
            If GetGadgetState(21) = 0 : SetGadgetState(21, 1):   EndIf
          Case 23 : Reset_Efface_Tout()  ; efface les toutes parties et remise Z des scores
          Case 24 : End
          Case 25  
            If Pt_Suite = 0 : Pt_Suite = 1 : SetMenuItemState(0,25,1) : Else : Pt_Suite = 0 : SetMenuItemState(0,25,0) : EndIf
          Case 26  
            If Topair = 0   : ToPair = 1   : SetMenuItemState(0,26,1) : Else : ToPair  = 0  : SetMenuItemState(0,26,0) : EndIf
          Case 32 : Partie_Lancer(5)  ;Yams
                                      ; ####################### touche F1 à F5
            Case 121 : If Des_Fixe(1) = 0 : Des_Fixe(1) = 1 : SetGadgetState(21, 1) : carre(bcol, 0)   : Else : Des_Fixe(1) = 0 : SetGadgetState(21, 0) : carre(Jcolor, 0)   : EndIf
            Case 122 : If Des_Fixe(2) = 0 : Des_Fixe(2) = 1 : SetGadgetState(22, 1) : carre(bcol, 120) : Else : Des_Fixe(2) = 0 : SetGadgetState(22, 0) : carre(Jcolor, 120) : EndIf
            Case 123 : If Des_Fixe(3) = 0 : Des_Fixe(3) = 1 : SetGadgetState(23, 1) : carre(bcol, 240) : Else : Des_Fixe(3) = 0 : SetGadgetState(23, 0) : carre(Jcolor, 240) : EndIf
            Case 124 : If Des_Fixe(4) = 0 : Des_Fixe(4) = 1 : SetGadgetState(24, 1) : carre(bcol, 360) : Else : Des_Fixe(4) = 0 : SetGadgetState(24, 0) : carre(Jcolor, 360) : EndIf
            Case 125 : If Des_Fixe(5) = 0 : Des_Fixe(5) = 1 : SetGadgetState(25, 1) : carre(bcol, 480) : Else : Des_Fixe(5) = 0 : SetGadgetState(25, 0) : carre(Jcolor, 480) : EndIf
            ;Return Passer Valider
          Case 130
            If Lancer < = 3: Score_des_Joueur_List(numero, Joueur): EndIf
            Lancer = 4
        EndSelect 
      Case #PB_Event_CloseWindow 
        Break 
      Case #PB_Event_Gadget 
        Select EventGadget() 
          Case 15 : Partie_Lancer(5)  ;YAMs
          Case 17                     ; Passe = termine ce tour
            ButtonTextColor(7, 350, 34, 56, 11, Language$(9), RGBA(0, 0, 0, 0), RGBA(220, 220, 220, 255), 8, 0, fon2$)
            ButtonImageGadget(17, 350, 145, Cube_Size + 145, 30, ImageID(7), #PB_Button_Toggle)
            If Lancer < = 3: Score_des_Joueur_List(numero, Joueur): EndIf
            Lancer = 4
          Case 1 : Main_Joueur(1)
          Case 2 : Main_Joueur(2)
          Case 3 : Main_Joueur(3)
          Case 4 : Main_Joueur(4)
          Case 5 : Main_Joueur(5)
          Case 6 : Main_Joueur(6)
          Case 51 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 11, GetMenuItemState(0, 11)!1) : Col_Joueur(1) : Joueur = 1
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1 
          Case 52 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 12, GetMenuItemState(0, 12)!1) : Col_Joueur(2) : Joueur = 2 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 53 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 13, GetMenuItemState(0, 13)!1) : Col_Joueur(3) : Joueur = 3 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 54 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 14, GetMenuItemState(0, 14)!1) : Col_Joueur(4) : Joueur = 4 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 55 : CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 15, GetMenuItemState(0, 15)!1) : Col_Joueur(5) : Joueur = 5 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1
          Case 56: CheckBox_0() : StateMenu(1) : SetMenuItemState(0, 16, GetMenuItemState(0, 16)!1) : Col_Joueur(6) : Joueur = 6 
            For i = 1 To 6  : efface_des(i) : Next i : Lancer = 1 
        EndSelect 
    EndSelect  
  ForEver 
  CloseWindow(0)
EndIf