Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[bat] Finale du Juste Prix (Grosses Modifications)
Auteur Message
Répondre en citant
Message [bat] Finale du Juste Prix (Grosses Modifications) 
Voici la dernière version que j'ai amélioré et changer le chcp pour une meilleure accessibilité.
Si le code ne fonctionne pas mettez la Police de la console : Lucida Console.
Supprimer dans les lignes 144 & 148 :
style="color: #b100b1; font-weight: bold;">

Code:

@echo off
Title Finale du Juste Prix
setlocal enableDelayedExpansion
mode con cols=79 lines=14
:: Changer la police "Raster" de la console par une police TT ex: Lucida console.
chcp 850 >nul
:: Enlever les "::" devant "goto :NAME" pour accéder directement au Jeu.
::goto :NAME
cls
set i=-1
:REPEAT
set /a i=%i%+1
if %i%==3 goto :NAME
for /l %%i in (1,1,25) do (
   ping 127.0.0.1 -n 1 >nul
   call :%%i 
)
:1
cls &color 17 &echo.&echo.&echo.&goto :EOF
:2
echo                           ÛÛ             ÛÛÛÛÛÛÛÛÛ                           &goto :EOF
:3
echo                           ÛÛ             ÛÛ                                  &goto :EOF
:4
echo                           ÛÛ             ÛÛ                                  &goto :EOF
:5
echo                           ÛÛ             ÛÛÛÛÛÛÛ                             &goto :EOF
:6
echo                           ÛÛ             ÛÛ                                  &goto :EOF
:7
echo                           ÛÛ             ÛÛ                                  &goto :EOF
:8
echo                           ÛÛÛÛÛÛÛÛÛ      ÛÛÛÛÛÛÛÛÛ                           &goto :EOF
:9
echo.&echo.&echo.
ping 127.0.0.1 -n 2 >nul
cls &color F8 &echo.&echo.&echo.&goto :EOF
:10
echo            ÛÛÛÛ     ÛÛ     ÛÛ     ÛÛÛÛÛÛÛÛÛ     ÛÛÛÛÛÛÛÛÛÛ     ÛÛÛÛÛÛÛÛÛ     &goto :EOF
:11
echo             ÛÛ      ÛÛ     ÛÛ     ÛÛ     ÛÛ         ÛÛ         ÛÛ            &goto :EOF
:12
echo             ÛÛ      ÛÛ     ÛÛ     ÛÛ                ÛÛ         ÛÛ            &goto :EOF
:13
echo             ÛÛ      ÛÛ     ÛÛ     ÛÛÛÛÛÛÛÛÛ         ÛÛ         ÛÛÛÛÛÛÛ       &goto :EOF
:14
echo             ÛÛ      ÛÛ     ÛÛ            ÛÛ         ÛÛ         ÛÛ            &goto :EOF
:15
echo      ÛÛ     ÛÛ      ÛÛ     ÛÛ     ÛÛ     ÛÛ         ÛÛ         ÛÛ            &goto :EOF
:16
echo      ÛÛÛÛÛÛÛÛÛ      ÛÛÛÛÛÛÛÛÛ     ÛÛÛÛÛÛÛÛÛ         ÛÛ         ÛÛÛÛÛÛÛÛÛ     &goto :EOF
:17
echo.&echo.&echo.
ping 127.0.0.1 -n 2 >nul
cls &color C7 &echo.&echo.&echo.&goto :EOF
:18
echo                  ÛÛÛÛÛÛÛÛÛ     ÛÛÛÛÛÛÛÛÛ     ÛÛÛÛ     ÛÛ     ÛÛ              &goto :EOF
:19
echo                  ÛÛ     ÛÛ     ÛÛ     ÛÛ      ÛÛ       ÛÛ   ÛÛ               &goto :EOF
:20
echo                  ÛÛ     ÛÛ     ÛÛ     ÛÛ      ÛÛ        ÛÛ ÛÛ                &goto :EOF
:21
echo                  ÛÛÛÛÛÛÛÛÛ     ÛÛÛÛÛÛÛÛÛ      ÛÛ         ÛÛÛ                 &goto :EOF
:22
echo                  ÛÛ            ÛÛ   ÛÛ        ÛÛ        ÛÛ ÛÛ                &goto :EOF
:23
echo                  ÛÛ            ÛÛ    ÛÛ       ÛÛ       ÛÛ   ÛÛ               &goto :EOF
:24
echo                  ÛÛ            ÛÛ     ÛÛ     ÛÛÛÛ     ÛÛ     ÛÛ              &goto :EOF
:25
echo.&echo.&echo.
ping 127.0.0.1 -n 4 >nul
goto :REPEAT
:NAME
if exist J-P.txt attrib -s -h J-P.txt & del J-P.txt
cls
chcp 1252 >nul
:: Pour écrire avec l'accentuation
color 9f &echo.&echo.&echo.&echo.&echo.
echo            Bonjour, indiquez votre "Prénom" puis appuyez sur "Entrée" &echo.&echo.&Timeout /t 2 >nul
:: Point médian  ANSI 850 : ú = Alt + 163 ou ANSI 1252 : · = Alt + 0183 me sert à centrer le texte (set /p NAME="·").
set /p NAME=·                   Votre prénom :  || (cls &echo.&echo.&echo.&echo.&echo.&echo.&^
echo.&echo                         Vous devez entrer un prénom ^^! &timeout /t 2 >nul &goto :NAME)
:: Merci Sachadee pour cette superbe combine.
cls &color 4e &echo.&echo.&echo.
   set /a size=79-1
   set s=Vous devez, %name%
   for /L %%# in (1,2,!size!) do if "!s:~%size%,1!" == "" set "s= !s! "
   set s=!s:~1,%size%! &echo(!s!
Timeout /t 1 >nul &echo.
echo                     retrouver le Juste prix de la vitrine &Timeout /t 1 >nul &echo.
echo                            en seulement 15 essais.        &Timeout /t 1 >nul &echo.
echo                                 Bonne chance.             &Timeout /t 3 >nul &echo.
cls &color 1e &echo.&echo.
   set /a size=79-1
   set s=%name%, le Juste Prix
   for /L %%# in (1,2,!size!) do if "!s:~%size%,1!" == "" set "s= !s! "
   set s=!s:~1,%size%! &echo(!s!
Timeout /t 1 >nul
echo.&echo                     est compris entre 10000 et 50000 Euros.     &Timeout /t 1 >nul
echo.&echo                 Choisissez un prix puis appuyez sur "Entrée"... &Timeout /t 1 >nul
:DEBUT
set /a m=50000
set /a mi=10000
set /a n=%mi%
set /a x=%mi%+1
set /a x=%m%-%x%
set /a nb=%random% %% %x%+%n%
echo. >J-P.txt
echo >>J-P.txt  Le, %date% à %time:~0,2%h et %time:~3,2%mn
echo.>>J-P.txt
echo >>J-P.txt    %name% joue :
echo.>>J-P.txt
set nbc1=0
set nbc2=1
set #=#%nbu%
for /f "tokens=2 delims==" %%a in ('set #') do set "#%%a="
:: lignes 119, 120, 127 et 137 à 140. Base de données qui mémorise toutes les propositions de prix. Merci encore Sachadee.
:JEU
:: Pour connaître le prix choisi par l'ordinateur enlever "::" de la ligne inférieure.
:: echo.>nb.txt &echo>>nb.txt     Le prix à trouver est : %nb% € &start nb.txt &Timeout /t 0 >nul & del nb.txt
set /a nbc1=%nbc1%+1
set /a nbc2=%nbc2%+1
set "#%nbu%=%nbu%"
if %nbc1%==16 goto :PERDU
:FAUTE
attrib +s +h J-P.txt
:: A chaque boucle, on redonne à J-P.txt les attributs de fichier système et caché.
echo.
set /p nbu=·                       Quel est Le Juste Prix ?  || (cls &echo.&echo.&echo.&echo.&^
echo.&echo                         Vous devez entrer un prix ^^! &timeout /t 1 >nul &goto :FAUTE)
cls
echo.&echo.&echo.&echo.&echo.&echo.
if defined #%nbu% color 70 & echo                         Prix déjà proposé.  %nbc2%ème chance : &attrib -h -s J-P.txt &(
     if %nbc1% GEQ 0   (if %nbc1% LEQ 9  echo >>J-P.txt  - Essai : 0%nbc1%   %nbu%   Encore  Rejouez &goto :JEU)
     if %nbc1% GEQ 10  (if %nbc1% LEQ 99 echo >>J-P.txt  - Essai : %nbc1%   %nbu%   Encore  Rejouez &goto :JEU)
)
if %nbu% LSS %mi% color 0f & echo                         %nbu% n'est pas valide. Rejouez : &attrib -h -s J-P.txt &(
     echo >>J-P.txt  - Faute : --   %nbu%   Euros   rejouez &goto :FAUTE
)
if %nbu% GTR %m%  color 0f & echo                         %nbu% n'est pas valide. Rejouez : &attrib -h -s J-P.txt &(
     echo >>J-P.txt  - Faute : --   %nbu%   Euros   rejouez &goto :FAUTE
)
if %nbu% LSS %nb% color 2a & echo                         C'est plus ^^!        %nbc2%ème chance : &attrib -h -s J-P.txt &(
     if %nbc1% GEQ 0   (if %nbc1% LEQ 9  echo >>J-P.txt  - Essai : 0%nbc1%   %nbu%   Euros   c'est + &goto :JEU)
     if %nbc1% GEQ 10  (if %nbc1% LEQ 99 echo >>J-P.txt  - Essai : %nbc1%   %nbu%   Euros   c'est + &goto :JEU)
)
if %nbu% GTR %nb% color 4c & echo                         C'est moins ^^!       %nbc2%ème chance : &attrib -h -s J-P.txt &(
     if %nbc1% GEQ 0   (if %nbc1% LEQ 9  echo >>J-P.txt  - Essai : 0%nbc1%   %nbu%   Euros   c'est - &goto :JEU)
     if %nbc1% GEQ 10  (if %nbc1% LEQ 99 echo >>J-P.txt  - Essai : %nbc1%   %nbu%   Euros   c'est - &goto :JEU)
)
:: Ajouter des zéros : if %nbc1% GEQ 100   (if %nbc1% LEQ 999)  avec  00%nbc1% première ligne,
::   Combine perso   : if %nbc1% GEQ 1000  (if %nbc1% LEQ 9999) avec 000%nbc1% première ligne, etc... (voir aussi ligne 186).
if %nbu% EQU %nb% goto :GAGNE
:GAGNE
cls &color 9f &echo.&echo.
   set /a size=79-1
   set s=Bravo %name%, la partie est gagnée.
   for /L %%# in (1,2,!size!) do if "!s:~%size%,1!" == "" set "s= !s! "
   set s=!s:~1,%size%! &echo(!s!
if %nbc1% LEQ 9 set nbc1=0%nbc1%
echo >>J-P.txt  - Essai : %nbc1%   %nbu%   Euros   GAGNÉ ^^!
echo.>>J-P.txt
echo >>J-P.txt  Admirable, vous avez utilisé seulement
echo >>J-P.txt   %nbc1% essais pour trouver le Juste Prix
echo >>J-P.txt       d'une valeur de %nb% Euros.
echo >>J-P.txt               Attention :
echo >>J-P.txt   Avant de continuer fermer ce fichier
echo >>J-P.txt    texte qui sera automatiquement et
echo >>J-P.txt        irrémédiablement détruit.
attrib -s -h J-P.txt & start J-P.txt
Timeout /t 0 >nul & del J-P.txt &goto :CHOIX
:: Permet de supprimer les attributs et d'ouvrir J-P.txt.
:: Laisse de temps à J-P.txt de s'afficher avant de le supprimer.
:PERDU
cls &color 70 &echo.&echo.
   set /a size=79-1
   set s=Dommage %name%, la partie est perdue.
   for /L %%# in (1,2,!size!) do if "!s:~%size%,1!" == "" set "s= !s! "
   set s=!s:~1,%size%! &echo(!s!
echo >>J-P.txt                                PERDU ^^!
echo.>>J-P.txt
echo >>J-P.txt  Malheureusement, vous avez utilisé vos
echo >>J-P.txt   15 essais sans trouver le Juste Prix
echo >>J-P.txt       d'une valeur de %nb% Euros.
echo >>J-P.txt               Attention :
echo >>J-P.txt   Avant de continuer fermer ce fichier
echo >>J-P.txt    texte qui sera automatiquement et
echo >>J-P.txt        irrémédiablement détruit.
attrib -s -h J-P.txt & start J-P.txt
Timeout /t 0 >nul & del J-P.txt &goto :CHOIX
:CHOIX
CHCP 850 >nul
:: Seulement pour afficher le tableau.
Timeout /t 0 >nul
:: Montre l'actualisation de la fenêtre en cas de boucle (réaction).
echo.
echo               ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo               º           1 : Recommencer une partie           º
echo               ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
echo               º               2 : Nouveau joueur               º
echo               ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
echo               º                   3 : Quitter                  º
echo               ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
CHCP 1252 >nul
   set /p choix=·       Important : Sélectionnez 1, 2 ou 3 puis appuyez sur "Entrée" : || (cls &^
echo.&echo.&echo                         Vous devez entrer un choix ^^! &goto :CHOIX)
cls
if not %choix%=='' set choix=%choix:~0,1%
if %choix%==1  goto :REJOUE
if %choix%==2  goto :NAME
if %choix%==3  goto :FIN1
echo.&echo.&echo                      %choix% n'est pas valide, tapez 1, 2 ou 3. &goto :CHOIX
:REJOUE
cls &color 1e &echo.&echo.&echo.&echo.
   set /a size=79-1
   set s=%name%, choisissez
   for /L %%# in (1,2,!size!) do if "!s:~%size%,1!" == "" set "s= !s! "
   set s=!s:~1,%size%! &echo(!s!
Timeout /t 1 >nul
echo.&echo                      un prix puis appuyez sur "Entrée"... &Timeout /t 1 >nul &goto :DEBUT
:FIN1
cls
color 9b &echo.&echo.&echo          LE JUSTE PRIX
 ping 127.0.0.1 -n 2 >nul
color 4d &echo.&echo.&echo                        MERCI D'AVOIR JOUÉ
 ping 127.0.0.1 -n 2 >nul
color 2a &echo.&echo.&echo                                           À BIENTÔT AVEC
 ping 127.0.0.1 -n 2 >nul
color 6e &echo.&echo.&echo                                                          VINCENT LAGAF
 ping 127.0.0.1 -n 2 >nul
echo.
set i=0
:FIN2
set /a i=%i%+1
if %i%==30 goto :END
for /l %%i in (1,1,12) do (
   ping 127.0.0.1 -n 1 >nul
   call :%%i
)
cls
:1
echo.&goto :EOF
:2
color 0a &echo          LE JUSTE PRIX &goto :EOF
:3
echo.&goto :EOF
:4
echo.&goto :EOF
:5
color 0b &echo                        MERCI D'AVOIR JOUÉ &goto :EOF
:6
echo.&goto :EOF
:7
echo.&goto :EOF
:8
color 0d &echo                                           À BIENTÔT AVEC &goto :EOF
:9
echo.&goto :EOF
:10
echo.&goto :EOF
:11
color 0e &echo                                                          VINCENT LAGAF &goto :EOF
:12
echo.&ping 127.0.0.1 -n 1 >nul &goto :FIN2
:END
ping 127.0.0.1 -n 4 >nul
Exit




Dernière édition par Erico22 le Mar 27 Juin 2017 - 12:28; édité 12 fois
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [bat] Finale du Juste Prix (Grosses Modifications) 
Hello,
Fais :
Code:
set /p "nbu=            Quel est Le Juste Prix ? : "

Avec des doubles quotes Okay j'éspère que j'ai biens compris le sens de ta question Laughing

@+ Okay




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message [bat] Finale du Juste Prix (Grosses Modifications) 
Bizzard chez moi ça marche, au pire Laughing :
Code:
@echo off
echo             Quel est Le Juste Prix ?
set /p "nbu=   : "
pause

Sinon tu devrais utiliser batbox, mais là ça sera plus complexe pour toi

@++ Okay




______________________________________________________
Visiter le site web du posteur
Message [bat] Finale du Juste Prix (Grosses Modifications) 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch