Expression Réguliere : Trouver un full

[Ar-S]

Au fait quel jeu ?

Le jeu du 5000
Je l'ai découvert le week end dernier, c'est excellent (il y a moult variantes des règles sur le net).

Dans les règles ci après : http://www.regles-de-jeux.com/regle-du-5000/
Il y a 6 dès, dans ma version il y en a 5
Une suite peut donc être 12345 ou 23456
Mais le plus fun dans ce jeu sont les pénalités qui ne sont pas décrites dans cette règle, je les ajouterai à ma notice.
On peut facilement passer d'un super score à peau de chagrin et faire suer les autres.
Un full permet de rayer un score adverse, une suite met une pénalité a quelqu'un de son choix (au bout de 3 pénalités le score est rayé et on se retrouve avec celui d'avant).
Si on a main pleine on est obligé de relancer les des et on peut faire un énorme score (ou 0 ^^)... Si on joue et qu'on arrive à un score égale à un concurrent, on lui raye son score..
Bref, de quoi faire des parties super dynamique avec ce jeu mais ça fait pas mal de code au final .

[Ar-S]

Pas mal aussi ça

[case]

allez je suis joueur
petite modif du code de Dob...spock

pour prendre en compte le cas suivant :
("222666")

ou il y a deux possibilité de full mais non trouvé avec le code precedent

22266 ou 22666 sont des fulls même si le dé a 2 brelans

Code : Tout sélectionner

Declare.s  analyse(roll.s)

Debug analyse("222456") ;#False
Debug analyse("222666") ;#True

Procedure.s analyse(Roll.s)
   Protected Flag=0
   For i=1 To 6
      compt=CountString(Roll.s,Str(i))
      Select Compt
         Case 3
         flag+3
         Case 2
         flag+2                    
     EndSelect
     If flag>=5
       ProcedureReturn Roll.s+" <Full trouvé"
     EndIf
   Next i
   ProcedureReturn Roll.s+"<rien trouvé"
EndProcedure
; Epb

[Mesa]

Pour le poker, j'avais mis ces regex de côté mais je ne les ai pas vérifiés.
Essaie le full...

Code : Tout sélectionner

Suite Royale: "(2345A|23456|34567|...|9TJQK|TJQKA)#(\\w)\\1{4}"
Carré:        ".*(\\w)\\1{3}.*#.*"
Full:         "((\\w)\\2\\2(\\w)\\3|(\\w)\\4(\\w)\\5\\5)#.*"
Flush:        ".*#(\\w)\\1{4}"
Suite:        "(2345A|23456|34567|...|9TJQK|TJQKA)#.*"
Brelan:       ".*(\\w)\\1\\1.*#.*"
Double paire: ".*(\\w)\\1.*(\\w)\\2.*#.*"
Paire:        ".*(\\w)\\1.*#.*"

M.