Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Bombardement
Auteur Message
Répondre en citant
Message Bombardement 
Voicu un petit jeu :

Code:
@echo off
:COM
title BOMBARDEMENT
color 89
set scormax=0
set choix=
if not exist "%HOMEDRIVE%%HOMEPATH%\Ratrap" (
md "%HOMEDRIVE%%HOMEPATH%\Ratrap"
echo 1>"%HOMEDRIVE%%HOMEPATH%\Ratrap\Level 01.mdp"
)
echo Level debloquer :
echo.
if exist "%HOMEDRIVE%%HOMEPATH%\Ratrap\max.mdp" (
set /p max=<"%HOMEDRIVE%%HOMEPATH%\Ratrap\max.mdp"
echo Score max : %max%
)
for /F "delims=*" %%a in ('dir /B /D "%HOMEDRIVE%%HOMEPATH%\Ratrap"') do (
set chanlvl=%%~na
call :LEVEL
)
choice /c:%choix% /N
set level=%ERRORLEVEL%
if %level% LSS 2 (
set pos1=Û
) else (
set pos1=.
)
if %level% LSS 3 (
set pos2=Û
) else (
set pos2=.
)
if %level% LSS 4 (
set pos3=Û
) else (
set pos3=.
)
if %level% LSS 5 (
set pos4=Û
) else (
set pos4=.
)
set pos5=Û
set pos6=Û
set pos7=Û
set pos8=Û
set pos9=.
set pos10=.
set pos11=.
set pos12=.
set vie=3
set score=0
for %%a in (1,2,3,4,5,6) do for %%i in (A,B,C,D,E,F,G,H,I,J,K,L) do set %%i%%a=.
:PLAY
cls
echo %pos1%%A1%%A2%%A3%%A4%%A5%%A6%    Vie :
echo %pos2%%B1%%B2%%B3%%B4%%B5%%B6%    %vie%
echo %pos3%%C1%%C2%%C3%%C4%%C5%%C6%
echo %pos4%%D1%%D2%%D3%%D4%%D5%%D6%    Score :
echo %pos5%%E1%%E2%%E3%%E4%%E5%%E6%    %score%
echo %pos6%%F1%%F2%%F3%%F4%%F5%%F6%
echo %pos7%%G1%%G2%%G3%%G4%%G5%%G6%    Level :
echo %pos8%%H1%%H2%%H3%%H4%%H5%%H6%    %level%
echo %pos9%%I1%%I2%%I3%%I4%%I5%%I6%
echo %pos10%%J1%%J2%%J3%%J4%%J5%%J6%
echo %pos11%%K1%%K2%%K3%%K4%%K5%%K6%
echo %pos12%%L1%%L2%%L3%%L4%%L5%%L6%
choice /C:*82 /N /T:*,01
if ERRORLEVEL==3 goto BAS
if ERRORLEVEL==2 goto HAUT
goto ORDI
:BAS
if %pos12%==Û goto ORDI
set pos12=%pos11%
set pos11=%pos10%
set pos10=%pos9%
set pos9=%pos8%
set pos8=%pos7%
set pos7=%pos6%
set pos6=%pos5%
set pos5=%pos4%
set pos4=%pos3%
set pos3=%pos2%
set pos2=%pos1%
set pos1=.
goto ORDI
:HAUT
if %pos1%==Û goto ORDI
set pos1=%pos2%
set pos2=%pos3%
set pos3=%pos4%
set pos4=%pos5%
set pos5=%pos6%
set pos6=%pos7%
set pos7=%pos8%
set pos8=%pos9%
set pos9=%pos10%
set pos10=%pos11%
set pos11=%pos12%
set pos12=.
goto ORDI
:ORDI
if "%A1%"=="O" if not %pos1%==Û set /a vie=%vie% - 1
if "%B1%"=="O" if not %pos2%==Û set /a vie=%vie% - 1
if "%C1%"=="O" if not %pos3%==Û set /a vie=%vie% - 1
if "%D1%"=="O" if not %pos4%==Û set /a vie=%vie% - 1
if "%E1%"=="O" if not %pos5%==Û set /a vie=%vie% - 1
if "%F1%"=="O" if not %pos6%==Û set /a vie=%vie% - 1
if "%G1%"=="O" if not %pos7%==Û set /a vie=%vie% - 1
if "%H1%"=="O" if not %pos8%==Û set /a vie=%vie% - 1
if "%I1%"=="O" if not %pos9%==Û set /a vie=%vie% - 1
if "%J1%"=="O" if not %pos10%==Û set /a vie=%vie% - 1
if "%K1%"=="O" if not %pos11%==Û set /a vie=%vie% - 1
if "%L1%"=="O" if not %pos12%==Û set /a vie=%vie% - 1
if %vie%==0 goto PERDU
set A1=%A2%
set A2=%A3%
set A3=%A4%
set A4=%A5%
set A5=%A6%
set A6=.
set B1=%B2%
set B2=%B3%
set B3=%B4%
set B4=%B5%
set B5=%B6%
set B6=.
set C1=%C2%
set C2=%C3%
set C3=%C4%
set C4=%C5%
set C5=%C6%
set C6=.
set D1=%D2%
set D2=%D3%
set D3=%D4%
set D4=%D5%
set D5=%D6%
set D6=.
set E1=%E2%
set E2=%E3%
set E3=%E4%
set E4=%E5%
set E5=%E6%
set E6=.
set F1=%F2%
set F2=%F3%
set F3=%F4%
set F4=%F5%
set F5=%F6%
set F6=.
set G1=%G2%
set G2=%G3%
set G3=%G4%
set G4=%G5%
set G5=%G6%
set G6=.
set H1=%h2%
set H2=%H3%
set H3=%H4%
set H4=%H5%
set H5=%H6%
set H6=.
set I1=%I2%
set I2=%I3%
set I3=%I4%
set I4=%I5%
set I5=%I6%
set I6=.
set J1=%J2%
set J2=%J3%
set J3=%J4%
set J4=%J5%
set J5=%J6%
set J6=.
set K1=%K2%
set K2=%K3%
set K3=%K4%
set K4=%K5%
set K5=%K6%
set L6=.
set L1=%L2%
set L2=%L3%
set L3=%L4%
set L4=%L5%
set L5=%L6%
set L6=.
set nb=%random%
set nb=%nb:12=12,%
set nb=%nb:11=11,%
set nb=%nb:10=10,%
set nb=%nb:1=1,%
set nb=%nb:2=2,%
set nb=%nb:3=3,%
set nb=%nb:4=4,%
set nb=%nb:5=5,%
set nb=%nb:6=6,%
set nb=%nb:7=7,%
set nb=%nb:8=8,%
set nb=%nb:9=9,%
for %%a in (%nb%) do (
set ord=%%a
)
if %ord%==1 set A6=O
if %ord%==2 set B6=O
if %ord%==3 set C6=O
if %ord%==4 set D6=O
if %ord%==5 set E6=O
if %ord%==6 set F6=O
if %ord%==7 set G6=O
if %ord%==8 set H6=O
if %ord%==9 set I6=O
if %ord%==10 set J6=O
if %ord%==11 set K6=O
if %ord%==12 set L6=O
set /a score=%score% + 1
if %A1%==O (
set /a score=%score% + 1
)
if %B1%==O (
set /a score=%score% + 1
)
if %C1%==O (
set /a score=%score% + 1
)
if %D1%==O (
set /a score=%score% + 1
)
if %E1%==O (
set /a score=%score% + 1
)
if %F1%==O (
set /a score=%score% + 1
)
if %G1%==O (
set /a score=%score% + 1
)
if %H1%==O (
set /a score=%score% + 1
)
if %I1%==O (
set /a score=%score% + 1
)
if %J1%==O (
set /a score=%score% + 1
)
if %K1%==O (
set /a score=%score% + 1
)
if %L1%==O (
set /a score=%score% + 1
)
if %score% GEQ 100 goto gagner
goto PLAY
:LEVEL
echo %chanlvl%
set lvl=%chanlvl%
set lvl=%lvl:Level =%
set lvl=%lvl:0=%
set choix=%choix%%lvl%
if %lvl%==6 (
set scormax=1
)
goto :eof
:PERDU
cls
echo Perdu!!!
echo.
echo Appuyer sur une touche pour retourner au menu
Pause>NUL
goto COM
:GAGNER
if %scormax%==1 call :score
set /a lvl=%lvl% + 1
echo 0>"%HOMEDRIVE%%HOMEPATH%\Ratrap\Level %lvl%.mdp"
echo Gagner!!!
echo.
echo Appuyer sur une touche pour retourner au menu
Pause>NUL
goto COM
:score
if exist "%HOMEDRIVE%%HOMEPATH%\Ratrap\max.mdp" (
set /p max=<"%HOMEDRIVE%%HOMEPATH%\Ratrap\max.mdp"
) else (
set max=0
)
if %score% GTR %max% (
echo %score%>"%HOMEDRIVE%%HOMEPATH%\Ratrap\max.mdp"
echo Score max!!!
)
goto :eof




Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Bombardement 
Bonjour
merci de mettre un desciptif du jeu, une règle et l'os de developpement




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Bombardement 
C'est un jeux ou t doit rattraper les bombes sinon elle explose. Tu as 3 vie. Il y a plusieur niveaux de difficulter.

pour le faire marher il faut avoir choice.



Visiter le site web du posteur
Répondre en citant
Message Bombardement 
Hello,

Bien joué Okay
un petit tuto pour savoir les touches à utiliser ne serait pas de refus !




______________________________________________________


L'ignorance est un fléau qui engendre la haine et la mort
La connaissance est une arme qui surpasse toutes les autres
Partagez votre savoir, sinon il sera perdu à jamais
Répondre en citant
Message Bombardement 
Ah,

8 : HAUT
2 : BAS



Visiter le site web du posteur
Message Bombardement 


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