Bonjour à tous, je vous présente à nouveau mon jeu de petit chevaux qui est maintenant fonctionnel, mais qui ne gère pas encore plusieurs chevaux sur le plateau, ni si le joueur à fait un 6, sauf au départ du jeu !
Code : Tout sélectionner
;*************************
;* Jeu de petits chevaux *
;* *
;* par Micoute © 05/2015 *
;*************************
;**************************************************************************************************************************
;* Règle des Petits Chevaux *
;* *
;* Chaque joueur place ses 2 chevaux dans les écuries. Ils lancent le dé chacun son tour et doivent faire 6 pour pouvoir*
;* sortir un cheval et le placer sur la Case départ de sa couleur. Si lors de la partie vous effectuez des 6, cela vous*
;* permet de rejouer immédiatement et d’avancer d'autant de cases que de points marqués par le dé. *
;* *
;* Attention ! Une Case ne peut être occupée que par un seul cheval. Celui qui arrive sur une Case occupée doit*
;* reculer d’autant de points en trop. Si un cheval arrive juste sur une Case occupée, il renvoie le cheval de l’autre*
;* joueur à l’écurie et prend sa place. Celui qui retourne à l’écurie doit alors tout recommencer avec un 6 de départ. *
;* *
;* Comment gagner une partie de petits chevaux : *
;* *
;* Pour gagner une partie de petits chevaux, il faut que le joueur soit le premier à faire le tour complet du jeu avec*
;* tous ses chevaux et arrive à remonter chaque cases numérotées de 1 à 6 avec le nombre juste pour chacun des 2. Enfin*
;* pour terminer, il devra faire de nouveau un 6 pour atteindre la Case centrale du jeu. *
;* *
;* Quand le premier cheval d'une écurie est arrivé sur la case centrale, on peut faire sortir le cheval 2 de la même façon*
;* *
;* Le dé est de la même couleur que l'écurie en cours *
;**************************************************************************************************************************
Structure SP
L.i
H.i
EndStructure
Enumeration Fenetres
#Fenetre
EndEnumeration
Enumeration Sprites
#Pion1
#Pion2
#Pion3
#Pion4
#Pion5
#Sp_De
EndEnumeration
Enumeration Polices
#Police
EndEnumeration
If InitMouse()=0 Or InitKeyboard()=0 Or InitSprite()=0 Or InitSound()=0
MessageRequester ("Erreur", "Ouverture Direct X impossible !", 0)
End
EndIf
UseJPEGImageDecoder()
UsePNGImageDecoder()
LoadFont(#Police, "Arial", 36, #PB_Font_Bold)
Police = FontID(#Police)
ExamineDesktops()
Largeur=DesktopWidth(0)
;1920=largeur d'écran de base pour le développement
Global Coeff.f=Largeur/1920
;1.777777777777778 est le rapport standard HD
Hauteur=Largeur/(1920/1080)
Global Dim SP.SP(4), Dim EcuVerte(1,1), Dim EcuRouge(1,1), Dim EcuBleue(1,1), Dim EcuJaune(1,1) ;les pions + la table
Global Dim CasesRondes(4, 12, 1) ; de 0 à 10
Global Dim CasesNum(4, 5, 1)
Global Dim Pos(48,1)
Global NbreJoueurs$ ; De 2 à 4
Global NbreJoueurs ; De 2 à 4
Global NbreChevaux = 2
Global V1Parti, V2Parti, R1Parti, R2Parti, B1Parti, B2Parti, J1Parti, J2Parti
Global CmptV1, CmptV2, CmptR1, CmptR2, CmptB1, CmptB2, CmptJ1, CmptJ2
Global EtatV,EtatR,EtatB,EtatJ
Global AncPos, PosAct, Diff
Global BtnJeu
Global StrNbreJoueur
Global BtnEcurieVerte
Global BtnEcurieBleue
Global BtnEcurieRouge
Global BtnEcurieJaune
Global BtnLancerDe
Global AfficheDE ; de 1 à 5 plus 0 inutilisée
Global LargeurEcran = 1000*Coeff, HauteurEcran = 1000*Coeff
Global De, Rayon.f = 25*Coeff, X, Y, I,CoulFnd = $696900, Couleur, CoulGrille = $FFFFFF, Vert = $FF00, Rouge = $FF, Bleu = $FF0000, Jaune = $FFFF
Declare ObtenirEtatBoutonBascule(IdGadget)
Macro StockerTailleTableau(Tableau,Numero,Sprite)
SP(Numero)\H = SpriteHeight(Sprite)
SP(Numero)\L = SpriteWidth(Sprite)
EndMacro
Procedure InitialiserPositions()
Protected j = 0
Restore CasesRondesVertes
For i = 1 To 12:Read.i X:Read.i Y:CasesRondes(0, i,0) = X*Coeff:CasesRondes(0, i,1) = Y*Coeff:Pos(i+j, 0) = X+35*Coeff:Pos(i+j, 1) = Y+35*Coeff:Next i
j + i - 1
Restore CasesRondesRouges
For i = 1 To 12:Read.i X:Read.i Y:CasesRondes(1 ,i, 0) = X*Coeff:CasesRondes(1, i, 1) = Y*Coeff:Pos(i+j, 0) = X+35*Coeff:Pos(i+j, 1) = Y+35*Coeff:Next i
j + i - 1
Restore CasesRondesBleues
For i = 1 To 12:Read.i X:Read.i Y:CasesRondes(2, i, 0) = X*Coeff:CasesRondes(2, i, 1) = Y*Coeff:Pos(i+j, 0) = X+35*Coeff:Pos(i+j, 1) = Y+35*Coeff:Next i
j + i - 1
Restore CasesRondesJaunes
For i = 1 To 12:Read.i X:Read.i Y:CasesRondes(3, i, 0) = X*Coeff:CasesRondes(3, i, 1) = Y*Coeff:Pos(i+j, 0) = X+35*Coeff:Pos(i+j, 1) = Y+35*Coeff:Next i
Restore Casecentrale
Read.i X
Read.i Y
CasesNum(0, 0, 0) = X*Coeff:CasesNum(0, 0, 1) = Y*Coeff
CasesNum(1, 0, 0) = X*Coeff:CasesNum(1, 0, 1) = Y*Coeff
CasesNum(2, 0, 0) = X*Coeff:CasesNum(2, 0, 1) = Y*Coeff
CasesNum(3, 0, 0) = X*Coeff:CasesNum(3, 0, 1) = Y*Coeff
Restore CasesNumVertes
For i = 1 To 5:Read.i X:Read.i Y:CasesNum(0, i, 0) = X*Coeff:CasesNum(0, i, 1) = Y*Coeff:Next i
Restore CasesNumRouges
For i = 1 To 5:Read.i X:Read.i Y:CasesNum(1, i, 0) = X*Coeff:CasesNum(1, i, 1) = Y*Coeff:Next i
Restore CasesNumBleues
For i = 1 To 5:Read.i X:Read.i Y:CasesNum(2, i, 0) = X*Coeff:CasesNum(2, i, 1) = Y*Coeff:Next i
Restore CasesNumJaunes
For i = 1 To 5:Read.i X:Read.i Y:CasesNum(3, i, 0) = X*Coeff:CasesNum(3, i, 1) = Y*Coeff:Next i
EcuVerte(0,0)=805*Coeff:EcuVerte(0,1)= 35*Coeff:EcuVerte(1,0)=875*Coeff:EcuVerte(1,1)= 35*Coeff
EcuRouge(0,0)=805*Coeff:EcuRouge(0,1)=875*Coeff:EcuRouge(1,0)=875*Coeff:EcuRouge(1,1)=875*Coeff
EcuBleue(0,0)= 35*Coeff:EcuBleue(0,1)=875*Coeff:EcuBleue(1,0)=105*Coeff:EcuBleue(1,1)=875*Coeff
EcuJaune(0,0)= 35*Coeff:EcuJaune(0,1)= 35*Coeff:EcuJaune(1,0)=105*Coeff:EcuJaune(1,1)= 35*Coeff
EndProcedure
Procedure TraitVertical(X, Y, Hauteur, Epaisseur=1, Couleur=0) ; Trace un trait vertical avec épaisseur et couleur choisies
Protected i = 0
If Epaisseur >0
While i < Epaisseur
Line(x+i, y, 1, Hauteur, Couleur)
i+1
Wend
Else
Line(x, y, 1, Hauteur, Couleur)
EndIf
EndProcedure
Procedure TraitHorizontal(X, Y, Longueur, Epaisseur=1, Couleur=0) ; Trace un trait horizontal avec épaisseur et couleur choisies
Protected i = 0
If Epaisseur > 0
While i < Epaisseur
Line(x, y+i, Longueur, 1, Couleur)
i+1
Wend
Else
Line(x, y, Longueur, 1, Couleur)
EndIf
EndProcedure
Procedure Cadre(x, y, Largeur, Hauteur, Epaisseur=1, CouleurCadre=0); Trace un cadre simple de la couleur choisie
;Ligne supérieure
TraitHorizontal(x, y, Largeur, Epaisseur, CouleurCadre)
;Ligne gauche
TraitVertical(x, y, Hauteur+Epaisseur, Epaisseur, CouleurCadre)
;Ligne droite
TraitVertical(x+Largeur, y, Hauteur+Epaisseur, Epaisseur, CouleurCadre)
;Ligne inférieure
TraitHorizontal(x, y+Hauteur, Largeur, Epaisseur, CouleurCadre)
EndProcedure
Procedure Cercle(x, y, rayon, Epaisseur=1, CouleurCercle=0) ; x et y indique le centre
Protected CouleurFond=Point(x, y)
Circle(x, y, Rayon, CouleurCercle)
Circle(x, y, Rayon-Epaisseur, CouleurFond)
EndProcedure
Procedure Jeter_le_de()
De = Random(6, 1)
ProcedureReturn De
EndProcedure
Macro DepartVert()
StartDrawing(ScreenOutput())
DrawRotatedText(CasesRondes(0, 1, 0)+40*Coeff, CasesRondes(0, 1, 1)+45*Coeff, "D", 180, 0)
StopDrawing()
EndMacro
Macro DepartRouge()
StartDrawing(ScreenOutput())
DrawRotatedText(CasesRondes(1, 1, 0)+24*Coeff, CasesRondes(1, 1, 1)+40*Coeff, "D", 90, 0)
StopDrawing()
EndMacro
Macro DepartBleu()
StartDrawing(ScreenOutput())
DrawRotatedText(CasesRondes(2, 1, 0)+30*Coeff, CasesRondes(2, 1, 1)+30*Coeff, "D", 0, 0)
StopDrawing()
EndMacro
Macro DepartJaune()
StartDrawing(ScreenOutput())
DrawRotatedText(CasesRondes(3, 1, 0)+45*Coeff, CasesRondes(3, 1, 1)+30*Coeff, "D", 270, 0)
StopDrawing()
EndMacro
Macro V1()
DisplayTransparentSprite(#Pion5,420+35*Coeff, 70-35*Coeff, 255, CoulFnd);J12
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, 0) ;V1
Circle(560*Coeff, 70*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V2()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 70-35*Coeff, 255, CoulFnd);V1
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, 0);V1
Circle(560*Coeff, 140*Coeff, Rayon*Coeff, Couleur) ;V2
StopDrawing()
DepartVert()
EndMacro
Macro V3()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 140-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 140*Coeff, Rayon*Coeff, 5*Coeff, 0);V2
Circle(560*Coeff, 210*Coeff, Rayon*Coeff, Couleur) ;V3
StopDrawing()
EndMacro
Macro V4()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 210-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 210*Coeff, Rayon*Coeff, 5*Coeff, 0);V4
Circle(560*Coeff, 280*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V5()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 280-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 280*Coeff, Rayon*Coeff, 5*Coeff, 0);V5
Circle(560*Coeff, 350*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V6()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 350-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 350*Coeff, Rayon*Coeff, 5*Coeff, 0);
Circle(560*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V7()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);V7
Circle(630*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V8()
DisplayTransparentSprite(#Pion5,560+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(630*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);V8
Circle(700*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V9()
DisplayTransparentSprite(#Pion5,630+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(700*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);V9
Circle(770*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V10()
DisplayTransparentSprite(#Pion5,700+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(770*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);V10
Circle(840*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V11()
DisplayTransparentSprite(#Pion5,770+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(840*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);V11
Circle(910*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro V12()
DisplayTransparentSprite(#Pion5,840+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(910*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0) ;V12
Circle(910*Coeff, 490*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R1()
DisplayTransparentSprite(#Pion5,840+35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(910*Coeff, 490*Coeff, Rayon*Coeff, 5*Coeff, 0) ;V12
Circle(910*Coeff, 560*Coeff, Rayon*Coeff, Couleur) ;R1
StopDrawing()
EndMacro
Macro R2()
DisplayTransparentSprite(#Pion5,840+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(910*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);R1
Circle(840*Coeff, 560*Coeff, Rayon*Coeff, Couleur) ;R2
StopDrawing()
DepartRouge()
EndMacro
Macro R3()
DisplayTransparentSprite(#Pion5,770+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(840*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);R3
Circle(770*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R4()
DisplayTransparentSprite(#Pion5,700+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(770*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);R4
Circle(700*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R5()
DisplayTransparentSprite(#Pion5,630+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(700*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);R5
Circle(630*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R6()
DisplayTransparentSprite(#Pion5,560+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(630*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);R6
Circle(560*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R7()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);R7
Circle(560*Coeff, 630*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R8()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 630-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 630*Coeff, Rayon*Coeff, 5*Coeff, 0);R8
Circle(560*Coeff, 700*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R9()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 700-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 700*Coeff, Rayon*Coeff, 5*Coeff, 0);R9
Circle(560*Coeff, 770*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R10()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 770-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 770*Coeff, Rayon*Coeff, 5*Coeff, 0);R10
Circle(560*Coeff, 840*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R11()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 840-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 840*Coeff, Rayon*Coeff, 5*Coeff, 0) ;R11
Circle(560*Coeff, 910*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro R12()
DisplayTransparentSprite(#Pion5,490+35*Coeff, 910-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(560*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, 0);R11
Circle(490*Coeff, 910*Coeff, Rayon*Coeff, Couleur) ;R12
StopDrawing()
EndMacro
Macro B1()
DisplayTransparentSprite(#Pion5,420+35*Coeff, 910-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, 0) ;B1
Circle(420*Coeff, 910*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B2()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 910-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, 0);B2
Circle(420*Coeff, 840*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
DepartBleu()
EndMacro
Macro B3()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 840-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 840*Coeff, Rayon*Coeff, 5*Coeff, 0);B3
Circle(420*Coeff, 770*coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B4()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 770-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 770*coeff, Rayon*Coeff, 5*Coeff, 0);B4
Circle(420*Coeff, 700*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B5()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 700-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 700*Coeff, Rayon*Coeff, 5*Coeff, 0);B5
Circle(420*Coeff, 630*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B6()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 630-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 630*Coeff, Rayon*Coeff, 5*Coeff, 0);B6
Circle(420*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B7()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);B7
Circle(350*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B8()
DisplayTransparentSprite(#Pion5,280+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(350*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);B8
Circle(280*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B9()
DisplayTransparentSprite(#Pion5,210+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(280*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);B9
Circle(210*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B10()
DisplayTransparentSprite(#Pion5,140+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(210*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0);B10
Circle(140*Coeff, 560*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro B11()
DisplayTransparentSprite(#Pion5,70+35*Coeff, 560-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(140*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0) ;B10
Circle(70*Coeff, 560*Coeff, Rayon*Coeff, Couleur) ;B11
StopDrawing()
EndMacro
Macro B12()
DisplayTransparentSprite(#Pion5,35*Coeff, 560-35*Coeff, 255, CoulFnd);B11
StartDrawing(ScreenOutput())
Cercle(70*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0) ;B11
Circle(70*Coeff, 490*Coeff, Rayon*Coeff, Couleur) ;B12
StopDrawing()
EndMacro
Macro J1()
DisplayTransparentSprite(#Pion5,35*Coeff, 490-35*Coeff, 255, CoulFnd);B12
StartDrawing(ScreenOutput())
Cercle(70*Coeff, 490*Coeff, Rayon*Coeff, 5*Coeff, 0);B12
Circle(70*Coeff, 420*Coeff, Rayon*Coeff, Couleur) ;J1
StopDrawing()
EndMacro
Macro J2()
DisplayTransparentSprite(#Pion5,35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
:Cercle(70*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);J1
:Circle(140*Coeff, 420*Coeff, Rayon*Coeff, Couleur) ;J2
StopDrawing()
DepartJaune()
EndMacro
Macro J3()
DisplayTransparentSprite(#Pion5,70+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(140*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);J3
Circle(210*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J4()
DisplayTransparentSprite(#Pion5,140+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(210*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);J4
Circle(280*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J5()
DisplayTransparentSprite(#Pion5,210+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(280*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);J5
Circle(350*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J6()
DisplayTransparentSprite(#Pion5,280+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(350*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);J6
Circle(420*Coeff, 420*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J7()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 420-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0);J7
Circle(420*Coeff, 350*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J8()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 350-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 350*Coeff, Rayon*Coeff, 5*Coeff, 0);J8
Circle(420*Coeff, 280*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J9()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 280-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 280*Coeff, Rayon*Coeff, 5*Coeff, 0);J9
Circle(420*Coeff, 210*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J10()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 210-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 210*Coeff, Rayon*Coeff, 5*Coeff, 0);J10
Circle(420*Coeff, 140*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J11()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 140-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 140*Coeff, Rayon*Coeff, 5*Coeff, 0) ;J11
Circle(420*Coeff, 70*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro J12()
DisplayTransparentSprite(#Pion5,350+35*Coeff, 70-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(420*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, 0)
Circle(490*Coeff, 70*Coeff, Rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro RV1()
DisplayTransparentSprite(#Pion5,420+35*Coeff, 70-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, 0) ;J12
Cercle(490*Coeff, 140*Coeff, Rayon*Coeff, 25*Coeff, Vert)
StopDrawing()
EndMacro
Macro RV2()
DisplayTransparentSprite(#Pion5,420+35*Coeff, 140-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Circle(490*Coeff, 140*Coeff, Rayon*Coeff, vert)
Cercle(490*Coeff, 210*Coeff, Rayon*Coeff, 25*Coeff, vert)
DrawRotatedText(495*Coeff, 145*Coeff, "1", 180, 0)
StopDrawing()
EndMacro
Macro RV3()
DisplayTransparentSprite(#Pion5,420+35*Coeff, 210-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 210*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 215*Coeff, "2", 180, 0)
Cercle(490*Coeff, 280*Coeff, Rayon*Coeff, 25*Coeff, Vert)
StopDrawing()
EndMacro
Macro RV4()
DisplayTransparentSprite(#Pion5,420+35*Coeff, 280-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 280*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 285*Coeff, "3", 180, 0)
Cercle(490*Coeff, 350*Coeff, Rayon*Coeff, 25*Coeff, Vert)
StopDrawing()
EndMacro
Macro RV5()
DisplayTransparentSprite(#Pion5,420+35*Coeff, 350-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 350*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 355*Coeff, "4", 180, 0)
Cercle(490*Coeff, 420*Coeff, Rayon*Coeff, 25*Coeff, Vert)
StopDrawing()
EndMacro
Macro Gagnant()
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 420*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 425*Coeff, "5", 180, 0)
Cercle(560*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(555*Coeff, 495*Coeff, "5", 90, $FFFFFF)
Cercle(490*Coeff, 560*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 555*Coeff, "5", 0, $FFFFFF)
Cercle(420*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(430*Coeff, 485*Coeff, "5", 270, 0)
Circle(490-Coeff, 490*Coeff, rayon*Coeff, Couleur)
StopDrawing()
EndMacro
Macro RR1()
DisplayTransparentSprite(#Pion5,910-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(840*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge)
Cercle(910*Coeff, 490*Coeff, Rayon*Coeff, 5*Coeff, 0)
StopDrawing()
EndMacro
Macro RR2()
DisplayTransparentSprite(#Pion5,840-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(840*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(835*Coeff, 495*Coeff, "1", 90, $FFFFFF)
Cercle(770*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge)
StopDrawing()
EndMacro
Macro RR3()
DisplayTransparentSprite(#Pion5,770-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(770*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(765*Coeff, 495*Coeff, "2", 90, $FFFFFF)
Cercle(700*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge)
StopDrawing()
EndMacro
Macro RR4()
DisplayTransparentSprite(#Pion5,700-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(700*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(695*Coeff, 495*Coeff, "3", 90, $FFFFFF)
Cercle(630*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge)
StopDrawing()
EndMacro
Macro RR5()
DisplayTransparentSprite(#Pion5,630-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(630*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(625*Coeff, 495*Coeff, "4", 90, $FFFFFF)
Cercle(560*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge)
StopDrawing()
EndMacro
Macro RB1()
DisplayTransparentSprite(#Pion5,490-35*Coeff, 910-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 840*Coeff, Rayon*Coeff, 25*Coeff, Bleu)
Cercle(490*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, 0)
StopDrawing()
EndMacro
Macro RB2()
DisplayTransparentSprite(#Pion5,490-35*Coeff, 840-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 840*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 835*Coeff, "1", 0, $FFFFFF)
Cercle(490*Coeff, 770*Coeff, Rayon*Coeff, 25*Coeff, Bleu)
StopDrawing()
EndMacro
Macro RB3()
DisplayTransparentSprite(#Pion5,49-35*Coeff, 770-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 770*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 765*Coeff, "2", 0, $FFFFFF)
Cercle(490*Coeff, 700*Coeff, Rayon*Coeff, 25*Coeff, Bleu)
StopDrawing()
EndMacro
Macro RB4()
DisplayTransparentSprite(#Pion5,490-35*Coeff, 700-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 700*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 695*Coeff, "3", 0, $FFFFFF)
Cercle(490*Coeff, 630*Coeff, Rayon*Coeff, 25*Coeff, Bleu)
StopDrawing()
EndMacro
Macro RB5()
DisplayTransparentSprite(#Pion5,490-35*Coeff, 630-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(490*Coeff, 630*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 625*Coeff, "4", 0, $FFFFFF)
Cercle(490*Coeff, 560*Coeff, Rayon*Coeff, 25*Coeff, Bleu)
StopDrawing()
EndMacro
Macro RJ1()
DisplayTransparentSprite(#Pion5,70-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(140*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune)
Cercle(70*Coeff, 490*Coeff, Rayon*Coeff, 5*Coeff, 0)
StopDrawing()
EndMacro
Macro RJ2()
DisplayTransparentSprite(#Pion5,140-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(140*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(150*Coeff, 485*Coeff, "1", 270, 0)
Cercle(210*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune)
StopDrawing()
EndMacro
Macro RJ3()
DisplayTransparentSprite(#Pion5,210-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(210*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(220*Coeff, 485*Coeff, "2", 270, 0)
Cercle(280*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune)
StopDrawing()
EndMacro
Macro RJ4()
DisplayTransparentSprite(#Pion5,280-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(280*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(290*Coeff, 485*Coeff, "3", 270, 0)
Cercle(350*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune)
StopDrawing()
EndMacro
Macro RJ5()
DisplayTransparentSprite(#Pion5,350-35*Coeff, 490-35*Coeff, 255, CoulFnd)
StartDrawing(ScreenOutput())
Cercle(350*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(360*Coeff, 485*Coeff, "4", 270, 0)
Cercle(420*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune)
StopDrawing()
EndMacro
Procedure DessinerPlateau()
;DrawingFont(#Police2)
;Tracer la grille de jeu
TraitHorizontal(385*Coeff, 35*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 105*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 175*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 245*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 315*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(35*Coeff, 385*Coeff, 910*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(35*Coeff, 455*Coeff, 910*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(35*Coeff, 525*Coeff, 910*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(35*Coeff, 595*Coeff, 915*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 665*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 735*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 805*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 875*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitHorizontal(385*Coeff, 945*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(35*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(105*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(175*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(245*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(315*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(385*Coeff, 35*Coeff, 910*Coeff, 5*Coeff, CoulGrille)
TraitVertical(455*Coeff, 35*Coeff, 910*Coeff, 5*Coeff, CoulGrille)
TraitVertical(525*Coeff, 35*Coeff, 910*Coeff, 5*Coeff, CoulGrille)
TraitVertical(595*Coeff, 35*Coeff, 915*Coeff, 5*Coeff, CoulGrille)
TraitVertical(665*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(735*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(805*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(875*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
TraitVertical(945*Coeff, 385*Coeff, 210*Coeff, 5*Coeff, CoulGrille)
Cercle(560*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, 0) ;V1
Cercle(560*Coeff, 140*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 210*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 280*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 350*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(630*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(700*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(770*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(840*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(910*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0) ;V11
Cercle(910*Coeff, 490*Coeff, Rayon*Coeff, 5*Coeff, 0) ;J12
Cercle(910*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0) ;R1
Cercle(840*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(770*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(700*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(630*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 630*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 700*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 770*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 840*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(560*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, 0) ;R11
Cercle(490*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, 0) ;R12
Cercle(420*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, 0) ;B1
Cercle(420*Coeff, 840*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 770*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 700*coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 630*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(350*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(280*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(210*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(140*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle( 70*Coeff, 560*Coeff, Rayon*Coeff, 5*Coeff, 0) ;B11
Cercle( 70*Coeff, 490*Coeff, Rayon*Coeff, 5*Coeff, 0) ;B12
Cercle( 70*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0) ;J0
Cercle(140*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(210*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(280*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(350*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 420*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 350*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 280*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 210*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 140*Coeff, Rayon*Coeff, 5*Coeff, 0)
Cercle(420*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, 0) ;J11
Cercle(490*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, 0) ;J12
Cercle(490*Coeff, 140*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 145*Coeff, "1", 180, 0);RV1
Cercle(490*Coeff, 210*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 215*Coeff, "2", 180, 0)
Cercle(490*Coeff, 280*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 285*Coeff, "3", 180, 0)
Cercle(490*Coeff, 350*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 355*Coeff, "4", 180, 0)
Cercle(490*Coeff, 420*Coeff, Rayon*Coeff, 25*Coeff, Vert) : DrawRotatedText(495*Coeff, 425*Coeff, "5", 180, 0)
Cercle(840*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(835*Coeff, 495*Coeff, "1", 90, $FFFFFF)
Cercle(770*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(765*Coeff, 495*Coeff, "2", 90, $FFFFFF)
Cercle(700*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(695*Coeff, 495*Coeff, "3", 90, $FFFFFF)
Cercle(630*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(625*Coeff, 495*Coeff, "4", 90, $FFFFFF)
Cercle(560*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Rouge) : DrawRotatedText(555*Coeff, 495*Coeff, "5", 90, $FFFFFF)
Cercle(490*Coeff, 840*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 835*Coeff, "1", 0, $FFFFFF)
Cercle(490*Coeff, 770*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 765*Coeff, "2", 0, $FFFFFF)
Cercle(490*Coeff, 700*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 695*Coeff, "3", 0, $FFFFFF)
Cercle(490*Coeff, 630*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 625*Coeff, "4", 0, $FFFFFF)
Cercle(490*Coeff, 560*Coeff, Rayon*Coeff, 25*Coeff, Bleu) : DrawRotatedText(490*Coeff, 555*Coeff, "5", 0, $FFFFFF)
Cercle(140*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(150*Coeff, 485*Coeff, "1", 270, 0)
Cercle(210*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(220*Coeff, 485*Coeff, "2", 270, 0)
Cercle(280*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(290*Coeff, 485*Coeff, "3", 270, 0)
Cercle(350*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(360*Coeff, 485*Coeff, "4", 270, 0)
Cercle(420*Coeff, 490*Coeff, Rayon*Coeff, 25*Coeff, Jaune) : DrawRotatedText(430*Coeff, 485*Coeff, "5", 270, 0)
;Dessiner les écuries
Cadre(805*Coeff, 35*Coeff, 140*Coeff, 70*Coeff, 5*Coeff, Vert)
Cadre(805*Coeff, 875*Coeff, 140*Coeff, 70*Coeff, 5*Coeff, Rouge)
Cadre(35*Coeff, 875*Coeff, 140*Coeff, 70*Coeff, 5*Coeff, bleu)
Cadre(35*Coeff, 35*Coeff, 140*Coeff, 70*Coeff, 5*Coeff, Jaune)
Cercle(840*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, Vert)
Cercle(910*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, Vert)
Cercle(840*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, Rouge)
Cercle(910*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, Rouge)
Cercle(70*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, Bleu)
Cercle(140*Coeff, 910*Coeff, Rayon*Coeff, 5*Coeff, Bleu)
Cercle(70*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, Jaune)
Cercle(140*Coeff, 70*Coeff, Rayon*Coeff, 5*Coeff, Jaune)
EndProcedure
Procedure AvancerV1()
If V1Parti = 1 ;si position actuelle > 0 et si V1Parti = 1
Select CmptV1
Case 2:V2()
Case 3:V3()
Case 4:V4()
Case 5:V5()
Case 6:V6()
Case 7:V7()
Case 8:V8()
Case 9:V9()
Case 10:V10()
Case 11:V11()
Case 12:V12()
Case 13:R1()
Case 14:R2()
Case 15:R3()
Case 16:R4()
Case 17:R5()
Case 18:R6()
Case 19:R7()
Case 20:R8()
Case 21:R9()
Case 22:R10()
Case 23:R11()
Case 24:R12()
Case 25:B1()
Case 26:B2()
Case 27:B3()
Case 28:B4()
Case 29:B5()
Case 30:B6()
Case 31:B7()
Case 32:B8()
Case 33:B9()
Case 34:B10()
Case 35:B11()
Case 36:B12()
Case 37:J1()
Case 38:J2()
Case 39:J3()
Case 40:J4()
Case 41:J5()
Case 42:J6()
Case 43:J7()
Case 44:J8()
Case 45:J9()
Case 46:J10()
Case 47:J11()
Case 48:J12():V1Parti = 2 ;si compteur cheval vert 1 = 48, alors V1Parti = 2
EndSelect
EndIf
EndProcedure
Procedure AvancerV2()
If PosAct And V2Parti = 1
Select CmptV2
Case 2:V2()
Case 3:V3()
Case 4:V4()
Case 5:V5()
Case 6:V6()
Case 7:V7()
Case 8:V8()
Case 9:V9()
Case 10:V10()
Case 11:V11()
Case 12:V12()
Case 13:R1()
Case 14:R2()
Case 15:R3()
Case 16:R4()
Case 17:R5()
Case 18:R6()
Case 19:R7()
Case 20:R8()
Case 21:R9()
Case 22:R10()
Case 23:R11()
Case 24:R12()
Case 25:B1()
Case 26:B2()
Case 27:B3()
Case 28:B4()
Case 29:B5()
Case 30:B6()
Case 31:B7()
Case 32:B8()
Case 33:B9()
Case 34:B10()
Case 35:B11()
Case 36:B12()
Case 37:J1()
Case 38:J2()
Case 39:J3()
Case 40:J4()
Case 41:J5()
Case 42:J6()
Case 43:J7()
Case 44:J8()
Case 45:J9()
Case 46:J10()
Case 47:J11()
Case 48:J12():V2Parti = 2
EndSelect
EndIf
EndProcedure
Procedure AvancerR1()
If PosAct And R1Parti = 1
Select CmptR1
Case 2:R2()
Case 3:R3()
Case 4:R4()
Case 5:R5()
Case 6:R6()
Case 7:R7()
Case 8:R8()
Case 9:R9()
Case 10:R10()
Case 11:R11()
Case 12:R12()
Case 13:B1()
Case 14:B2()
Case 15:B3()
Case 16:B4()
Case 17:B5()
Case 18:B6()
Case 19:B7()
Case 20:B8()
Case 21:B9()
Case 22:B10()
Case 23:B11()
Case 24:B12()
Case 25:J1()
Case 26:J2()
Case 27:J3()
Case 28:J4()
Case 29:J5()
Case 30:J6()
Case 31:J7()
Case 32:J8()
Case 33:J9()
Case 34:J10()
Case 35:J11()
Case 36:J12()
Case 37:V1()
Case 38:V2()
Case 39:V3()
Case 40:V4()
Case 41:V5()
Case 42:V6()
Case 43:V7()
Case 44:V8()
Case 45:V9()
Case 46:V10()
Case 47:V11()
Case 48:V12():R1Parti = 2
EndSelect
EndIf
EndProcedure
Procedure AvancerR2()
If PosAct And R2Parti = 1
Select CmptR2
Case 2:R2()
Case 3:R3()
Case 4:R4()
Case 5:R5()
Case 6:R6()
Case 7:R7()
Case 8:R8()
Case 9:R9()
Case 10:R10()
Case 11:R11()
Case 12:R12()
Case 13:B1()
Case 14:B2()
Case 15:B3()
Case 16:B4()
Case 17:B5()
Case 18:B6()
Case 19:B7()
Case 20:B8()
Case 21:B9()
Case 22:B10()
Case 23:B11()
Case 24:B12()
Case 25:J1()
Case 26:J2()
Case 27:J3()
Case 28:J4()
Case 29:J5()
Case 30:J6()
Case 31:J7()
Case 32:J8()
Case 33:J9()
Case 34:J10()
Case 35:J11()
Case 36:J12()
Case 37:V1()
Case 38:V2()
Case 39:V3()
Case 40:V4()
Case 41:V5()
Case 42:V6()
Case 43:V7()
Case 44:V8()
Case 45:V9()
Case 46:V10()
Case 47:V11()
Case 48:V12():R2Parti = 2
EndSelect
EndIf
EndProcedure
Procedure AvancerB1()
If PosAct And B1Parti = 1
Select CmptB1
Case 2:B2()
Case 3:B3()
Case 4:B4()
Case 5:B5()
Case 6:B6()
Case 7:B7()
Case 8:B8()
Case 9:B9()
Case 10:B10()
Case 11:B11()
Case 12:B12()
Case 13:J1()
Case 14:J2()
Case 15:J3()
Case 16:J4()
Case 17:J5()
Case 18:J6()
Case 19:J7()
Case 20:J8()
Case 21:J9()
Case 22:J10()
Case 23:J11()
Case 24:J12()
Case 25:V1()
Case 26:V2()
Case 27:V3()
Case 28:V4()
Case 29:V5()
Case 30:V6()
Case 31:V7()
Case 32:V8()
Case 33:V9()
Case 34:V10()
Case 35:V11()
Case 36:V12()
Case 37:R1()
Case 38:R2()
Case 39:R3()
Case 40:R4()
Case 41:R5()
Case 42:R6()
Case 43:R7()
Case 44:R8()
Case 45:R9()
Case 46:R10()
Case 47:R11()
Case 48:R12():B1Parti = 2
EndSelect
EndIf
If CmptB1 = 48 And B1Parti = 2
If De = 1
RB1()
B1Parti=3
EndIf
EndIf
If CmptB1 = 48 And B1Parti = 3
If De = 2
RB2()
B1Parti = 4
EndIf
EndIf
If CmptB1 = 48 And B1Parti = 4
If De = 3
RB3()
B1Parti = 5
EndIf
EndIf
If CmptB1 = 48 And B1Parti = 5
If De = 4
RB4()
B1Parti = 6
EndIf
EndIf
If CmptB1 = 48 And B1Parti = 6
If De = 5
RB5()
B1Parti = 7
EndIf
EndIf
If CmptB1 = 48 And B1Parti = 7
If De = 6
Gagnant()
B1Parti=8:EndIf
EndIf
EndProcedure
Procedure AvancerB2()
If PosAct And B2Parti = 1
Select CmptB2
Case 2:B2()
Case 3:B3()
Case 4:B4()
Case 5:B5()
Case 6:B6()
Case 7:B7()
Case 8:B8()
Case 9:B9()
Case 10:B10()
Case 11:B11()
Case 12:B12()
Case 13:J1()
Case 14:J2()
Case 15:J3()
Case 16:J4()
Case 17:J5()
Case 18:J6()
Case 19:J7()
Case 20:J8()
Case 21:J9()
Case 22:J10()
Case 23:J11()
Case 24:J12()
Case 25:V1()
Case 26:V2()
Case 27:V3()
Case 28:V4()
Case 29:V5()
Case 30:V6()
Case 31:V7()
Case 32:V8()
Case 33:V9()
Case 34:V10()
Case 35:V11()
Case 36:V12()
Case 37:R1()
Case 38:R2()
Case 39:R3()
Case 40:R4()
Case 41:R5()
Case 42:R6()
Case 43:R7()
Case 44:R8()
Case 45:R9()
Case 46:R10()
Case 47:R11()
Case 48:R12():B2Parti = 2
EndSelect
EndIf
If CmptB2 = 48 And B2Parti = 2
If De = 1
RB1()
B2Parti=3
EndIf
EndIf
If CmptB2 = 48 And B2Parti = 3
If De = 2
RB2()
B2Parti = 4
EndIf
EndIf
If CmptB2 = 48 And B2Parti = 4
If De = 3
RB3()
B2Parti = 5
EndIf
EndIf
If CmptB2 = 48 And B2Parti = 5
If De = 4
RB4()
B2Parti = 6
EndIf
EndIf
If CmptB2 = 48 And B2Parti = 6
If De = 5
RB5()
B2Parti = 7
EndIf
EndIf
If CmptB2 = 48 And B2Parti = 7
If De = 6
Gagnant()
B2Parti=8
EndIf
EndIf
EndProcedure
Procedure AvancerJ1()
If PosAct And J1Parti = 1
Select CmptJ1
Case 2:J2()
Case 3:J3()
Case 4:J4()
Case 5:J5()
Case 6:J6()
Case 7:J7()
Case 8:J8()
Case 9:J9()
Case 10:J10()
Case 11:J11()
Case 12:J12()
Case 13:V1()
Case 14:V2()
Case 15:V3()
Case 16:V4()
Case 17:V5()
Case 18:V6()
Case 19:V7()
Case 20:V8()
Case 21:V9()
Case 22:V10()
Case 23:V11()
Case 24:V12()
Case 25:R1()
Case 26:R2()
Case 27:R3()
Case 28:R4()
Case 29:R5()
Case 30:R6()
Case 31:R7()
Case 32:R8()
Case 33:R9()
Case 34:R10()
Case 35:R11()
Case 36:R12()
Case 37:B1()
Case 38:B2()
Case 39:B3()
Case 40:B4()
Case 41:B5()
Case 42:B6()
Case 43:B7()
Case 44:B8()
Case 45:B9()
Case 46:B10()
Case 47:B11()
Case 48:B12():J1Parti = 2
EndSelect
EndIf
If CmptJ1 = 48 And J1Parti = 2
If De = 1
RJ1()
J1Parti = 3
EndIf
EndIf
If CmptJ1 = 48 And J1Parti = 3
If De = 2
RJ2()
J1Parti = 4
EndIf
EndIf
If CmptJ1 = 48 And J1Parti = 4
If De = 3
RJ3()
J1Parti = 5
EndIf
EndIf
If CmptJ1 = 48 And J1Parti = 5
If De = 4
RJ4()
J1Parti = 6
EndIf
EndIf
If CmptJ1 = 48 And J1Parti = 6
If De = 5
RJ5()
J1Parti = 7
EndIf
EndIf
If CmptJ1 = 48 And J1Parti = 7
If De = 6
Gagnant()
J1Parti = 8
EndIf
EndIf
EndProcedure
Procedure AvancerJ2()
If PosAct And J2Parti = 1
Select CmptJ2
Case 2:J2()
Case 3:J3()
Case 4:J4()
Case 5:J5()
Case 6:J6()
Case 7:J7()
Case 8:J8()
Case 9:J9()
Case 10:J10()
Case 11:J11()
Case 12:J12()
Case 13:V1()
Case 14:V2()
Case 15:V3()
Case 16:V4()
Case 17:V5()
Case 18:V6()
Case 19:V7()
Case 20:V8()
Case 21:V9()
Case 22:V10()
Case 23:V11()
Case 24:V12()
Case 25:R1()
Case 26:R2()
Case 27:R3()
Case 28:R4()
Case 29:R5()
Case 30:R6()
Case 31:R7()
Case 32:R8()
Case 33:R9()
Case 34:R10()
Case 35:R11()
Case 36:R12()
Case 37:B1()
Case 38:B2()
Case 39:B3()
Case 40:B4()
Case 41:B5()
Case 42:B6()
Case 43:B7()
Case 44:B8()
Case 45:B9()
Case 46:B10()
Case 47:B11()
Case 48:B12():J2Parti = 2
EndSelect
EndIf
If CmptJ2 = 48 And J2Parti = 2
If De = 1
RJ1()
J2Parti = 3
EndIf
EndIf
If CmptJ2 = 48 And J2Parti = 3
If De = 2
RJ2()
J2Parti = 4
EndIf
EndIf
If CmptJ2 = 48 And J2Parti = 4
If De = 3
RJ3()
J2Parti = 5
EndIf
EndIf
If CmptJ2 = 48 And J2Parti = 5
If De = 4
RJ4()
J2Parti = 6
EndIf
EndIf
If CmptJ2 = 48 And J2Parti = 6
If De = 5
RJ5()
J2Parti = 7
EndIf
EndIf
If CmptJ2 = 48 And J2Parti = 7
If De = 6
Gagnant()
J2Parti = 8
EndIf
EndIf
EndProcedure