Comment faire un jeu du pendu ?

mot, cache, lettre est un texte
vies est un nombre
mot vaut 'coddyrun'
cache vaut repeter_texte('_', longueur(mot))
vies vaut 7
tant que vies > 0 et contient(cache, '_')
    affiche cache + '   (vies : ' + vies + ')'
    demande 'Une lettre ?' dans lettre
    lettre vaut minuscules(copier(lettre, 1, 1))
    si contient(mot, lettre) alors
        pour i de 1 à longueur(mot)
            si copier(mot, i, 1) = lettre alors
                cache vaut copier(cache, 1, i - 1) + lettre + copier(cache, i + 1, longueur(mot) - i)
            fin si
        fin pour
    sinon
        vies soustrait 1
    fin si
fin tant que
affiche sialors(contient(cache, '_'), 'Perdu, c''était ' + mot, 'Gagné : ' + mot)