jeu de la bombe atomique

dim reponse
dim reponse2
reponse = inputbox (" j'ai reussie a contourne java je veux detruire ton pc 1 pour oui 2 pour non ")
If (reponse = 1)  then
reponse = inputbox ("es tu sur 1 pour oui 2 pour non ce n'pas une blague")
else
msgbox " on va jouer a un jeu si tu perd auto destruction..."
msgbox "  si tu gagne l'ordi reste intact mais sinon..."
msgbox " es-tu pret à relever le défi du nombre mystère ?"_
+ chr(13) _
+ chr(13) _
+ "J'ai choisi un nombre entre 1 et 1000, et tu dois le trouver !"_
+ chr(13) _
+ "Quand tu tapes un nombre, je te dis s'il est plus grand ou plus petit que le nombre secret."_
+ chr(13) _
+ "Mais tu n'as que 15 essais pour le trouver." _
+ chr(13) _
+ chr(13) _
+ "Bonne chance, mais tu ne peux gagner face à moi !", , "ta derniere chance"

Randomize
secret = Int((1000 * Rnd) + 1)

tentative = 0

do
tentative = tentative + 1

if (tentative > 15) then
msgbox "Trop de tentatives, tu as perdu ! ton pc va exploser"
msgbox "fuyez!!!!!!"
msgbox " alerte"
msgbox "compte a rebour"
msgbox "5"
msgbox "4"
msgbox "3"
msgbox "2"
msgbox "1"
msgbox "0"
msgbox " booooooooooooooooooooooooooooooooooooooum!!!!!!!!!!"
Wscript.quit
else
end if

nombre = cint(inputbox ("Donne un nombre entre 1 et 1000"))
if (nombre = secret) then
msgbox "GAGNÉ tu as sauve la vie a ton pc !" _
+ chr(13) _
+ "Bravo, tu as trouvé en " & tentative & " coups !"
Wscript.quit
else
if (nombre > secret) then
msgbox "Trop grand !"
else
msgbox "Trop petit !"
end if
end if

loop
end if

reponse = inputbox ("es tu sur 1 pour oui 2 pour non ce n'pas une blague")
if (reponse =1) then
msgbox "auto destruction dans "
msgbox "5"
msgbox "4"
msgbox "3"
msgbox "2"
msgbox "1"
msgbox "0"
msgbox " booooooooooooooooooooooooooooooooooooooum!!!!!!!!!!"
else
msgbox "tu as raisons..."
wscript.quit
end if

msgbox "Erreur de syntaxe !" , vbCritical , "ERREUR!"
loop