Est-ce difficile de créer un jeu de poker ?

[threedslider]

Hello et bienvenu Miro !

Alors c'est une tâche qui demande de réflexion pour construire un jeu de poker, déjà faut il savoir la règle du jeu ou inventer une mais en plus faut intégrer de la IA (Intelligence Artificielle) si on veut jouer contre ordinateur il doit avoir un comportement du type joueur autonome, c'est à dire faut coder son comportement, simulation/analyse, apprentissage etc... Et coté visuel faut gérer cela aussi Des cartes représentés de manière classique ou original ... C'est une tache qui n'est pas impossible mais cela demande beaucoup de travail par soi même.

Comme ce type qui a codé son jeu nommé Balatro avec Love2D genre Lua scripté pour jeux vidéo et son lien est ça : https://store.steampowered.com/app/2379780/Balatro/ et l'explication du jeu par Gamefromscratch : https://gamefromscratch.com/balatro-mad ... d-that-is/

Voilà bon courage pour ton jeux vidéo

[SPH]

Un jeu de poker, en soit, niveau graphisme, c'est pas dur. Un tapis et des cartes à jouer.
Si je devais coder un tel jeu, je me pencherais sur la (les?) règle du jeu pour l'assimiler totalement. Ensuite, comme le dit threedslider, le plus dur sera de coder l'IA des joueurs.
2 choses encore :

1> j'avais fait un jeu de belote il y a plus de 10 ans. J'ai butté sur l'IA et il n'est pas sorti
2> je t'invite a faire des petits jeux pour te faire la main (par exemple, matte mon petit jeu de reflexion ici : http://puzzle.chez.com )

vala vala

[threedslider]

Oui au niveau graphisme c'est faisable et assez facile et au niveau programmation il faut partir au plus simple pour commencer, un exemple comme je le fais ici le code comme prototype pour te donner une idée de ce que tu peux faire

Voici le code :

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)

Après sa tu peux te perfectionner petit à petit tes besoins pour l'interactivité et le IA plus tard

[SPH]

Pourquoi je ne vois plus le post de Miro ?? Je n'ai que les réponses qu'on lui a faite !

[Marc56]

Pourquoi je ne vois plus le post de Miro ?? Je n'ai que les réponses qu'on lui a faite !

Il a édité son article le 13/05/24 pour y ajouter un lien vers un site de poker en ligne. (grand classique)

[SPH]

Ha ok, je ne savais pas.

[Bmld76]

Bonjour,

Mon premier programme a été un jeu de poker avec l'affichage des carte sur un HP 85 en 1981 ! Je me rappelle que ca n'avait pas été trop dur et la jouabilité était impressionnante. Nostalgie.

Bon courage

[threedslider]

Si parmi vous, vous avez un jeu de carte en open source fait avec PB je serais curieux d'apprendre plus avantage

[SPH]

Si parmi vous, vous avez un jeu de carte en open source fait avec PB je serais curieux d'apprendre plus avantage

Tu pars de trop loin en prog. Exerce toi avec des jeux plus simple (pong, casse briques, space invader, etc)

[threedslider]

Tu pars de trop loin en prog. Exerce toi avec des jeux plus simple (pong, casse briques, space invader, etc)

Non juste un simple jeux de cartes après je peux complexifier mais bon les jeux plus simple sont bien aussi c'est pas ça qui m'interesse le plus

Voilà merci ton conseil.

[venom]

Salut.

Je m'étais amusé à apprendre comment afficher les carte de la dll windows. voici le lien du code commence déjà par réussir a les afficher, les déplacer, faire une animation sur un tapis. Après tu y ajoute les règles etc...






@++

[threedslider]

Super ! Merci beaucoup

[omega]

Salut,

Non, je ne pense pas que ce soit difficile.