la boîte maudite (le code c'est 0000)

dim mdp
dim tentative2
dim agr
dim sommevie
dim vie
dim gemme
dim bmaudite
dim nombretour
dim argentscore
dim argentboite
dim boiteselect
dim shop
dim rep1
dim rep2
dim rep3
vie = 3
tentative2 = 3
gemme = 3
nombretour = 0
argentscore = 0
msgbox"Bienvenue dans le jeu de la boite maudite," _
+ chr(13) _
+ "ici tu n'as qu'un seul but, accumuler un maximum d'argent !" _
+ chr(13) _
+ chr(13) _
+ "Pour cela c'est très simple, tu as devant toi trois boites, deux d'entre elles contiennent de magnifiques pièces d'or, mais attention, la troisième contient un maléfice puissant qui te fait perdre une vie. " _
+ chr(13) _
+ "Tu disposes de trois vies et quand tu les as toutes perdues, la partie s'arrête!"_
+ chr(13) _
+ chr(13) _
+ "Pour sélectioner une boite, rien de plus simple, il suffit d'entrer le numéro de la boite que tu souhaites ouvrir, mais attention la boite maudite change à chaque tour..." _
+ chr(13) _
+ chr(13) _
+ "Tu peux organiser des challenges avec tes amis pour voir lequel a le plus de chance !" _
+ chr(13) _
+ chr(13) _
+ "Bon courage, mais fait attention à la boite maudite !avant de pouvoir t jouer tape le mot de passe", , "La boite maudite"
do
mdp = inputbox ("entre le mot de passe a 4 chiffres"_
+ "                 tentative restante(s) " & tentative2 & ".")
tentative2 = tentative2 -1
if (tentative2 < 0) then
msgbox "trop de tentative"
wscript.quit
end if
if (mdp = "0000") then
msgbox "tu as " & gemme & " gemmes"
do
if (vie < 0) then
msgbox ("tu as trouvé une faille il ne fallait par faire sa")
wscript.quit
end if
nombretour = nombretour + 1

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

Randomize
argentboite = Int((100 * Rnd) + 1)

boiteselect = cint(inputbox ("Argent total : " & argentscore & " "_
+ "                                            Vie : " & vie & " "_
+ "                                           gemme: " & gemme & ""_
+ chr(13) _
+ "```````````````````````````````````````````````````````````````````" _
+ chr(13) _
+ "              Quelle boite choisis-tu ? (1, 2 ou 3)" _
+ chr(13) _
+ chr(13) _
+ "                            __           __          __ " _
+ chr(13) _
+ "                           | 1 |         | 2 |         | 3 |" _
+ chr(13) _
+ "                            ```            ```           ```"))

if (boiteselect = bmaudite) then
vie = vie - 1
msgbox "C'est la boite maudite, il vous reste "& vie & " vie(s)"
else
if ((boiteselect = 1) or (boiteselect = 2) or (boiteselect = 3)) then
argentscore = argentscore + argentboite
msgbox "Vous recevez " & argentboite & " pièces"
else
msgbox "Cette boite n'existe pas, tu perds une vie ! Fait attention la prochaine fois !"
if (nombretour = 0) then
vie = vie - 1
else
vie = vie - 1
nombretour = nombretour - 1

end if
end if
end if
if (vie = 0) then
msgbox"Perdu, tu n'as plus de vie, ta course vers l'argent s'arrête ici, tu as gagné " & argentscore & " en " & nombretour & " coups." _
+ chr(13) _
+ "Tu peux retenter ta chance, qui sais tu gagneras peut être des millions !Mais tu peux acheter des vies "
msgbox " tu as " & argentscore & " sous tu vas dans la boutique de vie"
shop=inputbox ("tu veux acheter des vies oui ou non")
if (shop="oui") then
rep1 =cint (inputbox ("tu as " & argentscore & " sous tu veux acheter combien de vie.1 pour 99 pieces 2 pour 204 pieces 3 pour 550 pieces"))
else
wscript.quit
end if
if cint(rep1=1) then
vie = vie+1
argentscore=argentscore -99
end if
if cint(rep1=2) then
vie= vie+2
argentscore=argentscore -204
end if
if cint(rep1=3) then
vie= vie+3
argentscore=argentscore -550
else
msgbox "ce que tu as marquer n'existe pas tu perd la partie"
wscript.quit
end if
end if
if (argentscore < 0) then
msgbox "tricheur tu n'as pas asser de sous"
wscript.quit
end if
agr = inputbox ("il te reste " & gemme & " gemme(s) tu veux convertir des gemmes pour 550 sous oui ou non")
if (agr= "oui") then
gemme = gemme -1
argentscore=argentscore +550
end if
loop
else msgbox "code incorect"
end if
loop