Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Puissance 4
Auteur Message
Répondre en citant
Message Puissance 4 
Voici un puissance 4 programmer parmoi méme en utilisent l'hexadecimal. (J'esseyerai de faire un petit tuto sur l'hexadecimal en Dos.) Very Happy . Vous aurez la possibiliter de jouer contre l'ordi ou contre un ami. Le reste je vous laisse decouvrir tous seul Okay . Il peut arriver quelque fois qu'il y est une ou deux erreur Confused . Mais, c'est tres rare Smile . Le code :

Code:
@echo off
:DEB
set ret=0
set N1=4F
set N2=48
:DEBUT
color 4F
call :AFFICHAGE A "H"%N1%"u"%N1%"m"%N1%"a"%N1%"i"%N1%"n"%N1%" "%N1%"V"%N1%"s"%N1%" "%N1%"O"%N1%"r"%N1%"d"%N1%"i"%N1%
call :AFFICHAGE 30 "H"%N2%"u"%N2%"m"%N2%"a"%N2%"n"%N2%" "%N2%"V"%N2%"s"%N2%" "%N2%"H"%N2%"u"%N2%"m"%N2%"a"%N2%"n"%N2%
echo.
echo.
echo [5] Entrer
echo [4] Gauche    [6] Droite
choice /c:465 /N>NUL
if ERRORLEVEL==3 goto AP
if ERRORLEVEL==2 goto droite
if ERRORLEVEL==1 goto gauche
goto DEBUT
:droite
set N1=48
set N2=4F
goto DEBUT
:gauche
set N1=4F
set N2=48
goto DEBUT
:AP
cls
for %%a in (1,2,3,4,5,6) do for %%b in (1,2,3,4,5,6) do set n%%a%%b=40
if %N1%==4F (
set ordi=1
) else (
set ordi=0
)
set util=49
:PARTIE
echo 1 2 3 4 5 6
call :AFFICHAGE A0 "O" %n11%
call :AFFICHAGE A4 "O" %n12%
call :AFFICHAGE A8 "O" %n13%
call :AFFICHAGE AC "O" %n14%
call :AFFICHAGE B0 "O" %n15%
call :AFFICHAGE B4 "O" %n16%
call :AFFICHAGE 140 "O" %n21%
call :AFFICHAGE 144 "O" %n22%
call :AFFICHAGE 148 "O" %n23%
call :AFFICHAGE 14C "O" %n24%
call :AFFICHAGE 150 "O" %n25%
call :AFFICHAGE 154 "O" %n26%
call :AFFICHAGE 1E0 "O" %n31%
call :AFFICHAGE 1E4 "O" %n32%
call :AFFICHAGE 1E8 "O" %n33%
call :AFFICHAGE 1EC "O" %n34%
call :AFFICHAGE 1F0 "O" %n35%
call :AFFICHAGE 1F4 "O" %n36%
call :AFFICHAGE 280 "O" %n41%
call :AFFICHAGE 284 "O" %n42%
call :AFFICHAGE 288 "O" %n43%
call :AFFICHAGE 28C "O" %n44%
call :AFFICHAGE 290 "O" %n45%
call :AFFICHAGE 294 "O" %n46%
call :AFFICHAGE 320 "O" %n51%
call :AFFICHAGE 324 "O" %n52%
call :AFFICHAGE 328 "O" %n53%
call :AFFICHAGE 32C "O" %n54%
call :AFFICHAGE 330 "O" %n55%
call :AFFICHAGE 334 "O" %n56%
call :AFFICHAGE 3C0 "O" %n61%
call :AFFICHAGE 3C4 "O" %n62%
call :AFFICHAGE 3C8 "O" %n63%
call :AFFICHAGE 3CC "O" %n64%
call :AFFICHAGE 3D0 "O" %n65%
call :AFFICHAGE 3D4 "O" %n66%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
:CHOI
if %util%==49 (
set change=42
)
if %util%==42 (
set change=49
)
set util=%change%
choice /c:123456 /N >NUL
set choix=%ERRORLEVEL%
goto N%choix%
:AFFICHAGE
(echo.EB800:%1 %2
echo.q)|debug >nul
goto :eof
:N1
set bocl=16
for %%a in (%n16%,%n15%,%n14%,%n13%,%n12%,%n11%) do (
set nombre=%%a
call :BOCL
)
goto UTILIS
:N2
set bocl=26
for %%a in (%n26%,%n25%,%n24%,%n23%,%n22%,%n21%) do (
set nombre=%%a
call :BOCL
)
goto UTILIS
:N3
set bocl=36
for %%a in (%n36%,%n35%,%n34%,%n33%,%n32%,%n31%) do (
set nombre=%%a
call :BOCL
)
goto UTILIS
:N4
set bocl=46
for %%a in (%n46%,%n45%,%n44%,%n43%,%n42%,%n41%) do (
set nombre=%%a
call :BOCL
)
goto UTILIS
:N5
set bocl=56
for %%a in (%n56%,%n55%,%n54%,%n53%,%n52%,%n51%) do (
set nombre=%%a
call :BOCL
)
goto UTILIS
:N6
set bocl=66
for %%a in (%n66%,%n65%,%n64%,%n63%,%n62%,%n61%) do (
set nombre=%%a
call :BOCL
)
goto UTILIS
:BOCL
if %nombre%==40 goto UTILIS
set /a bocl=%bocl% - 1
goto :eof
:UTILIS
set n%bocl%=%util%
if %bocl%==11 call :AFFICHAGE A0 "O"%n11%
if %bocl%==21 call :AFFICHAGE A4 "O"%n21%
if %bocl%==31 call :AFFICHAGE A8 "O"%n31%
if %bocl%==41 call :AFFICHAGE AC "O"%n41%
if %bocl%==51 call :AFFICHAGE B0 "O"%n51%
if %bocl%==61 call :AFFICHAGE B4 "O"%n61%
if %bocl%==12 call :AFFICHAGE 140 "O"%n12%
if %bocl%==22 call :AFFICHAGE 144 "O"%n22%
if %bocl%==32 call :AFFICHAGE 148 "O"%n32%
if %bocl%==42 call :AFFICHAGE 14C "O"%n42%
if %bocl%==52 call :AFFICHAGE 150 "O"%n52%
if %bocl%==62 call :AFFICHAGE 154 "O"%n62%
if %bocl%==13 call :AFFICHAGE 1E0 "O"%n13%
if %bocl%==23 call :AFFICHAGE 1E4 "O"%n23%
if %bocl%==33 call :AFFICHAGE 1E8 "O"%n33%
if %bocl%==43 call :AFFICHAGE 1EC "O"%n43%
if %bocl%==53 call :AFFICHAGE 1F0 "O"%n53%
if %bocl%==63 call :AFFICHAGE 1F4 "O"%n63%
if %bocl%==14 call :AFFICHAGE 280 "O"%n14%
if %bocl%==24 call :AFFICHAGE 284 "O"%n24%
if %bocl%==34 call :AFFICHAGE 288 "O"%n34%
if %bocl%==44 call :AFFICHAGE 28C "O"%n44%
if %bocl%==54 call :AFFICHAGE 290 "O"%n54%
if %bocl%==64 call :AFFICHAGE 294 "O"%n64%
if %bocl%==15 call :AFFICHAGE 320 "O"%n15%
if %bocl%==25 call :AFFICHAGE 324 "O"%n25%
if %bocl%==35 call :AFFICHAGE 328 "O"%n35%
if %bocl%==45 call :AFFICHAGE 32C "O"%n45%
if %bocl%==55 call :AFFICHAGE 330 "O"%n55%
if %bocl%==65 call :AFFICHAGE 334 "O"%n65%
if %bocl%==16 call :AFFICHAGE 3C0 "O"%n16%
if %bocl%==26 call :AFFICHAGE 3C4 "O"%n26%
if %bocl%==36 call :AFFICHAGE 3C8 "O"%n36%
if %bocl%==46 call :AFFICHAGE 3CC "O"%n46%
if %bocl%==56 call :AFFICHAGE 3D0 "O"%n56%
if %bocl%==66 call :AFFICHAGE 3D4 "O"%n66%
if %n11%==%util% if %n22%==%util% if %n33%==%util% if %n44%==%util% (
call :AFFICHAGE A0 "O"4D
call :AFFICHAGE 144 "O"4D
call :AFFICHAGE 1E8 "O"4D
call :AFFICHAGE 28C "O"4D
goto PUISSANCE
)
if %n22%==%util% if %n33%==%util% if %n44%==%util% if %n55%==%util% (
call :AFFICHAGE 144 "O"4D
call :AFFICHAGE 1E8 "O"4D
call :AFFICHAGE 28C "O"4D
call :AFFICHAGE 330 "O"4D
goto PUISSANCE
)
if %n33%==%util% if %n44%==%util% if %n55%==%util% if %n66%==%util% (
call :AFFICHAGE 144 "O"4D
call :AFFICHAGE 1E8 "O"4D
call :AFFICHAGE 28C "O"4D
call :AFFICHAGE 3D4 "O"4D
goto PUISSANCE
)
if %n21%==%util% if %n32%==%util% if %n43%==%util% if %n54%==%util% (
call :AFFICHAGE A4 "O"4D
call :AFFICHAGE 148 "O"4D
call :AFFICHAGE 1EC "O"4D
call :AFFICHAGE 290 "O"4D
goto PUISSANCE
)
if %n32%==%util% if %n43%==%util% if %n54%==%util% if %n65%==%util% (
call :AFFICHAGE 148 "O"4D
call :AFFICHAGE 1EC "O"4D
call :AFFICHAGE 290 "O"4D
call :AFFICHAGE 334 "O"4D
goto PUISSANCE
)
if %n12%==%util% if %n23%==%util% if %n34%==%util% if %n45%==%util% (
call :AFFICHAGE 140 "O"4D
call :AFFICHAGE 1E4 "O"4D
call :AFFICHAGE 288 "O"4D
call :AFFICHAGE 32C "O"4D
goto PUISSANCE
)
if %n23%==%util% if %n34%==%util% if %n45%==%util% if %n56%==%util% (
call :AFFICHAGE 1E4 "O"4D
call :AFFICHAGE 288 "O"4D
call :AFFICHAGE 32C "O"4D
call :AFFICHAGE 3D0 "O"4D
goto PUISSANCE
)
if %n62%==%util% if %n53%==%util% if %n44%==%util% if %n35%==%util% (
call :AFFICHAGE 154 "O"4D
call :AFFICHAGE 1F0 "O"4D
call :AFFICHAGE 28C "O"4D
call :AFFICHAGE 328 "O"4D
goto PUISSANCE
)
if %n53%==%util% if %n44%==%util% if %n35%==%util% if %n26%==%util% (
call :AFFICHAGE 1F0 "O"4D
call :AFFICHAGE 28C "O"4D
call :AFFICHAGE 328 "O"4D
call :AFFICHAGE 3C4 "O"4D
goto PUISSANCE
)
if %n61%==%util% if %n52%==%util% if %n43%==%util% if %n34%==%util% (
call :AFFICHAGE B4 "O"AD
call :AFFICHAGE 150 "O"AD
call :AFFICHAGE 1EC "O"AD
call :AFFICHAGE 288 "O"AD
goto PUISSANCE
)
if %n52%==%util% if %n43%==%util% if %n34%==%util% if %n25%==%util% (
call :AFFICHAGE 150 "O"AD
call :AFFICHAGE 1EC "O"AD
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 324 "O"AD
goto PUISSANCE
)
if %n43%==%util% if %n34%==%util% if %n25%==%util% if %n16%==%util% (
call :AFFICHAGE 1EC "O"AD
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 3C0 "O"AD
goto PUISSANCE
)
if %n41%==%util% if %n32%==%util% if %n23%==%util% if %n14%==%util% (
call :AFFICHAGE AC "O"AD
call :AFFICHAGE 148 "O"AD
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 280 "O"AD
goto PUISSANCE
)
if %n51%==%util% if %n42%==%util% if %n33%==%util% if %n24%==%util% (
call :AFFICHAGE B0 "O"AD
call :AFFICHAGE 14C "O"AD
call :AFFICHAGE 1E8 "O"AD
call :AFFICHAGE 284 "O"AD
goto PUISSANCE
)
if %n11%==%util% if %n12%==%util% if %n13%==%util% if %n14%==%util% (
call :AFFICHAGE A0 "O"AD
call :AFFICHAGE 140 "O"AD
call :AFFICHAGE 1E0 "O"AD
call :AFFICHAGE 280 "O"AD
goto PUISSANCE
)
if %n12%==%util% if %n13%==%util% if %n14%==%util% if %n15%==%util% (
call :AFFICHAGE 140 "O"AD
call :AFFICHAGE 1E0 "O"AD
call :AFFICHAGE 280 "O"AD
call :AFFICHAGE 320 "O"AD
goto PUISSANCE
)
if %n13%==%util% if %n14%==%util% if %n15%==%util% if %n16%==%util% (
call :AFFICHAGE 1E0 "O"AD
call :AFFICHAGE 280 "O"AD
call :AFFICHAGE 320 "O"AD
call :AFFICHAGE 3C0 "O"AD
goto PUISSANCE
)
if %n21%==%util% if %n22%==%util% if %n23%==%util% if %n24%==%util% (
call :AFFICHAGE A4 "O"AD
call :AFFICHAGE 144 "O"AD
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 284 "O"AD
goto PUISSANCE
)
if %n22%==%util% if %n23%==%util% if %n24%==%util% if %n25%==%util% (
call :AFFICHAGE 144 "O"AD
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 284 "O"AD
call :AFFICHAGE 324 "O"AD
goto PUISSANCE
)
if %n23%==%util% if %n24%==%util% if %n25%==%util% if %n26%==%util% (
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 284 "O"AD
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 3C4 "O"AD
goto PUISSANCE
)
if %n31%==%util% if %n32%==%util% if %n33%==%util% if %n34%==%util% (
call :AFFICHAGE 1E0 "O"AD
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 1E8 "O"AD
call :AFFICHAGE 1EC "O"AD
goto PUISSANCE
)
if %n32%==%util% if %n33%==%util% if %n34%==%util% if %n35%==%util% (
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 1E8 "O"AD
call :AFFICHAGE 1EC "O"AD
call :AFFICHAGE 1F0 "O"AD
goto PUISSANCE
)
if %n33%==%util% if %n34%==%util% if %n35%==%util% if %n36%==%util% (
call :AFFICHAGE 1E8 "O"AD
call :AFFICHAGE 1EC "O"AD
call :AFFICHAGE 1F0 "O"AD
call :AFFICHAGE 1F4 "O"AD
goto PUISSANCE
)
if %n41%==%util% if %n42%==%util% if %n43%==%util% if %n44%==%util% (
call :AFFICHAGE 280 "O"AD
call :AFFICHAGE 284 "O"AD
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 28C "O"AD
goto PUISSANCE
)
if %n42%==%util% if %n43%==%util% if %n44%==%util% if %n45%==%util% (
call :AFFICHAGE 284 "O"AD
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 28C "O"AD
call :AFFICHAGE 290 "O"AD
goto PUISSANCE
)
if %n43%==%util% if %n44%==%util% if %n45%==%util% if %n46%==%util% (
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 28C "O"AD
call :AFFICHAGE 290 "O"AD
call :AFFICHAGE 294 "O"AD
goto PUISSANCE
)
if %n51%==%util% if %n52%==%util% if %n53%==%util% if %n54%==%util% (
call :AFFICHAGE 320 "O"AD
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 328 "O"AD
call :AFFICHAGE 32C "O"AD
goto PUISSANCE
)
if %n52%==%util% if %n53%==%util% if %n54%==%util% if %n55%==%util% (
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 328 "O"AD
call :AFFICHAGE 32C "O"AD
call :AFFICHAGE 330 "O"AD
goto PUISSANCE
)
if %n53%==%util% if %n54%==%util% if %n55%==%util% if %n56%==%util% (
call :AFFICHAGE 320 "O"AD
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 328 "O"AD
call :AFFICHAGE 32C "O"AD
goto PUISSANCE
)
if %n61%==%util% if %n62%==%util% if %n63%==%util% if %n64%==%util% (
call :AFFICHAGE 3C8 "O"AD
call :AFFICHAGE 3CC "O"AD
call :AFFICHAGE 3D0 "O"AD
call :AFFICHAGE 3D4 "O"AD
goto PUISSANCE
)
if %n62%==%util% if %n63%==%util% if %n64%==%util% if %n65%==%util% (
call :AFFICHAGE 3C4 "O"AD
call :AFFICHAGE 3C8 "O"AD
call :AFFICHAGE 3CC "O"AD
call :AFFICHAGE 3D0 "O"AD
goto PUISSANCE
)
if %n63%==%util% if %n64%==%util% if %n65%==%util% if %n66%==%util% (
call :AFFICHAGE 3C0 "O"AD
call :AFFICHAGE 3C4 "O"AD
call :AFFICHAGE 3C8 "O"A
call :AFFICHAGE 3CC "O"AD
goto PUISSANCE
)
if %n11%==%util% if %n21%==%util% if %n31%==%util% if %n41%==%util% (
call :AFFICHAGE A0 "O"AD
call :AFFICHAGE A4 "O"AD
call :AFFICHAGE A8 "O"AD
call :AFFICHAGE AC "O"AD
goto PUISSANCE
)
if %n21%==%util% if %n31%==%util% if %n41%==%util% if %n51%==%util% (
call :AFFICHAGE A4 "O"AD
call :AFFICHAGE A8 "O"AD
call :AFFICHAGE AC "O"AD
call :AFFICHAGE B0 "O"AD
goto PUISSANCE
)
if %n31%==%util% if %n41%==%util% if %n51%==%util% if %n61%==%util% (
call :AFFICHAGE A8 "O"AD
call :AFFICHAGE AC "O"AD
call :AFFICHAGE B0 "O"AD
call :AFFICHAGE B4 "O"AD
goto PUISSANCE
)
if %n12%==%util% if %n22%==%util% if %n32%==%util% if %n42%==%util% (
call :AFFICHAGE 140 "O"AD
call :AFFICHAGE 144 "O"AD
call :AFFICHAGE 148 "O"AD
call :AFFICHAGE 14C "O"AD
goto PUISSANCE
)
if %n22%==%util% if %n32%==%util% if %n42%==%util% if %n52%==%util% (
call :AFFICHAGE 144 "O"AD
call :AFFICHAGE 148 "O"AD
call :AFFICHAGE 14C "O"AD
call :AFFICHAGE 150 "O"AD
goto PUISSANCE
)
if %n32%==%util% if %n42%==%util% if %n52%==%util% if %n62%==%util% (
call :AFFICHAGE 148 "O"AD
call :AFFICHAGE 14C "O"AD
call :AFFICHAGE 150 "O"AD
call :AFFICHAGE 154 "O"AD
goto PUISSANCE
)
if %n13%==%util% if %n23%==%util% if %n33%==%util% if %n43%==%util% (
call :AFFICHAGE 1E0 "O"AD
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 1E8 "O"AD
call :AFFICHAGE 1EC "O"AD
goto PUISSANCE
)
if %n23%==%util% if %n33%==%util% if %n43%==%util% if %n53%==%util% (
call :AFFICHAGE 1E4 "O"AD
call :AFFICHAGE 1E8 "O"AD
call :AFFICHAGE 1EC "O"AD
call :AFFICHAGE 1F0 "O"AD
goto PUISSANCE
)
if %n33%==%util% if %n43%==%util% if %n53%==%util% if %n63%==%util% (
call :AFFICHAGE 1E8 "O"AD
call :AFFICHAGE 1EC "O"AD
call :AFFICHAGE 1F0 "O"AD
call :AFFICHAGE 1F4 "O"AD
goto PUISSANCE
)
if %n14%==%util% if %n24%==%util% if %n34%==%util% if %n44%==%util% (
call :AFFICHAGE 280 "O"AD
call :AFFICHAGE 284 "O"AD
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 28C "O"AD
goto PUISSANCE
)
if %n24%==%util% if %n34%==%util% if %n44%==%util% if %n54%==%util% (
call :AFFICHAGE 284 "O"AD
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 28C "O"AD
call :AFFICHAGE 290 "O"AD
goto PUISSANCE
)
if %n34%==%util% if %n44%==%util% if %n54%==%util% if %n64%==%util% (
call :AFFICHAGE 288 "O"AD
call :AFFICHAGE 28C "O"AD
call :AFFICHAGE 290 "O"AD
call :AFFICHAGE 294 "O"AD
goto PUISSANCE
)
if %n15%==%util% if %n25%==%util% if %n35%==%util% if %n45%==%util% (
call :AFFICHAGE 320 "O"AD
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 328 "O"AD
call :AFFICHAGE 32C "O"AD
goto PUISSANCE
)
if %n25%==%util% if %n35%==%util% if %n45%==%util% if %n55%==%util% (
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 328 "O"AD
call :AFFICHAGE 32C "O"AD
call :AFFICHAGE 330 "O"AD
goto PUISSANCE
)
if %n35%==%util% if %n45%==%util% if %n55%==%util% if %n65%==%util% (
call :AFFICHAGE 328 "O"AD
call :AFFICHAGE 32C "O"AD
call :AFFICHAGE 330 "O"AD
call :AFFICHAGE 334 "O"AD
goto PUISSANCE
)
if %n15%==%util% if %n25%==%util% if %n35%==%util% if %n45%==%util% (
call :AFFICHAGE 320 "O"AD
call :AFFICHAGE 324 "O"AD
call :AFFICHAGE 328 "O"AD
call :AFFICHAGE 32C "O"AD
goto PUISSANCE
)
if %n26%==%util% if %n36%==%util% if %n46%==%util% if %n56%==%util% (
call :AFFICHAGE 3C0 "O"AD
call :AFFICHAGE 3C4 "O"AD
call :AFFICHAGE 3C8 "O"AD
call :AFFICHAGE 3CC "O"AD
goto PUISSANCE
)
if %n36%==%util% if %n46%==%util% if %n56%==%util% if %n66%==%util% (
call :AFFICHAGE 3C4 "O"AD
call :AFFICHAGE 3C8 "O"AD
call :AFFICHAGE 3CC "O"AD
call :AFFICHAGE 3D0 "O"AD
goto PUISSANCE
)
if %n16%==%util% if %n26%==%util% if %n36%==%util% if %n46%==%util% (
call :AFFICHAGE 3C8 "O"AD
call :AFFICHAGE 3CC "O"AD
call :AFFICHAGE 3D0 "O"AD
call :AFFICHAGE 3D4 "O"AD
goto PUISSANCE
)
if %ret%==2 (
set ret=0
goto CHOI
)
if %ordi%==0 goto CHOI
set ret=2
set call3=DEBOR
set nblop=0
:REF
set ret=2
set /a nblop=%nblop%+1
set /a som=%util% * 3
set fin=16
set nb1=11
set nb2=12
set nb3=13
set call2=1
call :%call3%
set fin=26
set nb1=21
set nb2=22
set nb3=23
set call2=1
call :%call3%
set fin=36
set nb1=31
set nb2=32
set nb3=33
set call2=1
call :%call3%
set fin=46
set nb1=41
set nb2=42
set nb3=43
set call2=1
call :%call3%
set fin=56
set nb1=51
set nb2=52
set nb3=53
set call2=1
call :%call3%
set fin=66
set nb1=61
set nb2=62
set nb3=63
set call2=1
call :%call3%
set fin=61
set nb1=11
set nb2=21
set nb3=31
set call2=2
call :%call3%
set fin=62
set nb1=12
set nb2=22
set nb3=32
set call2=2
call :%call3%
set fin=63
set nb1=13
set nb2=23
set nb3=33
set call2=2
call :%call3%
set fin=64
set nb1=14
set nb2=24
set nb3=34
set call2=2
call :%call3%
set fin=65
set nb1=15
set nb2=25
set nb3=35
set call2=2
call :%call3%
set fin=66
set nb1=16
set nb2=26
set nb3=36
set call2=2
call :%call3%
set fin=64
set nb1=31
set nb2=42
set nb3=53
set call2=3
call :%call3%
set fin=65
set nb1=21
set nb2=32
set nb3=43
set call2=3
call :%call3%
set fin=55
set nb1=11
set nb2=22
set nb3=33
set call2=3
call :%call3%
set fin=56
set nb1=12
set nb2=23
set nb3=34
set call2=3
call :%call3%
set fin=46
set nb1=13
set nb2=24
set nb3=35
set call2=3
call :%call3%
set fin=63
set nb1=36
set nb2=45
set nb3=54
set call2=4
call :%call3%
set fin=62
set nb1=26
set nb2=35
set nb3=44
set call2=4
call :%call3%
set fin=61
set nb1=16
set nb2=25
set nb3=34
set call2=4
call :%call3%
set fin=51
set nb1=15
set nb2=24
set nb3=33
set call2=4
call :%call3%
set fin=41
set nb1=14
set nb2=23
set nb3=32
set call2=4
call :%call3%
if %call3%==DEBOR2 goto HAS
if %nblop%==2 goto HAS
set call3=DEBOR2
if %util%==49 (
set change=42
)
if %util%==42 (
set change=49
)
set util=%change%
goto REF
:HAS
if %util%==49 (
set change=42
)
if %util%==42 (
set change=49
)
set nb1=%random%
set nb1=%nb1:1=,1%
set nb1=%nb1:2=,2%
set nb1=%nb1:3=,3%
set nb1=%nb1:4=,4%
set nb1=%nb1:5=,5%
set nb1=%nb1:6=,6%
set nb1=%nb1:7=,7%
set nb1=%nb1:8=,8%
set nb1=%nb1:9=,9%
for %%a in (%nb1%) do (
set case=%%a
)
if %case%==7 (
set case=1
)
if %case%==8 (
set case=2
)
if %case%==9 (
set case=3
)
if %util%==49 (
set change=42
)
if %util%==42 (
set change=49
)
set util=49
goto N%case%
:DEBOR
call :calc%call2%
if %ord%==%som% (
goto joue
)
if %nb3%==%fin% goto :eof
goto DEBOR
:DEBOR2
call :calc%call2%
if %ord%==%som% (
call :joue2
)
if %nb3%==%fin% goto :eof
goto DEBOR2
:calc1
set /a nb1=%nb1%+1
set /a nb2=%nb2%+1
set /a nb3=%nb3%+1
set /a ord=%nb1%+%nb2%+%nb3%
goto :eof
:calc2
set /a nb1=%nb1%+10
set /a nb2=%nb2%+10
set /a nb3=%nb3%+10
set /a ord=%nb1%+%nb2%+%nb3%
goto :eof
:calc3
set /a nb1=%nb1%+11
set /a nb2=%nb2%+11
set /a nb3=%nb3%+11
set /a ord=%nb1%+%nb2%+%nb3%
goto :eof
:calc4
set /a nb1=%nb1%+9
set /a nb2=%nb2%+9
set /a nb3=%nb3%+9
set /a ord=%nb1%+%nb2%+%nb3%
goto :eof

:JOUE
if %util%==49 (
set change=42
)
if %util%==42 (
set change=49
)
set orchange=1
set util=%change%
:Joue2
if %util% GTR 16 (
set /a util2=%util% - 10
) else goto APPSOUS
:SOUS
if %util2% GTR 16 (
set /a util2=%util% - 10
) else goto APPSOUS
if %util2%==11 set util3=%n11%
if %util2%==12 set util3=%n12%
if %util2%==13 set util3=%n13%
if %util2%==14 set util3=%n14%
if %util2%==15 set util3=%n15%
if %util2%==16 set util3=%n16%
if %util2%==21 set util3=%n21%
if %util2%==22 set util3=%n22%
if %util2%==23 set util3=%n23%
if %util2%==24 set util3=%n24%
if %util2%==25 set util3=%n25%
if %util2%==26 set util3=%n26%
if %util2%==31 set util3=%n31%
if %util2%==32 set util3=%n32%
if %util2%==33 set util3=%n33%
if %util2%==34 set util3=%n34%
if %util2%==35 set util3=%n35%
if %util2%==36 set util3=%n36%
if %util2%==41 set util3=%n41%
if %util2%==42 set util3=%n42%
if %util2%==43 set util3=%n43%
if %util2%==44 set util3=%n44%
if %util2%==45 set util3=%n45%
if %util2%==46 set util3=%n46%
if %util2%==51 set util3=%n51%
if %util2%==52 set util3=%n52%
if %util2%==53 set util3=%n53%
if %util2%==54 set util3=%n54%
if %util2%==55 set util3=%n55%
if %util2%==56 set util3=%n56%
if %util2%==61 set util3=%n61%
if %util2%==62 set util3=%n62%
if %util2%==63 set util3=%n63%
if %util2%==64 set util3=%n64%
if %util2%==65 set util3=%n65%
if %util2%==66 set util3=%n66%
if "%util3%"=="" goto :eof
if %util% GTR 17 if %util3%==40 goto :eof
goto SOUS
:APPSOUS
set /a joue=%nb3%+1
if %joue%==17 (
set /a joue=%nb1%-1
set bocl=%joue%
SET ret=2
goto utilis
:PUISSANCE
echo Puissance4!!!
echo.
echo Rejouer?
choice
IF ERRORLEVEL==2 exit
goto DEB




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


Répondre en citant
Message Puissance 4 
salut !
pas mal !

Te reste à améliorer l'IA qui est vraiment c****.
De plus quand on aligne 4 case en bas, l'ordi surligne les 4 case de droite, même si ce sont les 4 de gauche qui ont permis de gagner.
De plus un petit cls après le label DEB ne serait pas de refus ...


Vivement ton tuto sur l'hexa Smile



Répondre en citant
Message Puissance 4 
il marche pas chez moi : windows xp
il s'ouvre, charge le jeu (les colonnes) mais quitte après... Crying or Very sad
sinon super le code Okay ! même si je comprends pas... ^^




______________________________________________________
Répondre en citant
Message Puissance 4 
Hello,

Même souci que Sablier !
Même config' ...

Bravo, tu t'améliores beaucoups Okay

@+++




______________________________________________________


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 Puissance 4 
Je suis en train de fiare un p'tit Tuto. Je vais le mettre en PDF et le publier dés que j'aurais finis!!!



Visiter le site web du posteur
Répondre en citant
Message Puissance 4 
Salut,

En fait le souci vient de "choice" !
tu n'as pas géré le fait qu'il n'est pas installé sur le système ...
Peut-être peux-tu inclure l'installation dans ton code ??

encore bravo, très sympa Okay
@++




______________________________________________________


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
Message Puissance 4 


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