QB64 Jeu des allumettes

Voici ce programme qui est une base en programmation et qui permet de voir l'utilisation de plusieurs fonctions. 

 

PRINT "Jeu des allumettes"
SLEEP (2): CLS
INPUT "Ton nom : "; a$
INPUT "Mon nom : "; b$
SLEEP (2): CLS
Toi = 1
NbAl = 15
PRINT "Vous avez 15 allumettes, vous pouvez en prendre soit 1, 2, ou 3"
DO WHILE NbAl <> 0
    AlPris = 0
    DO
        IF Toi = 1 THEN COLOR 14, 0: PRINT "  "; a$: COLOR  7, 0 ELSE COLOR 10, 0: PRINT "  "; b$: COLOR 7, 0
        INPUT "Combien d'allumettes prenez-vous "; AlPris
    LOOP UNTIL AlPris >= 1 AND AlPris <= 3 AND AlPris <= NbAl
    NbAl = NbAl - AlPris
    PRINT "Il reste "; NbAl; " allumettes"
    Toi = 3 - Toi
LOOP
IF Toi = 1 THEN COLOR 14, 0: PRINT "  "; a$; " à gagné": COLOR 7, 0 ELSE COLOR 10, 0: PRINT "  "; b$; " à gagné": COLOR 7, 0
fin:
GOTO fin

Téléchargez qb64  en dernière version sur internet, recopier ce programme dans le qb64,  lancer run , bon jeu.