Global $nbreEssais = 0
$nombreCache = Random (1, 100, 1)


While 1
        $saisieReponse = InputBox('Nombre entre 1 et 100', 'Entrez votre réponse. (Nombre d''essais : ' & $nbreEssais & ')')
        Incremente()

        If ($nbreEssais = 10) Then
            Switch Msgbox(4, 'Nombre entre 1 et 100', 'Vous avez atteint le nombre d''essais maximum! Voulez-vous rejouer?')
                Case 6
                    $nbreEssais = 0
                    $nombreCache = Random (1, 100, 1)
                Case 7 ExitLoop
            EndSwitch

        ElseIf ($saisieReponse > $nombreCache) Then
            MsgBox(1, "Nombre entre 1 et 100", "Le nombre est plus petit que ça!")

        ElseIf ($saisieReponse < $nombreCache) Then
            MsgBox(1, "Nombre entre 1 et 100", "Le nombre est plus grand que ça!")

        ElseIf ($saisieReponse = $nombreCache) Then
            Switch Msgbox(4, 'Nombre entre 1 et 100', 'Bravo! Vous avez trouvé le nombre mystère : ' & $nombreCache & '! Voulez-vous rejouer?')
                Case 6
                    $nbreEssais = 0
                    $nombreCache = Random (1, 100, 1)
                Case 7 ExitLoop
            EndSwitch
        EndIf

WEnd

Func Incremente()
    $nbreEssais +=1
EndFunc