Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Morpion
Auteur Message
Répondre en citant
Message Morpion 
Code:

@echo off
color 0e
setlocal enabledelayedexpansion
TITLE MORPION BY PL
::sur batch.xoo.it : "SKYSEVEN33::
Mode 38,14

echo.
echo.
echo.                       
echo.             ÛÛÛ»   ÛÛÛ»
echo.             ÛÛÛÛ» ÛÛÛÛº
echo.             ÛÛÉÛÛÛÛÉÛÛº
echo.             ÛÛºÈÛÛɼÛÛº
echo.             ÛÛº Èͼ ÛÛº
echo.             Èͼ     Èͼ
ping localhost -n 4 > nul
color f0
:RESTART
set CC=0
set "A1=Û"
set "B1=Û"
set "C1=Û"
set "A2=Û"
set "B2=Û"
set "C2=Û"
set "A3=Û"
set "B3=Û"
set "C3=Û"

set r1a=0&set r2a=0&set r3a=0&set r4a=0&set r5a=0&set r6a=0&set r7a=0&set r8a=0&set r9a=0&set r10a=0&set r11a=0&set r12a=0&set r13a=0&set r14a=0&set r15a=0&set r16a=0
set r1b=0&set r2b=0&set r3b=0&set r4b=0&set r5b=0&set r6b=0&set r7b=0&set r8b=0&set r9b=0&set r10b=0&set r11b=0&set r12b=0&set r13b=0&set r14b=0&set r15b=0&set r16b=0
set r1c=0&set r2c=0&set r3c=0&set r4c=0&set r5c=0&set r6c=0&set r7c=0&set r8c=0&set r9c=0&set r10c=0&set r11c=0&set r12c=0&set r13c=0&set r14c=0&set r15c=0&set r16c=0

:menu
set "ch="
cls
echo.
echo.
echo.             1.COMMENCER
echo.             2.RESULTAT
echo.             3.QUITTER
echo.
set /p ch=

if not defined ch goto :menu
if %ch%==1 goto :XPLACE
if %ch%==2 goto :RESULTAT
if %ch%==3 goto :EXIT
if %ch%==stop exit


goto :menu


:XPLACE

set 1=A
set 2=B
set 3=C

set /A ran=%random%%%4
set /A nom=%random%%%4
if %ran%==0 goto :XPLACE
if %nom%==0 goto :XPLACE

set let=!%ran%!
if !%let%%nom%!==X goto :XPLACE
if !%let%%nom%!==0 goto :XPLACE

set %let%%nom%=0
goto :VERIF
:START
set count=0
cls
set "X2="
echo.
echo     A   B   C
echo   ÉÍÍÍËÍÍÍËÍÍÍ»
echo 1 º %A1% º %B1% º %C1% º
echo   ÌÍÍÍÎÍÍÍÎÍÍ͹
echo 2 º %A2% º %B2% º %C2% º
echo   ÌÍÍÍÎÍÍÍÎÍÍ͹
echo 3 º %A3% º %B3% º %C3% º
echo   ÈÍÍÍÊÍÍÍÊÍÍͼ
echo.

if %r1c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r2c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r3c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r4c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r5c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r6c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r7c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r8c%==3 echo VOUS AVEZ PERDU ^^!&pause>nul&goto :RESTART
if %r9c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %r10c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %r11c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %r12c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %r13c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %r14c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %r15c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %r16c%==3 echo VOUS AVEZ GAGNE ^^!&pause>nul&goto :ADD
if %CC%==9 echo LA PARTIE EST FINI ^^!&pause>nul&goto :RESTART

set /p X2=entrer les coordonn‚es (ex :A1) :

if not defined X2 goto :START

FOR %%X in (A1 A2 A3 B1 B2 B3 C1 C2 C3 a1 a2 a3 b1 b2 b3 c1 c2 c3) do if not %X2%==%%X set /a count+=1
if %count%==18 echo coordonn‚e invalide !&pause>nul&goto :START

if !%X2%!==0 echo %X2% est deja pris ^^!&pause>nul&goto :START
if !%X2%!==X echo %X2% est deja pris ^^!&pause>nul&goto :START
set %X2%=X

goto :XPLACE


:RESULTAT
CLS
if not exist *.SAVE echo aucun r‚sultat ^^!&pause>nul&goto :menu
set "prf="
set /p prf=nom du joueur :
if not defined prf goto :RESULTAT
if not exist %prf%.SAVE echo le joueur n'existe pas ^^!&pause>nul&goto :menu
for /F "tokens=1,2 delims=/" %%A in (%prf%.SAVE) do set jer=%%A&set toto=%%B
cls
echo.
echo.
echo nom du joueur : %jer%
echo nombre de partie gagn‚ : %toto%
pause>nul
goto :menu


:VERIF
set CC=0
if not %A1%==Û set /A CC+=1
if not %B1%==Û set /A CC+=1
if not %C1%==Û set /A CC+=1
if not %A2%==Û set /A CC+=1
if not %B2%==Û set /A CC+=1
if not %C2%==Û set /A CC+=1
if not %A3%==Û set /A CC+=1
if not %B3%==Û set /A CC+=1
if not %C3%==Û set /A CC+=1

:0:horizontal::
if %A1%==0 set /A r1a=1
if %B1%==0 set /A r1b=%r1a%+1
if %C1%==0 set /A r1c=%r1b%+1


if %A2%==0 set /A r2a=1
if %B2%==0 set /A r2b=%r2a%+1
if %C2%==0 set /A r2c=%r2b%+1


if %A3%==0 set /A r3a=1
if %B3%==0 set /A r3b=%r3a%+1
if %C3%==0 set /A r3c=%r3b%+1


:0:verical::
if %A1%==0 set /A r4a=1
if %A2%==0 set /A r4b=%r4a%+1
if %A3%==0 set /A r4c=%r4b%+1


if %B1%==0 set /A r5a=1
if %B2%==0 set /A r5b=%r5a%+1
if %B3%==0 set /A r5c=%r5b%+1


if %C1%==0 set /A r6a=1
if %C2%==0 set /A r6b=%r6a%+1
if %C3%==0 set /A r6c=%r6b%+1


:0:croix::
if %A1%==0 set /A r7a=1
if %B2%==0 set /A r7b=%r7a%+1
if %C3%==0 set /A r7c=%r7b%+1


if %A3%==0 set /A r8a=1
if %B2%==0 set /A r8b=%r8a%+1
if %C1%==0 set /A r8c=%r8b%+1


:X:horizontal::
if %A1%==X set /A r9a=1
if %B1%==X set /A r9b=%r9a%+1
if %C1%==X set /A r9c=%r9b%+1


if %A2%==X set /A r10a=1
if %B2%==X set /A r10b=%r10a%+1
if %C2%==X set /A r10c=%r10b%+1


if %A3%==X set /A r11a=1
if %B3%==X set /A r11b=%r11a%+1
if %C3%==X set /A r11c=%r11b%+1


:X:verical::
if %A1%==X set /A r12a=1
if %A2%==X set /A r12b=%r12a%+1
if %A3%==X set /A r12c=%r12b%+1


if %B1%==X set /A r13a=1
if %B2%==X set /A r13b=%r13a%+1
if %B3%==X set /A r13c=%r13b%+1


if %C1%==X set /A r14a=1
if %C2%==X set /A r14b=%r14a%+1
if %C3%==X set /A r14c=%r14b%+1


:X:croix::
if %A1%==X set /A r15a=1
if %B2%==X set /A r15b=%r15a%+1
if %C3%==X set /A r15c=%r15b%+1


if %A3%==X set /A  r16a=1
if %B2%==X set /A r16b=%r16a%+1
if %C1%==X set /A r16c=%r16b%+1

goto :START


:ADD
cls
set "jor="
set /p jor=votre nom :
if not defined jor goto :ADD
cls
if not exist %jor%.SAVE echo %jor%/1 >%jor%.SAVE&goto :menu
for /f "tokens=2 delims=/" %%A in (%jor%.SAVE) do set /A t=%%A + 1
echo %jor%/%t% >%jor%.SAVE
goto :RESTART

:EXIT
cls
echo.
echo.
echo.
echo.           A BIENTOT ^^!
echo.             
echo.
echo.
echo.
ping localhost -n 3 > nul
exit
 




Dernière édition par SKYSEVEN33 le Lun 25 Avr 2016 - 16:27; édité 2 fois
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Morpion 
je n'arrive pas a faire une balise...dsl



Visiter le site web du posteur
Répondre en citant
Message Morpion 
Hey, tu dois faire :

Code:

[code]
@echo off
title bonjour
[/code]




Répondre en citant
Message Morpion 
mrc bcp pour l'info !



Visiter le site web du posteur
Répondre en citant
Message Morpion 
Merci du partage, mais essaye de faire un effort de rédaction, en expliquant l'utilisation du code et en évitant de tout abréger!


Merci Wink




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message Morpion 

c koi struk

Mort de Rire




______________________________________________________
Partager permet le savoir. Le savoir permet de partager de nouveau savoirs.
Répondre en citant
Message Morpion 
merci ,je le saurai pour la prochaine fois !Very Happy



Visiter le site web du posteur
Répondre en citant
Message Morpion 
Pas la peine de lui tomber dessus juste car il a abrégé deux mots..



Message Morpion 


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