Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[BAT] Mots Croisés ^^
Auteur Message
Répondre en citant
Message [BAT] Mots Croisés ^^ 
Salut à tous:

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
Répondre en citant
Message [BAT] Mots Croisés ^^ 
Bravo stryk trop fort !
Merci d'éviter les balise HIDE.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [BAT] Mots Croisés ^^ 
Hello,

Merci Laddy Cool
Désolé pour la balise ....




______________________________________________________


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 [BAT] Mots Croisés ^^ 
Brav0 !
j'ai juste eu un ou 2 mii bugs Mr. Green




______________________________________________________
Répondre en citant
Message [BAT] Mots Croisés ^^ 
Lesquels bugs ?




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Message Publicité 


Répondre en citant
Message [BAT] Mots Croisés ^^ 
ben ça me ferme l'application suivant ce que je répond ! Crying or Very sad




______________________________________________________
Répondre en citant
Message [BAT] Mots Croisés ^^ 
Hello,

Peux tu m'en dire un peu plus, ça m'interresse pour corriger ....




______________________________________________________


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 [BAT] Mots Croisés ^^ 
Bonsoir a tous j'espère que vous allez bien
Comment dirais je Question
Okay Okay Okay Okay super Okay comme d'habitude avec Stryk



Répondre en citant
Message [BAT] Mots Croisés ^^ 
Merci Batchapp ....... Embarassed




______________________________________________________


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 [BAT] Mots Croisés ^^ 
salut, pas mal mais j'ai eu aussi quelque beug selon les réponses donnée, l'application se ferme immédiatement ...



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 | Charte | Conditions générales d'utilisation
Copyright Batch 2008-2022