Voici un mini-mots croisés en batch, sans commande externe, compatibles tous Windows ^^
Code:
@echo off
title Mots crois‚s ^| By STRYK
mode con cols=60 lines=25 &color 1A
set A1=Û
set A2=_
set A3=Û
set A4=Û
set A5=Û
set B1=_
set B2=_
set B3=_
set B4=Û
set B5=Û
set C1=Û
set C2=_
set C3=_
set C4=_
set C5=_
set D1=_
set D2=_
set D3=_
set D4=_
set D5=Û
set E1=Û
set E2=Û
set E3=_
set E4=Û
set E5=Û
:GAME_1
cls
echo.
echo.
echo ³1³2³3³4³5³
echo ³ ³ ³ ³ ³ ³ -- Horizontalement:
echo ÄÄÄÉÍÍÍÍÍÍÍÍÍ»
echo A º%A1%³%A2%³%A3%³%A4%³%A5%º B _ Memoire informatique
echo ÄÄĺÄ+Ä+Ä+Ä+ĺ C _ A toi
echo B º%B1%³%B2%³%B3%³%B4%³%B5%º D _ Animal
echo ÄÄĺÄ+Ä+Ä+Ä+ĺ
echo C º%C1%³%C2%³%C3%³%C4%³%C5%º -- Verticalement:
echo ÄÄĺÄ+Ä+Ä+Ä+ĺ
echo D º%D1%³%D2%³%D3%³%D4%³%D5%º 2 _ Bain Anglais
echo ÄÄĺÄ+Ä+Ä+Ä+ĺ 3 _ C'est bon
echo E º%E1%³%E2%³%E3%³%E4%³%E5%º 4 _ Liaison
echo ÄÄÄÈÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo Selectionnez un mot (exemple: 2 , 4 , B)
set SELECT=NONE
set /p SELECT=\\:
echo %SELECT% | Findstr "2 3 4 B C D b c d">nul
if not %errorlevel%==0 (
echo Saisie non valide !
@ping localhost -n 3 >nul
goto :GAME_1
)
echo Entrez le mot
set WORD=0
set /p WORD=\\:
goto :WORD_%SELECT%
:WORD_B
set B1=%WORD:~0,1%
set B2=%WORD:~1,1%
set B3=%WORD:~2,1%
goto :VERIF
:WORD_C
set C2=%WORD:~0,1%
set C3=%WORD:~1,1%
set C4=%WORD:~2,1%
set C5=%WORD:~3,1%
goto :VERIF
:WORD_D
set D1=%WORD:~0,1%
set D2=%WORD:~1,1%
set D3=%WORD:~2,1%
set D4=%WORD:~3,1%
goto :VERIF
:WORD_2
set A2=%WORD:~0,1%
set B2=%WORD:~1,1%
set C2=%WORD:~2,1%
set D2=%WORD:~3,1%
goto :VERIF
:WORD_3
set B3=%WORD:~0,1%
set C3=%WORD:~1,1%
set D3=%WORD:~2,1%
set E3=%WORD:~3,1%
goto :VERIF
:WORD_4
set C4=%WORD:~0,1%
set D4=%WORD:~1,1%
goto :VERIF
:VERIF
if /i %A2% NEQ b goto :GAME_1
if /i %B1% NEQ r goto :GAME_1
if /i %B2% NEQ a goto :GAME_1
if /i %B3% NEQ m goto :GAME_1
if /i %C2% NEQ t goto :GAME_1
if /i %C3% NEQ i goto :GAME_1
if /i %C4% NEQ e goto :GAME_1
if /i %C5% NEQ n goto :GAME_1
if /i %D1% NEQ c goto :GAME_1
if /i %D2% NEQ h goto :GAME_1
if /i %D3% NEQ a goto :GAME_1
if /i %D4% NEQ t goto :GAME_1
if /i %E3% NEQ m goto :GAME_1
:FINISH
cls
echo.
echo.
echo.
echo.
echo Bravo, jeu 1 fini !
echo.
echo.
echo Bientot, le jeu 2 sera disponible.
pause>nul
goto :EOF
______________________________________________________
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