voici le jeu des allumettes !
Code : Tout sélectionner
; JEU des allumettes PB V 4.4.1 28/03/2010
; on choisit le nombre d'allumettes et le nombre max de retrait
; celui qui retire la dernière allumette a perdu
;***************** début du programme ***************************************
;
; **************** les variables globales ******************************
Define.l nbAllum,priseMax,quiJou,prise
Define.b Jeu_en_Cours=1
;
; ******************questionnement de début ****************************
OpenConsole()
While Jeu_en_Cours
ClearConsole()
EnableGraphicalConsole(1)
ConsoleTitle("Jeu des allumettes")
ConsoleColor(14,0)
PrintN("")
PrintN(" *************** Jeu des Allumettes ****************")
PrintN(" **** vous jouez contre la machine ****")
PrintN(" **** Ce jeu consiste a retirer des allumettes ****")
PrintN(" **** a tour de role.Celui qui retire la derniere ****")
PrintN(" **** allumette a perdu . Good luck !! ****")
PrintN(" *******************************************************")
ConsoleColor(3,0)
PrintN("")
PrintN(" Avec combien d'allumettes voulez vous jouer (minimum 21 max 61 ) ?")
nbAllum$ =Input()
nbAllum =Val(nbAllum$)
If nbAllum < 21
nbAllum = 21
EndIf
If nbAllum > 51
nbAllum =51
EndIf
; While prise < 1 Or prise > priseMax Or prise >nbAllum
; Print("quelle est la prise maximun pour cette manche(max 5)?")
; PrintN("")
; prise$ =Input()
; prise = Val(prise$)
; Wend
PrintN("quelle est la prise maximun (max 5)?")
priseMax$ =Input()
priseMax =Val(priseMax$)
If priseMax >5
priseMax =5
EndIf
If priseMax <1
priseMax =2
EndIf
PrintN("")
PrintN(" Le nombre d'allumettes est de :"+Str(nbAllum))
PrintN(" La prise maximun est de :"+Str(priseMax))
PrintN("Qui commence ? tapez :1 ordinateur, 0 joueur (Peucheure)")
quiJou$ =Input()
quiJou =Val(quiJou$)
ClearConsole()
ConsoleColor(14,0)
;
; ******************boucle de jeu ***************************************
;
Repeat
For j.l =1 To nbAllum
Print ("I")
Next j
Print(" "+ Str(nbAllum))
PrintN("")
If quiJou =1
Gosub machine
Else
Gosub joueur
EndIf
nballum =nbAllum - prise
Until nbAllum =0
PrintN("")
If quiJou =1
ConsoleColor(5,0)
Print(" Bravo Machine ")
Else
PrintN("Super ! bravo Joueur !!! ")
EndIf
Print("Voulez vous rejouer ? 1/Oui 0/Non")
Jeu_en_Cours = Val(Input() )
Wend
CloseConsole()
End
;
;*************** label joueur sans IA ah ah ******************************
joueur :
prise =0
While prise<>Int(prise) Or prise<1 Or prise >priseMax Or prise >nbAllum
Print("Combien d'allumettes voulez vous retirer ?")
PrintN("")
prise$ =Input()
prise = Val(prise$)
Wend
quiJou =1
Return
; *********** label machine *************************************************
machine:
s.l =priseMax + QuiJou
Repeat
t.f = (nbAllum - s)/(priseMax +quiJou)
s =s-quiJou
Until t =Int(t)
prise = Abs(s)
If prise = 0
prise = quiJou
EndIf
PrintN("La machine en prend : " + Str(prise ))
PrintN("")
quiJou =0
Return
