Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Jeu : Plus ou moin
Auteur Message
Répondre en citant
Message Jeu : Plus ou moin 
Bonjour à tous ! Aujourd'hui je vous présente un jeu de ma conception : Plus ou moin
Le but du jeu est de trouver un nombre précis entre deux chiffres (c'est pas super original je sais ...)
Voici le code (Merci de ne pas copier totalement ou partiellement le code source sans mon autorisation pour une quelconque utilisation )

@echo off
mode con cols=80 lines=30
if not exist batbox.exe call :makebb
title Plus ou moin version 2.0.2 - IK DC GAME
goto debut

:debut
cls
set /a coup=0
set /a nbr=0
@echo Bienvenue dans Plus ou moin
@echo.
@echo Regles du jeu :
@echo.
@echo Le but du jeu est de trouver , par exemple, un chiffre entre 0 et 20
@echo en un minimum de fois
@echo.
@echo Choix de la difficulte :
@echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍ»
echo ºTres Facileº (entre 0 et 30) ºDifficileº (entre 0 et 1000)
echo ÈÍÍÍÍÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍÍÍͼ
echo.
echo ÉÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍ»
echo º Facile º (entre 0 et 50) º Perso º (Chiffre maxi au choix)
echo ÈÍÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍͼ
echo.
echo ÉÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍ»
echo º Moyen º (entre 0 et 100) º2 joueursº (Entre vous et un ami)
echo ÈÍÍÍÍÍÍͼ ÈÍÍÍÍÍÍÍÍͼ
:debutCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 10 if %y% LEQ 12 if %x% GEQ 4 if %x% LEQ 17 goto set1
if %y% GEQ 14 if %y% LEQ 16 if %x% GEQ 4 if %x% LEQ 14 goto set2
if %y% GEQ 17 if %y% LEQ 19 if %x% GEQ 4 if %x% LEQ 13 goto set3
if %y% GEQ 10 if %y% LEQ 12 if %x% GEQ 39 if %x% LEQ 51 goto set4
if %y% GEQ 14 if %y% LEQ 16 if %x% GEQ 39 if %x% LEQ 49 goto set5
if %y% GEQ 17 if %y% LEQ 19 if %x% GEQ 39 if %x% LEQ 51 goto set2j
goto debutCH
If %choixd% EQU 4 goto set4
If %choixd% EQU 5 goto set5
If %choixd% EQU 6 goto set2j
goto debut

:set1
set /a nbrmax=30
set /a nbr=%random%%%30
goto menu

:set2
set /a nbrmax=50
set /a nbr=%random%%%50
goto menu

:set3
set /a nbrmax=100
set /a nbr=%random%%%100
goto menu

:set4
set /a nbrmax=1000
set /a nbr=%random%%%1000
goto menu

:set5
mode con cols=70 lines=10
cls
@echo Choisisez un nombre maximum :
@echo.
set /p nbrmax=
echo %nbrmax%|findstr /r "[^0-9]" > nul
IF ERRORLEVEL 1 goto set5CC
IF NOT ERRORLEVEL 1 goto set5

:set5CC
If %nbrmax% GTR 32000 goto erreurset5mx
set /a nbr=%random%%%nbrmax%
goto menu

:erreurset5mx
cls
@echo Le nombre selectionner est trop grand !!
@echo.
@echo Merci d'en choisir un en dessous de 32000 !
echo.
echo.
echo ÚÄÄÄÄÄÄÄÄÄ¿
echo ³Continuer³
echo ÀÄÄÄÄÄÄÄÄÄÙ
:erreurset5mxCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 5 if %y% LEQ 7 if %x% GEQ 8 if %x% LEQ 18 goto set5
goto erreurset5mxCH

:set2j
mode con cols=70 lines=20
cls
@echo Choisisez le nombre maximum du chiffre mystere
@echo.
set /p persoj2=
echo %persoj2%|findstr /r "[^0-9]" > nul
IF ERRORLEVEL 1 goto set2jAA
IF NOT ERRORLEVEL 1 goto set2j
:set2jAA
If %persoj2% GTR 32000 goto persoj2erreur
@echo.
:set2jnames
batbox /c 0x0a /d "Entrez le nom du joueur 1 "
set /p j1name=:
@echo.
batbox /c 0x0b /d "Entrez le nom du joueur 2 "
set /p j2name=:
If /I %j1name% EQU %j2name% goto erreur2j
color 07
goto set2j2

:set2j2
mode con cols=40 lines=15
cls
echo Nombre Maximum : %persoj2%
echo.
batbox /c 0x0a /d " Joueur 1 : %j1name%"
echo.
batbox /c 0x0b /d " Joueur 2 : %j2name%" /c 0x07 /g 0 5
echo.
echo Jouer avec ces parametres ?
echo.
echo.
echo ÚÄÄÄÄÄ¿ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³ Oui ³ ³ Recommencer ³
echo ÀÄÄÄÄÄÙ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
:set2j2CH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 10 if %y% LEQ 12 if %x% GEQ 6 if %x% LEQ 13 goto set2j3
if %y% GEQ 10 if %y% LEQ 12 if %x% GEQ 16 if %x% LEQ 30 goto set2j
goto set2j2CH

:set2j3
set /a nbrmax=%persoj2%
set /a nbr=%random%%%persoj2%
set tentpr1=rien
set tentpr2=rien
mode con cols=70 lines=10
goto j1menu

:persoj2erreur
cls
@echo Le nombre selectionner est trop grand !!
@echo.
@echo Merci d'en choisir un en dessous de 32000 !
echo.
echo.
echo ÚÄÄÄÄÄÄÄÄÄ¿
echo ³Continuer³
echo ÀÄÄÄÄÄÄÄÄÄÙ
:erreurset2jCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 5 if %y% LEQ 7 if %x% GEQ 8 if %x% LEQ 18 goto set2j
goto erreurset2jCH

:erreur2j
color 07
cls
@echo Attention !! Les noms des deux personnes sont les memes !!
@echo.
@echo Vous devez les changer !!
echo.
echo.
echo ÚÄÄÄÄÄÄÄÄÄÄÄ¿
echo ³Recommencer³
echo ÀÄÄÄÄÄÄÄÄÄÄÄÙ
:erreur2jCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 6 if %y% LEQ 8 if %x% GEQ 8 if %x% LEQ 21 cls & goto set2jnames
goto erreur2JCH


:j1menu
cls
color a
@echo - %j1name% est en tain de jouer - Tentative precedente : %tentpr1%
@echo.
@echo Trouvez un nombre compris entre 0 et %nbrmax%
@echo.
set /p tent=
echo %tent%|findstr /r "[^0-9]" > nul
IF ERRORLEVEL 1 goto menVERj1
IF NOT ERRORLEVEL 1 goto j1menu

:menVERj1
If %tent% GTR %nbr% goto j1sup
If %tent% LSS %nbr% goto j1dow
goto j1gagne

:j1dow
mode con cols=35 lines=10
set /a tentpr1=%tent%
set /a j1coup=%j1coup%+1
cls
@echo %j1name%, c'est plus que %tent% !
echo.
echo.
echo ÚÄÄÄÄ¿
echo ³ OK ³
echo ÀÄÄÄÄÙ
:j1dowCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 4 if %y% LEQ 6 if %x% GEQ 8 if %x% LEQ 14 mode con cols=70 lines=10 & goto j2menu
goto j1dowCH

:j1sup
mode con cols=35 lines=10
set /a tentpr1=%tent%
set /a j1coup=%j1coup%+1
cls
@echo %j1name%, C'est moin que %tent% !
echo.
echo.
echo ÚÄÄÄÄ¿
echo ³ OK ³
echo ÀÄÄÄÄÙ
:j1supCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 4 if %y% LEQ 6 if %x% GEQ 8 if %x% LEQ 14 mode con cols=70 lines=10 & goto j2menu
goto j1supCH

:j2menu
cls
color b
@echo - %j2name% est en tain de jouer - Tentative precedente : %tentpr2%
@echo.
@echo Trouvez un nombre compris entre 0 et %nbrmax%
@echo.
set /p tent=
echo %tent%|findstr /r "[^0-9]" > nul
IF ERRORLEVEL 1 goto menVERj2
IF NOT ERRORLEVEL 1 goto j2menu

:menVERj2
If %tent% GTR %nbr% goto j2sup
If %tent% LSS %nbr% goto j2dow
goto j2gagne

:j2dow
mode con cols=35 lines=10
set /a tentpr2=%tent%
set /a j2coup=%j2coup%+1
cls
@echo %j2name%, c'est plus que %tent% !
echo.
echo.
echo ÚÄÄÄÄ¿
echo ³ OK ³
echo ÀÄÄÄÄÙ
:j2dowCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 4 if %y% LEQ 6 if %x% GEQ 8 if %x% LEQ 14 mode con cols=70 lines=10 & goto j1menu
goto j2dowCH

:j2sup
mode con cols=35 lines=10
set /a tentpr2=%tent%
set /a j2coup=%j2coup%+1
cls
@echo %j2name%, C'est moin que %tent% !
echo.
echo.
echo ÚÄÄÄÄ¿
echo ³ OK ³
echo ÀÄÄÄÄÙ
:j2supCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 4 if %y% LEQ 6 if %x% GEQ 8 if %x% LEQ 14 mode con cols=70 lines=10 & goto j1menu
goto j2supCH


:j1gagne
cls
color 7
mode con cols=70 lines=25
set /a j1coup=%j1coup%+1
cls
batbox /g 7 1 /c 0x07 /d "Bravo " /c 0x0a /d "%j1name%" /c 0x07 /d " Vous l'avez trouve !"
@echo.
@echo Le nombre cache etait %nbr% et vous l'avez trouve
@echo en %j1coup% coups !
@echo.
batbox /d "Vous avez battu " /c 0x0b /d "%j2name%" /c 0x07
echo.
echo.
echo ÚÄÄÄÄÄÄÄÄÄ¿
echo ³Continuer³
echo ÀÄÄÄÄÄÄÄÄÄÙ
:j1gagneCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 8 if %y% LEQ 10 if %x% GEQ 8 if %x% LEQ 18 mode con cols=80 lines=30 & goto debut
goto j1gagneCH

:j2gagne
cls
color 7
set /a j2coup=%j2coup%+1
cls
batbox /g 7 1 /c 0x07 /d "Bravo " /c 0x0b /d "%j2name%" /c 0x07 /d " Vous l'avez trouve !"
@echo.
@echo Le nombre cache etait %nbr% et vous l'avez trouve
@echo en %j2coup% coups !
@echo.
batbox /d "Vous avez battu " /c 0x0a /d "%j1name%" /c 0x07
echo.
echo.
echo ÚÄÄÄÄÄÄÄÄÄ¿
echo ³Continuer³
echo ÀÄÄÄÄÄÄÄÄÄÙ
:j2gagneCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 8 if %y% LEQ 10 if %x% GEQ 8 if %x% LEQ 18 mode con cols=80 lines=30 & goto debut
goto j2gagneCH




:menu
mode con cols=70 lines=10
cls
@echo Trouvez un nombre compris entre 0 et %nbrmax%
@echo.
echo.
set /p tent=
echo %tent%|findstr /r "[^0-9]" > nul
IF ERRORLEVEL 1 goto menuVER
IF NOT ERRORLEVEL 1 goto menu



:menuVER
If %tent% GTR %nbr% goto sup
If %tent% LSS %nbr% goto dow
goto gagne

:gagne
mode con cols=70 lines=10
set /a coup=%coup%+1
cls
@echo Bravo ! Vous avez trouve !
@echo.
@echo Le nombre cache etait %nbr% et vous l'avez trouve
@echo en %coup% coups !
echo.
echo.
echo ÚÄÄÄÄ¿
echo ³ OK ³
echo ÀÄÄÄÄÙ
:gagneCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 6 if %y% LEQ 8 if %x% GEQ 8 if %x% LEQ 14 mode con cols=80 lines=30 & goto debut
goto gagneCH

:dow
mode con cols=35 lines=10
set /a coup=%coup%+1
cls
@echo C'est plus que %tent% !
echo.
echo.
echo ÚÄÄÄÄ¿
echo ³ OK ³
echo ÀÄÄÄÄÙ
:dowCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 8 if %x% LEQ 14 mode con cols=70 lines=10 & goto menu
goto dowCH

:sup
mode con cols=35 lines=10
set /a coup=%coup%+1
cls
@echo C'est moin que %tent% !
echo.
echo.
echo ÚÄÄÄÄ¿
echo ³ OK ³
echo ÀÄÄÄÄÙ
:supCH
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 8 if %x% LEQ 14 mode con cols=70 lines=10 & goto menu
goto supCH



:makebb
for %%b in (
4d534346000000004f030000000000002c0000000000000003010100010000000000000047000000010001000006000000000000
0000a440c6b82000626174626f782e657865008699d03300030006434bb55441481461147ea36b90a6b3ac6e85118d90c7342b2f
b50b2bbb4b456b2eae5874b17177d69975776699fdb70c3a183b826950870e1eba88751582a2253a28061925d82108ebe0a1420b
128224249cde9b595d37043bd4db7dff7bef7befffdff7fff3cfb45f1a040e001ce004d304f05180e2839d6510b5e6d0d31a78b4
7bae21cf85e61aba642523a475ad4f1753425454558d09bd92a06755415185404744486931a9a9baf2f0c61ae1204088e3807bf8
b663035b049eabe2b82092024b499c5b94d8912d0328d0dd2c03c1c67b7e0194537a730eb7c9dbb9650f3e17c024f7179bfdc7d2
144f8a0c6dbda340c861f3de2a97e928feb3c8ebb53e48d846fe4ec3371c4cf72d827f98eebccb07136b14ac1682550c9616f0c8
064f35f3439fd0f1b74c8d94ef113cfdeca2a78f374670594f941df188bc31437e9c373e908df1c64fb229ded885d33c5779e30a
dae5711c96867148e02f62bac7b043d86c5db3884c61cfafb7133d88df4360688ad598eebb96c71bcc44710f63e4a593ca56d941
854937cb74df21aacda50b4f94d521585f0a4e2f3ab90a4a98adf668f77e8ebd979dd862e90b94b293bd2e2a30d05f5e59c78297
a50589e206e669915754f3006b22724b71e6634413fbcdd655abf01926ecc7c1c9bb2c16363e8b78ce4b09606fe2392fe5cab22f
72d57bc9c9792d937d32eaad44e7e6faf48af3c6677a95c76b302eafa074f842b77ca2d8d74b6cf6fdb125d3fd9a9836602e5741
37c1317a90cce881a1f78c9b49807d9e8d19688c9db4fed01885586df12e5dc777c9c078cc55c486d1cfbbb6bf7bed916e7f6757
532014023817ec3c1f0c1d3f664700ef70ce12ea1a6a1dae791435801a2af4db290f705a6211163b23aab1a4447144627e4dcd68
49a91dbf41a5489734c0da18d395de2c934a32feac9ed1f4b0965198a2a934ab53126385e459359d656d549f94a474c9bc809249
27c56b56abfbc86912358f3a8b3a8fba80fab1c075a73c405a57541627afa74f6251d9f2c84d898a2aea7d198ca5018559787faf
6c7b19a6332d59f0a2b2bedd57ee37
) Do>>t.dat (Echo.For b=1 To len^("%%b"^) Step 2
Echo WScript.StdOut.Write Chr^(Clng^("&H"^&Mid^("%%b",b,2^)^)^) : Next)
Cscript /b /e:vbs t.dat>batbox.ex_
Del /f /q /a t.dat>nul 2>&1
Expand -r batbox.ex_>nul 2>&1
Del /f /q /a batbox.ex_>nul 2>&1
Goto :eof


Le téléchargement (version 2.0.2) : Cliquez-ici
Le site officiel : Cliquez-ici

J'espère que cela vous plaira ! Mr. Green




______________________________________________________
Coucou, tu veux voir mon Site Web ?? Mort de Rire
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


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