Jeu de dames en basic

Bonjour
J'ai une source du jeu de dames en BlitzBasic qui peut jouer en réseau mais la règle du jeu est italienne. Est-il possible de modifier cette source pour jouer avec la règle internationale. Merci de m'indiquer la méthode pour convertir les fichiers en PureBasic.
Cordialement

ça ressemble à du DarkBasic. Il faudrait commencer par convertir ce code dans le langage PureBasic avant d'envisager de le modifier. Il manque aussi les textures, les modèles, etc.

Citation:

---

Envoyé par jdlev

Bonjour
J'ai une source du jeu de dames en BlitzBasic qui peut jouer en réseau mais la règle du jeu est italienne. Est-il possible de modifier cette source pour jouer avec la règle internationale. Merci de m'indiquer la méthode pour convertir les fichiers en PureBasic.
Cordialement

---

Tu as changé ton texte entre temps, du coup ma réponse précédente ne correspond plus à rien.

Pour répondre à ta question, la conversion en PureBasic sera d'autant plus aisée que tu maitriseras PureBasic.

Donc mon conseil est de commencer à te familiariser avec PureBasic.
Si tu connais déjà blitzbasic, ça devrait être une formalité.

Apparemment le code que tu montres est en 3D. Pour t'exercer avec PureBasic tu peux essayer de reproduire le plateau du jeu de dames.
Il y a beaucoup d'exemples 3D dans le répertoire PureBasic/Examples/3D.

N'hésite pas à montrer ton code et poser des questions sur des points précis.

si je prends le début du fichier Pions.bas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Type Pion Field NumPion% Field Couleur% Field PromuDame% End Type   ; Initialisation des pions Dim CasesDamier.Pion(50) For i=1 To 50 CasesDamier(i) = New Pion Next Dim PionsBlancs(19) Dim PionsNoirs(19) Global NbPionsBlancs%=20, NbPionsNoirs%=20 Global texturePionBlanc = LoadTexture ("PionBlanc.jpg") Global texturePionNoir = LoadTexture ("PionNoir.jpg") Global Pion=CreateCylinder(16)

---

la conversion en PureBasic serait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Structure Pion NumPion.i Couleur.i PromuDame.i EndStructure   ; Initialisation des pions Dim CasesDamier.Pion(50) Dim PionsBlancs(19) Dim PionsNoirs(19) Global NbPionsBlancs=20, NbPionsNoirs=20 Global texturePionBlanc = LoadTexture (#PB_Any,"PionBlanc.jpg") Global texturePionNoir = LoadTexture (#PB_Any,"PionNoir.jpg") Global Pion=CreateCylinder(#PB_Any,16, 16) ; dimension à adapter

---

à toi de jouer pour la suite :)

Citation:

---

Envoyé par jdlev

Bonjour
Voici le fichier au format texte pour ceux qui veulent le visualiser. Merci de bien vouloir m'aider à le modifier pour jouer avec la règle internationale.
Cordialement

---