AutoIt Français

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