JEU MOTUS AVEC DICTIONNAIRE

Commentaire de asem67 le 15/07/2005 00:38:06

Slt. hassen
ton jeux me plait bien
mais un petit soucis
lorsque j'ai des lettre bien placer il devrai devenire rouge
et lorsque la lettre existe mais mal placer ça devrer etre vert
comme sur la photo
et bien rien si tu na pas le mot exacte c'est comme si tous etait faux

j'ai chercher un petit moment avent de voir qu'il falait valider les lettres une fois taper par ENTER
-ce serait mieux qu'il le fasse automatiquement
-et qu'une nouvelle partie demarre apres une partie fini

a+
PS: desoler pour les fautes

Commentaire de ScarHand le 01/09/2005 01:52:46

salut,

je pense pas que ce soit une bonne idée d'obliger le joueur a confirmer son mot. Ca gache le jeu. Sinon le compare au jeu télévisé, si un joueur épelle mal le mot, ben c'est perdu. donc ici, si on écrit mal le mot, et bien, tant pis. C'est le jeu.

Commentaire de aa30fr le 19/10/2005 14:46:21

Bonjour
super bien fait
juste un petit souci, si une lettre est unique dans le mot a touver et qu'on l'utilise plusieurs fois à un mauvais enmplacement dans le mot proposé,elle est signalée en vert à chaque fois. pour éviter ca je me suis permis de modifier VerifierMotEntrer ainsi:
Attende_un_peu
'dans un premier temps j'enleve des lettres à trouver celles qui sont bien placées
lettresrestantes = Right(Mot_a_deviner, Nombre_lettre - 1)
For i = 1 To Nombre_lettre - 1
    If Mid(Mot_a_deviner, i + 1, 1) = Lettre(OccurenceLettre(LigneEnCours, i)).Lettre Then
        poslettre = InStr(lettresrestantes, Lettre(OccurenceLettre(LigneEnCours, i)).Lettre)
        lettresrestantes = Left(lettresrestantes, poslettre - 1) & Right(lettresrestantes, Len(lettresrestantes) - poslettre)
    End If
Next i

.../...

    Else
        IsGagner = False
'puis j'enleve les lettres mal placées de la liste des lettres restant a trouver
        For j = 1 To Nombre_lettre - 1
            'If j <> i And Mid(Mot_a_deviner, j + 1, 1) = Lettre(OccurenceLettre(LigneEnCours, i)).Lettre And Mid(Mot_a_deviner, j + 1, 1) <> Lettre(OccurenceLettre(LigneEnCours, j)).Lettre Then
            poslettre = InStr(lettresrestantes, Lettre(OccurenceLettre(LigneEnCours, i)).Lettre)
            If poslettre > 0 Then
                lettresrestantes = Left(lettresrestantes, poslettre - 1) & Right(lettresrestantes, Len(lettresrestantes) - poslettre)
            
                Lettre(OccurenceLettre(LigneEnCours, i)).EtatLettre = Lettre_MalPlace
                LireSon "malplace.wav"
ainsi si le mot a trouver est "complet" et que je propose "chemise" un seul e sera en vert
sinon, c'est si bien fait que l'on peut passer a neuf lettres sans aucun souci (hormis qu'il faut se faire le dico ;))