pierre feuille ciseau

Option Explicit
Dim menu
Dim arme
Dim armeordi
dim victoire
dim victordi
dim nul

victoire=0
victordi=0
nul=0

'menu
menu=cint(inputbox("Bienvenue dans le jeu de Roche Papier Ciseaux!" &vblf&vblf& "Le jeu est simple:" &vblf& "la roche bat les ciseaux," &vblf& "Les ciseaux coupent le papier" &vblf& "et le papier bat la roche" &vblf&vblf& "Combien de manches voulez-vous jouer?", "Roche Papier Ciseaux"))'attribue une valeur à menu
do until menu=0'répéter jusqu'à temps que la valeur de menu est égale à 0

if (menu>=1) then 'si la valeur de menu est plus petite ou égale à 1, éxécute cette partie de code
    menu=menu-1 'soustrait 1 de menu
    arme=cint(inputbox("Insérez le numéro:" &vblf&vblf& "1 pour prendre la roche." &vblf& "2 pour prendre le papier." &vblf& "3 pour prendre les ciseaux.", "Sélectionnez votre arme;"))'attribue une valeur à arme
elseif (menu=0) then 'si valeur de menu est 0, éxécute ces lignes
    msgbox"Alors, à la prochaine :)" 'boite de message
    wscript.quit 'quite le script
elseif (menu<0) then 'si menu est plus petit que 1, éxécute ces lignes
    menu=menu+1 'additione 1 à menu
    arme=cint(inputbox("Insérez le numéro:" &vblf&vblf& "1 pour prendre la roche." &vblf& "2 pour prendre le papier." &vblf& "3 pour prendre les ciseaux.", "Sélectionnez votre arme;"))'attribue une valeur à arme
end if 'terminer le si

'intelligence artificielle de l'ordi
If (arme=1) or (arme=2) or (arme=3) Then 'si la valeur de arme, est 1, 2, ou 3, éxécute ces lignes
    Randomize
    armeordi = Int((3 * Rnd) + 1) 'attribue un chiffre entre 1 et 3 à armeordi
elseif (arme>3) or (arme<1) then 'sinon, si arme est plus grand que 3 ou plus petit que 1, éxécute ces lignes
    victordi=victordi+1
    msgbox"Cette arme n'existe pas" &vblf& "Comme sanction, je déclare l'ordinateur vainqueur pour cette manche." 'boite de message
elseif (arme="") then 'si arme n'a pas de valeur éxécute ces lignes
    msgbox"Veuillez rentrer un numéro (1,2 ou 3)" 'boite de message
end if 'terminer le si

'réponses
if (arme=1) and (armeordi=1) then
    nul=nul+1
    msgbox"Roche vs Roche!" &vblf& "Match nul!",, "Victoire ou défaite?"
elseif (arme=1) and (armeordi=2) then
    victordi=victordi+1
    msgbox"Roche vs Papier!" &vblf& "L'ordinateur gagne!",,"Défaite!"
elseif (arme=1) and (armeordi=3) then
    victoire=victoire+1
    msgbox"Roche vs Ciseaux!" &vblf& "Tu gagnes!",,"Victoire!"
end if

if (arme=2) and (armeordi=1) then
    victoire=victoire+1
    msgbox"Papier vs Roche!" &vblf& "Tu gagnes!",,"Victoire!"
elseif (arme=2) and (armeordi=2) then
    nul=nul+1
    msgbox"Papier vs Papier!" &vblf& "Match nul!",,"Victoire ou défaite?"
elseif (arme=2) and (armeordi=3) then
    victordi=victordi+1
    msgbox"Papier vs Ciseaux!" &vblf& "L'ordinateur gagne!",,"Défaite!"
end if

if (arme=3) and (armeordi=1) then
    victordi=victordi+1
    msgbox"Ciseaux vs Roche!" &vblf& "L'ordinateur gagne!",,"Défaite"
elseif (arme=3) and (armeordi=2) then
    victoire=victoire+1
    msgbox"Ciseaux vs Papier!" &vblf& "Tu gagnes!",, "Victoire!"
elseif (arme=3) and (armeordi=3) then
    nul=nul+1
    msgbox"Ciseaux vs Ciseaux!" &vblf& "Match nul!",, "Victoire ou défaite?"
end if
loop 'revient au Do

if (victoire>victordi) then
    msgbox"Tu as gagné " & victoire & " fois" &vblf& "L'ordinateur a gagné " & victordi & " fois" &vblf& "Match(s) nul(s): " & nul &vblf&vblf& "Tu es le grand gagnant!",, "Grande victoire!"
elseif (victoire<victordi) then
    msgbox"Tu as gagné " & victoire & " fois" &vblf& "L'ordinateur a gagné " & victordi & " fois" &vblf& "Match(s) nul(s): " & nul &vblf&vblf& "L'ordinateur est le grand gagnant!",, "Grande défaite!"
elseif (victoire=victordi) then
    msgbox" Tu as le même nombre de victoires que celui de l'ordinateur..." &vblf& "Mais qui a gagné?",, "WTF?"
end if