Ce fichier VBS ne s’exécute pas correctement (erreur 800A000D)

Bonjour,

Je me suis lancé, il y peu dans la programmation en VBS et j'ai commencé par modifier des scripts que je trouvais sur le net afin de ne pas partir de rien. Généralement, je prends des jeux que je modifie. J'ai trouvé celui-ci sur le site https://sites.google.com/site/bapt390faisdesvideo/home/code-des-jeux-de-la-seri-jeu-bloc-note
Le souci, c'est que le script fonctionne correctement pendant un certain moment, puis il s'arrête brusquement. Je n'ai presque aucunes connaissances en VBS, est-ce que quelqu'un pourrait m'aider ? Voici le script source :

dim NombreDeBaton
dim NombreDeBatonSelect
dim NombreDeBatonSelectOrdi
dim BatonIntelligence
dim Menu


msgbox "Bonjour, et bienvenue dans le jeu des bâtonnets !"_ 
+ chr(13) _ 
+ chr(13) _ 
+ "Tu as devant toi 16 bâtonnets, tour à tour, toi et l'ordinateur ou un ami allez choisir de retirer un certain nombre de bâtonnets, "_ 
+ chr(13) _ 
+ "Tu as la possibilité d'en retirer 1, 2 ou 3." _ 
+ chr(13) _ 
+ "Celui qui prend le dernier bâtonnet a perdu !" _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Bonne chance, mais souviens toi que pour gagner, la stratégie est ta meilleure amie !", , "Les bâtonnets" 

Menu = inputbox ("Comment veux-tu jouer ?" _
+ chr(13) _ 
+ chr(13) _ 
+ "Entre: " _
+ chr(13) _ 
+ "' solo ' pour jouer contre l'ordinateur " _
+ chr(13) _ 
+ "' multi ' pour jouer à deux en duel" _
+ chr(13) _ 
+ "' info ' pour avoir des informations sur le logiciel" _
+ chr(13) )


'Début du mode solo
if (Menu = "solo") then

NombreDeBaton = 16

do

if (NombreDeBaton = 16) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 15) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 14) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 13) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 12) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 11) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 10) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 9) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 8) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 7) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 6) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 5) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 4) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 3) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 2) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 1) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 0) then
NombreDeBatonSelect = cint(inputbox ("Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Il reste 0 bâtonnet" ))
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if

if (NombreDeBaton < NombreDeBatonSelect) then
msgbox "Tu ne peux pas enlever autant de bâtonnets car il n'y en a pas assez sur le plateau !" _
+ chr(13) _ 
+ chr(13) _ 
+ "Comme sanction, je déclare l'ordinateur vainqueur, fais plus attention la prochaine fois !", vbcritical+vbSystemModal ,"Les bâtonnets"
Wscript.quit
else
end if

if ((NombreDeBatonSelect = 1) or (NombreDeBatonSelect = 2) or (NombreDeBatonSelect = 3)) then
NombreDeBaton = NombreDeBaton - NombreDeBatonSelect
else
msgbox "Tu ne peux pas enlever ce nombre de bâtonnet(s) ! Tu peux seulement en retirer 1, 2 ou 3" _
+ chr(13) _ 
+ chr(13) _ 
+ "Comme sanction, je déclare l'ordinateur vainqueur, fais plus attention la prochaine fois !", vbcritical+vbSystemModal ,"Les bâtonnets"
Wscript.quit
end if

if (NombreDeBaton = 0) then
msgbox "Tu as perdu !"_
+ chr(13) _  
+ chr(13) _ 
+ "Mais c'est normal, personne ne peut vaincre l'ordinateur !"
Wscript.quit 
else
end if


Randomize 
BatonIntelligence = Int((3 * Rnd) + 1) 

'L'intelligence artificielle
if (NombreDeBaton = 1) then
NombreDeBatonSelectOrdi = 1
else 
if (NombreDeBaton = 2) then
NombreDeBatonSelectOrdi = 1
else
if (NombreDeBaton = 3) then
NombreDeBatonSelectOrdi = 2
else
if (NombreDeBaton = 4) then
NombreDeBatonSelectOrdi = 3
else
if (NombreDeBaton = 5) then
NombreDeBatonSelectOrdi = 1
else
if (NombreDeBaton = 6) then
NombreDeBatonSelectOrdi = 1
else
if (NombreDeBaton = 7) then
NombreDeBatonSelectOrdi = 2
else
if (NombreDeBaton = 8) then
NombreDeBatonSelectOrdi = 3
else
if (NombreDeBaton = 9) then
NombreDeBatonSelectOrdi = 1
else
if (NombreDeBaton = 10) then 
NombreDeBatonSelectOrdi = 1
else
if (NombreDeBaton = 11) then
NombreDeBatonSelectOrdi = 2
else
if (NombreDeBaton = 12) then
NombreDeBatonSelectOrdi = 3
else
if (NombreDeBaton = 13) then
NombreDeBatonSelectOrdi = BatonIntelligence
else
if (NombreDeBaton = 14) then
NombreDeBatonSelectOrdi = BatonIntelligence
else
if (NombreDeBaton = 15) then
NombreDeBatonSelectOrdi = BatonIntelligence
else
if (NombreDeBaton = 16) then
NombreDeBatonSelectOrdi = BatonIntelligence
else
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if

NombreDeBaton = NombreDeBaton - NombreDeBatonSelectOrdi

msgbox "Tu retires " & NombreDeBatonSelect & " bâtonnet(s) du plateau !" _
+ chr(13) _ 
+ "Il reste donc " & NombreDeBaton + NombreDeBatonSelectOrdi & " bâtonnet(s)." _
+ chr(13) _ 
+ chr(13) _ 
+ "L'ordinateur a choisi de retirer " & NombreDeBatonSelectOrdi & " bâtonnet(s) !" _
+ chr(13) _ 
+ "Il reste donc " & NombreDeBaton & " bâtonnet(s) sur le plateau."

if (NombreDeBaton = 0) then
msgbox "Bravo, tu as gagné !" _
+ chr(13) _ 
+ chr(13) _ 
+ "Tu as vaincu l'ordinateur, tu dois être très doué, à moins que ça ne soit le hasard . . ."
Wscript.quit
else
end if

loop





'Debut du mode multi-joueurs

else
if (Menu = "multi") then

dim NombreDeBatonSelectJoueur1
dim NombreDeBatonSelectJoueur2

NombreDeBaton = 16

msgbox "Le joueur 1 commence !"

do

if (NombreDeBaton = 16) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 15) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 14) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 13) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 12) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 11) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 10) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 9) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 8) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 7) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 6) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 5) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 4) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 3) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 2) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 1) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 0) then
NombreDeBatonSelectJoueur1 = cint(inputbox ("Joueur 1: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Il reste 0 bâtonnet" ))
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if

if (NombreDeBaton < NombreDeBatonSelectJoueur1) then
msgbox "Tu ne peux pas enlever autant de bâtonnets car il n'y en a pas assez sur le plateau !" _
+ chr(13) _ 
+ chr(13) _ 
+ "Comme sanction, je déclare le joueur 2 vainqueur, fais plus attention la prochaine fois !", vbcritical+vbSystemModal ,"Les bâtonnets"
Wscript.quit
else
end if

if ((NombreDeBatonSelectJoueur1 = 1) or (NombreDeBatonSelectJoueur1 = 2) or (NombreDeBatonSelectJoueur1 = 3)) then
NombreDeBaton = NombreDeBaton - NombreDeBatonSelectJoueur1
else
msgbox "Tu ne peux pas enlever ce nombre de bâtonnet(s) ! Tu ne peux seulement en retirer 1, 2 ou 3" _
+ chr(13) _ 
+ chr(13) _ 
+ "Comme sanction, je déclare le joueur 2 vainqueur, fais plus attention la prochaine fois !", vbcritical+vbSystemModal ,"Les bâtonnets"
Wscript.quit 
end if

NombreDeBaton = NombreDeBaton - NombreDeBatonSelectJoueur1

if (NombreDeBaton = 0) then
msgbox "Le joueur 2 a gagné !"
Wscript.quit 
else
end if

msgbox "Le joueur 1 retire " & NombreDeBatonSelectJoueur1 & " bâtonnet(s) du plateau !" _
+ chr(13) _ 
+ "Il reste donc " & NombreDeBaton & " bâtonnet(s)." _
+ chr(13) _ 
+ chr(13) _ 
+ "C'est maintenant au tour du joueur 2 !"



if (NombreDeBaton = 16) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 15) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 14) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 13) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 12) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 11) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 10) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 9) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 8) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 7) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 6) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 5) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 4) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 3) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 2) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: | |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 1) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _  
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Les bâtonnets: |  ;  Reste: " & NombreDeBaton ))
else
if (NombreDeBaton = 0) then
NombreDeBatonSelectJoueur2 = cint(inputbox ("Joueur 2: " _
+ chr(13) _ 
+ "Combien de bâtonnets veux-tu enlever ? " _
+ chr(13) _ 
+ "(1, 2 ou 3) " _ 
+ chr(13) _ 
+ chr(13) _ 
+ "Il reste 0 bâtonnet" ))
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if

if (NombreDeBaton < NombreDeBatonSelectJoueur2) then
msgbox "Tu ne peux pas enlever autant de bâtonnets car il n'y en a pas assez sur le plateau !" _
+ chr(13) _ 
+ chr(13) _ 
+ "Comme sanction, je déclare le joueur 1 vainqueur, fais plus attention la prochaine fois !", vbcritical+vbSystemModal ,"Les bâtonnets"
Wscript.quit
else
end if

if ((NombreDeBatonSelectJoueur2 = 1) or (NombreDeBatonSelectJoueur2 = 2) or (NombreDeBatonSelectJoueur2 = 3)) then
NombreDeBaton = NombreDeBaton - NombreDeBatonSelectJoueur2
else
msgbox "Tu ne peux pas enlever ce nombre de bâtonnet(s) ! Tu peux seulement en retirer 1, 2 ou 3" _
+ chr(13) _ 
+ chr(13) _ 
+ "Comme sanction, je déclare le joueur 1 vainqueur, fais plus attention la prochaine fois !", vbcritical+vbSystemModal ,"Les bâtonnets"
Wscript.quit 
end if

if (NombreDeBaton = 0) then
msgbox "Le joueur 1 a gagné !"
Wscript.quit 
else
end if

msgbox "Le joueur 2 retire " & NombreDeBatonSelectJoueur2 & " bâtonnet(s) du plateau !" _
+ chr(13) _ 
+ "Il reste donc " & NombreDeBaton & " bâtonnet(s)." _
+ chr(13) _ 
+ chr(13) _ 
+ "C'est maintenant au tour du joueur 1 !"

loop



'Début des informations

else
if (Menu = "info") then

msgbox "Information: " _
+ chr(13) _
+ chr(13) _
+ "Ce script a été créé par la chaine YouTube Tutolande !" _
+ chr(13) _
+ "Tu peux aller y faire un tour et t'abonner, il y a pleins de choses à voir en informatique (astuces, tutoriels et bien plus...)" _
+ chr(13) _
+ chr(13) _
+ "La page YouTube Tutolande va s'ouvrir à la fermeture de cette fenêtre, jete un coup d'oeil ! ", , "Informations"


Set sh = WScript.CreateObject("WScript.Shell") 
sh.Run("Explorer http://www.youtube.com/user/Tutolande")

else

msgbox "Cette option n'est pas reconnue ! Vérifie l'ortographe !"

end if
end if
end if

Merci d'avance !

Jojorealisateur