[EX]-BUG EDITE- Un petit jeu sympa

[Habibsbib]

Bonjour,

Je poste ce petit programme sympa basé sur Random. Je l'ai aussi posté dans mon tuto sur le sujet, il y a un lien dans ma signature.
Voila le code :

Code : Tout sélectionner

$oui="oui"
$non="non"
While 1
$de1=Random(1, 6, 1)
MsgBox (0, "Tutoriel Random", "On va lancer un dé virtuel. Le but du jeu est d'atteindre le chiffre six, ou de vous en approcher un maximum, et vous avez le droit à deux esais. Mais attention ! Si vous dépassez six vous avez perdu ! Vous êtes prêts ?")
MsgBox (0, "Tutoriel Random", "Votre score est de "&$de1&".")
If ($de1=6) Then
    MsgBox ( 0, "Tutoriel Random - C'est gagné !", "Wow ! vous avez gagné ! Moi qui avait créé ce programme pour que personne n'y gagne.. vous m'épatez ! Bien joué ! Habibsbib." )
    $reponseA=InputBox ("Tutoriel Random - Réessayer ?", "TAPEZ [OUI] ou [NON]")

    If ($reponseA=$oui) Then
        sleep(10)
        ContinueLoop
    EndIf

    If ($reponseA=$non) Then 
        MsgBox (0, "Tutoriel Random", "Au revoir !!")
        MsgBox ( 0, "A propos de ce programme - About this program", "Version 1.0 By Habibsbib. All rights reserved." )
        Exit 0
    EndIf
Else
    $reponse=InputBox ("Tutoriel Random - Réessayer ?", "TAPEZ [OUI] ou [NON]")

    If ($reponse=$oui) Then
        sleep(10)
    EndIf

    If ($reponse=$non) Then 
        MsgBox (0, "Tutoriel Random", "Au revoir !!")
        MsgBox ( 0, "A propos de ce programme - About this program", "Version 1.0 By Habibsbib. All rights reserved." )
        Exit 0
    EndIf
EndIF

$de2=Random(1, 6, 1)
$score=($de1+$de2)
MsgBox (0, "Tutoriel Random", "On va lancer le deuxième dé viruel. Je vous rappelle que vôtre score précédent était de "&$de1&". Vous êtes prêts ?")
sleep(1000)
MsgBox (0, "Tutoriel Random", "SuSpEnSe...^^")
sleep(500)
If ($de1+$de2>6) Then
    MsgBox (0, "Tutoriel Random", "Désolé ! Vous avez perdu ! Votre score est de "&$score&", par conséquent supèrieur à 6 ! Désolé !")
    $reponse2=InputBox ("Tutoriel Random - Réessayer ?", "TAPEZ [OUI] ou [NON]")

    If ($reponse2=$oui) Then
        sleep(10)
    EndIf

    If ($reponse2=$non) Then 
        MsgBox (0, "Tutoriel Random", "Au revoir !!")
        MsgBox ( 0, "A propos de ce programme - About this program", "Version 1.0 By Habibsbib. All rights reserved." )
        Exit 0
    EndIf
EndIf

If ($de1+$de2<6) Then
    MsgBox (0, "Tutoriel Random", "Pas mal, pas mal.. mais vous n'avez pas atteint le score parfait ! Votre score est de "&$score&"!")
    $reponse3=InputBox ("Tutoriel Random - Réessayer ?", "TAPEZ [OUI] ou [NON]")

    If ($reponse3=$oui) Then
        sleep(10)
    EndIf

    If ($reponse3=$non) Then 
        MsgBox (0, "Tutoriel Random", "Au revoir !!")
        MsgBox ( 0, "A propos de ce programme - About this program", "Version 1.0 By Habibsbib. All rights reserved." )
        Exit 0
    EndIf
EndIf

If ($de1+$de2=6) Then
    MsgBox ( 0, "Tutoriel Random - C'est gagné !", "Wow ! vous avez gagné ! Moi qui avait créé ce programme pour que personne n'y gagne.. vous m'épatez ! Bien joué ! Habibsbib." )
    $reponse4=InputBox ("Tutoriel Random - Réessayer ?", "TAPEZ [OUI] ou [NON]")

    If ($reponse4=$oui) Then
        sleep(10)
    EndIf

    If ($reponse4=$non) Then 
        MsgBox (0, "Tutoriel Random", "Au revoir !!")
        MsgBox ( 0, "A propos de ce programme - About this program", "Version 1.0 By Habibsbib. All rights reserved." )
        Exit 0
    EndIf
EndIf
WEnd

Voila voila.

Cordialement, Habibsbib.

EDITE 1 FOIS, IL Y AVAIT UN BUG QUE JE N'AVAIS PAS CORRIGE

[Tlem]

Sujet nettoyé.
Désolé DJSIR.

[pop45]

ton truck modifier avec un fonction pour prendre moin de place et au lieu de devoir ecrire oui ou non (ce qui est embetant )

► Afficher le texte

Code : Tout sélectionner

$oui="oui"
$non="non"
While 1
$de1=Random(1, 6, 1)
MsgBox (0, "Tutoriel Random", "On va lancer un dé virtuel. Le but du jeu est d'atteindre le chiffre six, ou de vous en approcher un maximum, et vous avez le droit à deux esais. Mais attention ! Si vous dépassez six vous avez perdu ! Vous êtes prêts ?")
MsgBox (0, "Tutoriel Random", "Votre score est de "&$de1&".")
If ($de1=6) Then
    MsgBox ( 0, "Tutoriel Random - C'est gagné !", "Wow ! vous avez gagné ! Moi qui avait créé ce programme pour que personne n'y gagne.. vous m'épatez ! Bien joué ! Habibsbib." )
Else
    stop()
EndIF

$de2=Random(1, 6, 1)
$score=($de1+$de2)
MsgBox (0, "Tutoriel Random", "On va lancer le deuxième dé viruel. Je vous rappelle que vôtre score précédent était de "&$de1&". Vous êtes prêts ?")
sleep(1000)
MsgBox (0, "Tutoriel Random", "SuSpEnSe...^^")
sleep(500)
If ($de1+$de2>6) Then
    MsgBox (0, "Tutoriel Random", "Désolé ! Vous avez perdu ! Votre score est de "&$score&", par conséquent supèrieur à 6 ! Désolé !")
    stop()
    
EndIf

If ($de1+$de2<6) Then
    MsgBox (0, "Tutoriel Random", "Pas mal, pas mal.. mais vous n'avez pas atteint le score parfait ! Votre score est de "&$score&"!" )
    stop()
EndIf

If ($de1+$de2=6) Then
    MsgBox ( 0, "Tutoriel Random - C'est gagné !", "Wow ! vous avez gagné ! Moi qui avait créé ce programme pour que personne n'y gagne.. vous m'épatez ! Bien joué ! Habibsbib." )
    stop()
EndIf
WEnd

func stop()
    $reponse=MsgBox(4, "Tutoriel Random ", "Voulez vous reesayer")

    If ($reponse=6) Then
        sleep(10)
    EndIf

    If ($reponse=7) Then
        MsgBox (0, "Tutoriel Random", "Au revoir !!")
        MsgBox ( 0, "A propos de ce programme - About this program", "Version 1.0 By Habibsbib. All rights reserved." )
        Exit 0
    EndIf
EndFunc

[Habibsbib]

Je préfère tout de même ma version, je la trouve plus..heu..concise, je dirais.

[pop45]

Je préfère tout de même ma version, je la trouve plus..heu..concise, je dirais.

concise? c'est quoi?
a cause de la func pas probleme mais pour le machin ou j'ai remplacer inputbox par un msgbox tu peut pas dire que c'est mieux le tien lol