Voici le Plus ou Moins fournis avec la version 0.2.0.3 (non-compatible avec les versions précédentes !) , sauf que j'ai rajouté un compteur de coups.
Code:
Show
Font "Consolas"
Title "Plus ou Moins"
Rand Nombre_Hasard Int 1 100
Write "*** Plus ou Moins ***" /r
Write "" /r
Write "Je pense à un nombre entre 1 et 100." /r
Write "Essaye de le deviner !" /r
Write "" /r
Define Coups="0"
Boucle
Input Nombre_Saisie "Entrez un nombre entre 1 et 100."
Define Coups="1+$Coups"
Write "Nombre: "
Read Nombre_Saisie
Write "" /r
If $Nombre_Saisie > $Nombre_Hasard
Write "C'est moins !" /r
Write "" /r
EndIf
If $Nombre_Saisie < $Nombre_Hasard
Write "C'est plus !" /r
Write "" /r
EndIf
If $Nombre_Saisie <> $Nombre_Hasard
Goto Boucle
EndIf
Write "Bravo !" /r
Write "Vous avez gagné en "
Read Coups
Write " coups !"
Sleep 100
Break
Exit
Dylan.
______________________________________________________
Viens découvrir INTERPOL, un nouveau langage interprété !
