Discussion :

[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

[comtois]

ç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.

[comtois]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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