Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Cible assez classe
Auteur Message
Répondre en citant
Message Cible assez classe 
Bonsoir,
Je mets ici une petite cible mouvante avec les flèches et qu'on peut agrandir et rapeticer à l'aide des touches +,-,/,*
J'ai fait ce code avec batbox de base mais j'ai adapté à darkbox !
Veillez à avoir pixelfnt pour un affichage optimal !
PixelFNT : http://www.sendspace.com/file/ifzx4a


Code:

@echo off
setlocal enabledelayedexpansion enableextensions
mode con cols=600 lines=300
color c
pixelfnt 2
rem shema

rem ------- %horizontale% %reperehaut% -------
rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --


rem %vertical%
rem %reperegauche%              %reperedroite%


rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --
rem ------- %horizontale% %reperebas%  -------

rem Definition des variables de base
set x=1
set y=1
batbox /h 0

rem toujours pair min 2
set nbrverticale=2
set nbrhorizontale=2
set couleurcrochets=c
set couleurtiret=1
set couleurrepere=4
set mouvement=rien
:debut
batbox /k_
if %errorlevel%==327 set mouvement=up
if %errorlevel%==335 set mouvement=down
if %errorlevel%==332 set mouvement=right
if %errorlevel%==330 set mouvement=left
if %errorlevel%==45 if %nbrhorizontale% GTR 2 set /a nbrhorizontale-=2
if %errorlevel%==47 if %nbrverticale% GTR 2 set /a nbrverticale-=2
if %errorlevel%==43 set /a nbrhorizontale+=2
if %errorlevel%==42 set /a nbrverticale+=2
if %mouvement%==up if %y% GTR 5 set /a y-=5
if %mouvement%==down set /a y+=5
if %mouvement%==right set /a x+=5
if %mouvement%==left if %x% GTR 5 set /a x-=5
call:carre
goto debut
:carre
set crochetsduhaut=
set tiretduhaut=
set crochetsdubas=
set tiretsverticaux=
call:crochetsduhaut
call:crochetsdubas
call:tiretshorizontaux
call:tiretsverticaux
call:affiche
goto:eof



:crochetsduhaut
set nbr=0
set crochetsduhaut=
set /a ycrochetverticale=%y%+2
set /a ycrochetverticale1=%ycrochetverticale%+1
set /a ycrochetverticale2=%ycrochetverticale1%+1
set /a ycrochetverticale3=%ycrochetverticale2%+1
set /a ycrochetverticale4=%ycrochetverticale3%+1
set xcrochethorizontale=%x%
set ycrochethorizontale=%y%
:loopcrochetsduhauthorizontaux
set xcrochetverticale=%xcrochethorizontale%
if %nbr%==1 set /a xcrochethorizontale=(%nbrhorizontale%*4)+12+%x%
if %nbr%==1 set /a xcrochetverticale=%xcrochethorizontale%+5
set /a ycrochethorizontale1=%y%+1
call:crochets
set crochetsduhaut=%crochetsduhaut%%crochethorizontale%%crochetvertical%
if %nbr%==1 goto:eof
set /a nbr+=1
goto loopcrochetsduhauthorizontaux

:crochetsdubas
set nbr=0
set crochetsdubas=
set /a ycrochetverticale=(%nbrverticale%*4)+12+%y%
set /a ycrochetverticale1=%ycrochetverticale%+1
set /a ycrochetverticale2=%ycrochetverticale1%+1
set /a ycrochetverticale3=%ycrochetverticale2%+1
set /a ycrochetverticale4=%ycrochetverticale3%+1
set xcrochethorizontale=%x%
:loopcrochetsdubashorizontaux
set xcrochetverticale=%xcrochethorizontale%
if %nbr%==1 set /a xcrochethorizontale=(%nbrhorizontale%*4)+12+%x%
if %nbr%==1 set /a xcrochetverticale=%xcrochethorizontale%+5
set /a ycrochethorizontale=%ycrochetverticale%+5
set /a ycrochethorizontale1=%ycrochethorizontale%+1
call:crochets
set crochetsdubas=%crochetsdubas%%crochethorizontale%%crochetvertical%
if %nbr%==1 goto:eof
set /a nbr+=1
goto loopcrochetsdubashorizontaux

:tiretshorizontaux
set nbr=1
set tiretduhautdroit=
set tiretduhautgauche=
set /a xtirethorizontale=%x%+4
set /a nbrdemitirets=%nbrhorizontale%/2
set ytirethorizontale=%y%
call:looptiretshorizontaux1
set nbr=1
set xtirethorizontale=
set /a xtirethorizontale=%x%+4
set /a nbrdemitirets=%nbrhorizontale%/2
set /a ytirethorizontale=(%nbrverticale%*4)+18+%y%
call:looptiretshorizontaux1
set tiretduhaut=
set tiretduhaut=%tiretduhautdroit%%tiretduhautgauche%
goto:eof
:looptiretshorizontaux1
set /a xtirethorizontale=%xtirethorizontale%+4
call:tirets
set tiretduhautdroit=%tiretduhautdroit%%tirethorizontale%
if %nbr% EQU %nbrdemitirets% (
set tiret=bas
if %ytirethorizontale%==%y% set tiret=haut
call:repereshorizontaux
set /a xtirethorizontale=%xtirethorizontale%+4
set nbr=1
goto looptiretshorizontaux2
)
set /a nbr+=1
goto looptiretshorizontaux1
:looptiretshorizontaux2
set /a xtirethorizontale=%xtirethorizontale%+4
call:tirets
set tiretduhautgauche=%tiretduhautgauche%%tirethorizontale%
if %nbr% EQU %nbrdemitirets% (
set tiretduhautdroit=%tiretduhautdroit% /c 0x%couleurrepere%%reperehaut%
goto:eof
)
set /a nbr+=1
goto looptiretshorizontaux2


:tiretsverticaux
set /a ytiretverticale=%y%+8
set /a deminbrtirets=%nbrverticale%/2
set /a xtiretverticalegauche=(%nbrhorizontale%*4)+18+%x%
set xtiretverticaledroite=%x%
set nbr=1
set tiretsverticauxdessus=
set tiretsverticauxdessous=
:looptiretsverticauxdessus
call:tirets
set tiretsverticauxdessus=%tiretsverticauxdessus%%tiretverticale%
if %nbr%==%deminbrtirets% (
call:reperesverticaux
set nbr=1
goto looptiretsverticauxdessous
)
set /a ytiretverticale+=4
set /a nbr+=1
goto looptiretsverticauxdessus
:looptiretsverticauxdessous
call:tirets
set tiretsverticauxdessous=%tiretsverticauxdessous%%tiretverticale%
if %nbr%==%deminbrtirets% (
set tiretsverticaux=%tiretsverticauxdessus%%tiretsverticauxdessous%
goto:eof
)
set /a ytiretverticale+=4
set /a nbr+=1
goto looptiretsverticauxdessous




:crochets
rem crochets
set crochetvertical=
set crochethorizontale=
set crochethorizontale= /g %xcrochethorizontale% %ycrochethorizontale% /a 219 /a 219 /a 219 /a 219 /a 219 /a 219 /a 219 /g %xcrochethorizontale% %ycrochethorizontale1% /a 219 /a 219 /a 219 /a 219 /a 219 /a 219 /a 219
set crochetvertical= /g %xcrochetverticale% %ycrochetverticale% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale1% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale2% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale3% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale4% /a 219 /a 219
goto:eof

:tirets
rem tirets
set tirethorizontale=
set tiretverticale=
set tirethorizontale= /g %xtirethorizontale% %ytirethorizontale% /a 219 /a 219 /a 219
set /a ytiretverticale1=%ytiretverticale%+1
set /a ytiretverticale2=%ytiretverticale1%+1
set tiretverticale= /g %xtiretverticaledroite% %ytiretverticale% /a 219 /g %xtiretverticaledroite% %ytiretverticale1% /a 219 /g %xtiretverticaledroite% %ytiretverticale2% /a 219 /g %xtiretverticalegauche% %ytiretverticale% /a 219 /g %xtiretverticalegauche% %ytiretverticale1% /a 219 /g %xtiretverticalegauche% %ytiretverticale2% /a 219
goto:eof

:repereshorizontaux
set reperehaut=
set xbarrereperehaut=
set ybarrereperehaut=
set /a xtirethorizontale+=4
set xbarrereperehaut=%xtirethorizontale%
set ybarrereperehaut=%ytirethorizontale%
if %tiret%==bas set /a yreperehaut=%ytirethorizontale%-1
if %tiret%==haut set /a yreperehaut=%ytirethorizontale%+1
set /a xreperehaut=%xtirethorizontale%+1
rem reperes
set reperehaut= /g %xbarrereperehaut% %ybarrereperehaut% /a 219 /a 219 /a 219 /g %xreperehaut% %yreperehaut% /a 219 /c 0x%couleurtiret%
goto:eof
:reperesverticaux
set repere=
set /a ytiretverticale+=4
set /a xreperedroit=%x%+1
set /a xreperegauche=%xtiretverticalegauche%-1
set /a ytiretverticale1=%ytiretverticale%+1
set /a ytiretverticale2=%ytiretverticale1%+1
set yreperedroit=%ytiretverticale1%
set yreperegauche=%ytiretverticale1%
set repere=
set repere= /g %xtiretverticaledroite% %ytiretverticale% /a 219 /c 0x%couleurrepere% /g %xtiretverticaledroite% %ytiretverticale1% /a 219 /c 0x%couleurrepere% /g %xtiretverticaledroite% %ytiretverticale2% /a 219 /c 0x%couleurrepere% /g %xtiretverticalegauche% %ytiretverticale% /a 219 /c 0x%couleurrepere% /g %xtiretverticalegauche% %ytiretverticale1% /a 219 /c 0x%couleurrepere% /g %xtiretverticalegauche% %ytiretverticale2% /a 219 /g %xreperedroit% %yreperedroit% /a 219 /g %xreperegauche% %yreperegauche% /a 219 /c 0x%couleurtiret%
set tiretsverticauxdessus=%tiretsverticauxdessus% /c 0x%couleurrepere%%repere%
set /a ytiretverticale+=4
goto:eof

:affiche
cls
batbox /c 0x%couleurcrochets%%crochetsduhaut%%crochetsdubas%
batbox /c 0x%couleurtiret%%tiretduhaut%%tiretsverticaux%
goto:eof




Code:

@echo off
if defined __ goto darkbox
set __=.
darkbox /i | %0 %* | darkbox
set __=
pause>NUL
goto:eof
:darkbox
setlocal enabledelayedexpansion enableextensions
mode con cols=600 lines=300
color c
pixelfnt 2
rem shema

rem ------- %horizontale% %reperehaut% -------
rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --


rem %vertical%
rem %reperegauche%              %reperedroite%


rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --
rem --                                      --
rem ------- %horizontale% %reperebas%  -------

rem Definition des variables de base
set x=1
set y=1
echo /h 0

rem toujours pair min 2
set nbrverticale=2
set nbrhorizontale=2
set couleurcrochets=c
set couleurtiret=1
set couleurrepere=4
set mouvement=rien
:debut
set /p i=
set "k="
set "mouvement="
for /f "tokens=1-4" %%A in ("%i%") do (
if "%%A" EQU "k" set k=%%B
echo /cgd 0xc 0 0 "%k%"
)
if "%k%" EQU "72" set mouvement=up
if "%k%" EQU "80" set mouvement=down
if "%k%" EQU "77" set mouvement=right
if "%k%" EQU "75" set mouvement=left
if "%k%" EQU "45" if %nbrhorizontale% GTR 2 set /a nbrhorizontale-=2
if "%k%" EQU "47" if %nbrverticale% GTR 2 set /a nbrverticale-=2
if "%k%" EQU "43" set /a nbrhorizontale+=2
if "%k%" EQU "42" set /a nbrverticale+=2
if "%mouvement%" EQU "up" if %y% GTR 5 set /a y-=5
if "%mouvement%" EQU "down" set /a y+=5
if "%mouvement%" EQU "right" set /a x+=5
if "%mouvement%" EQU "left" if %x% GTR 5 set /a x-=5
call:carre
goto debut
:carre
set crochetsduhaut=
set tiretduhaut=
set crochetsdubas=
set tiretsverticaux=
call:crochetsduhaut
call:crochetsdubas
call:tiretshorizontaux
call:tiretsverticaux
call:affiche
goto:eof



:crochetsduhaut
set nbr=0
set crochetsduhaut=
set /a ycrochetverticale=%y%+2
set /a ycrochetverticale1=%ycrochetverticale%+1
set /a ycrochetverticale2=%ycrochetverticale1%+1
set /a ycrochetverticale3=%ycrochetverticale2%+1
set /a ycrochetverticale4=%ycrochetverticale3%+1
set xcrochethorizontale=%x%
set ycrochethorizontale=%y%
:loopcrochetsduhauthorizontaux
set xcrochetverticale=%xcrochethorizontale%
if "%nbr%" EQU "1" set /a xcrochethorizontale=(%nbrhorizontale%*4)+12+%x%
if "%nbr%" EQU "1" set /a xcrochetverticale=%xcrochethorizontale%+5
set /a ycrochethorizontale1=%y%+1
call:crochets
set crochetsduhaut=%crochetsduhaut%%crochethorizontale%%crochetvertical%
if "%nbr%" EQU "1" goto:eof
set /a nbr+=1
goto loopcrochetsduhauthorizontaux

:crochetsdubas
set nbr=0
set crochetsdubas=
set /a ycrochetverticale=(%nbrverticale%*4)+12+%y%
set /a ycrochetverticale1=%ycrochetverticale%+1
set /a ycrochetverticale2=%ycrochetverticale1%+1
set /a ycrochetverticale3=%ycrochetverticale2%+1
set /a ycrochetverticale4=%ycrochetverticale3%+1
set xcrochethorizontale=%x%
:loopcrochetsdubashorizontaux
set xcrochetverticale=%xcrochethorizontale%
if "%nbr%" EQU "1" set /a xcrochethorizontale=(%nbrhorizontale%*4)+12+%x%
if "%nbr%" EQU "1" set /a xcrochetverticale=%xcrochethorizontale%+5
set /a ycrochethorizontale=%ycrochetverticale%+5
set /a ycrochethorizontale1=%ycrochethorizontale%+1
call:crochets
set crochetsdubas=%crochetsdubas%%crochethorizontale%%crochetvertical%
if "%nbr%" EQU "1" goto:eof
set /a nbr+=1
goto loopcrochetsdubashorizontaux

:tiretshorizontaux
set nbr=1
set tiretduhautdroit=
set tiretduhautgauche=
set /a xtirethorizontale=%x%+4
set /a nbrdemitirets=%nbrhorizontale%/2
set ytirethorizontale=%y%
call:looptiretshorizontaux1
set nbr=1
set xtirethorizontale=
set /a xtirethorizontale=%x%+4
set /a nbrdemitirets=%nbrhorizontale%/2
set /a ytirethorizontale=(%nbrverticale%*4)+18+%y%
call:looptiretshorizontaux1
set tiretduhaut=
set tiretduhaut=%tiretduhautdroit%%tiretduhautgauche%
goto:eof
:looptiretshorizontaux1
set /a xtirethorizontale=%xtirethorizontale%+4
call:tirets
set tiretduhautdroit=%tiretduhautdroit%%tirethorizontale%
if "%nbr%" EQU "%nbrdemitirets%" (
set tiret=bas
if "%ytirethorizontale%" EQU "%y%" set tiret=haut
call:repereshorizontaux
set /a xtirethorizontale=%xtirethorizontale%+4
set nbr=1
goto looptiretshorizontaux2
)
set /a nbr+=1
goto looptiretshorizontaux1
:looptiretshorizontaux2
set /a xtirethorizontale=%xtirethorizontale%+4
call:tirets
set tiretduhautgauche=%tiretduhautgauche%%tirethorizontale%
if "%nbr%" EQU "%nbrdemitirets%" (
set tiretduhautdroit=%tiretduhautdroit% /c 0x%couleurrepere%%reperehaut%
goto:eof
)
set /a nbr+=1
goto looptiretshorizontaux2


:tiretsverticaux
set /a ytiretverticale=%y%+8
set /a deminbrtirets=%nbrverticale%/2
set /a xtiretverticalegauche=(%nbrhorizontale%*4)+18+%x%
set xtiretverticaledroite=%x%
set nbr=1
set tiretsverticauxdessus=
set tiretsverticauxdessous=
:looptiretsverticauxdessus
call:tirets
set tiretsverticauxdessus=%tiretsverticauxdessus%%tiretverticale%
if "%nbr%" EQU "%deminbrtirets%" (
call:reperesverticaux
set nbr=1
goto looptiretsverticauxdessous
)
set /a ytiretverticale+=4
set /a nbr+=1
goto looptiretsverticauxdessus
:looptiretsverticauxdessous
call:tirets
set tiretsverticauxdessous=%tiretsverticauxdessous%%tiretverticale%
if "%nbr%" EQU "%deminbrtirets%" (
set tiretsverticaux=%tiretsverticauxdessus%%tiretsverticauxdessous%
goto:eof
)
set /a ytiretverticale+=4
set /a nbr+=1
goto looptiretsverticauxdessous




:crochets
rem crochets
set crochetvertical=
set crochethorizontale=
set crochethorizontale= /g %xcrochethorizontale% %ycrochethorizontale% /a 219 /a 219 /a 219 /a 219 /a 219 /a 219 /a 219 /g %xcrochethorizontale% %ycrochethorizontale1% /a 219 /a 219 /a 219 /a 219 /a 219 /a 219 /a 219
set crochetvertical= /g %xcrochetverticale% %ycrochetverticale% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale1% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale2% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale3% /a 219 /a 219 /g %xcrochetverticale% %ycrochetverticale4% /a 219 /a 219
goto:eof

:tirets
rem tirets
set tirethorizontale=
set tiretverticale=
set tirethorizontale= /g %xtirethorizontale% %ytirethorizontale% /a 219 /a 219 /a 219
set /a ytiretverticale1=%ytiretverticale%+1
set /a ytiretverticale2=%ytiretverticale1%+1
set tiretverticale= /g %xtiretverticaledroite% %ytiretverticale% /a 219 /g %xtiretverticaledroite% %ytiretverticale1% /a 219 /g %xtiretverticaledroite% %ytiretverticale2% /a 219 /g %xtiretverticalegauche% %ytiretverticale% /a 219 /g %xtiretverticalegauche% %ytiretverticale1% /a 219 /g %xtiretverticalegauche% %ytiretverticale2% /a 219
goto:eof

:repereshorizontaux
set reperehaut=
set xbarrereperehaut=
set ybarrereperehaut=
set /a xtirethorizontale+=4
set xbarrereperehaut=%xtirethorizontale%
set ybarrereperehaut=%ytirethorizontale%
if "%tiret%" EQU "bas" set /a yreperehaut=%ytirethorizontale%-1
if "%tiret%" EQU "haut" set /a yreperehaut=%ytirethorizontale%+1
set /a xreperehaut=%xtirethorizontale%+1
rem reperes
set reperehaut= /g %xbarrereperehaut% %ybarrereperehaut% /a 219 /a 219 /a 219 /g %xreperehaut% %yreperehaut% /a 219 /c 0x%couleurtiret%
goto:eof
:reperesverticaux
set repere=
set /a ytiretverticale+=4
set /a xreperedroit=%x%+1
set /a xreperegauche=%xtiretverticalegauche%-1
set /a ytiretverticale1=%ytiretverticale%+1
set /a ytiretverticale2=%ytiretverticale1%+1
set yreperedroit=%ytiretverticale1%
set yreperegauche=%ytiretverticale1%
set repere=
set repere= /g %xtiretverticaledroite% %ytiretverticale% /a 219 /c 0x%couleurrepere% /g %xtiretverticaledroite% %ytiretverticale1% /a 219 /c 0x%couleurrepere% /g %xtiretverticaledroite% %ytiretverticale2% /a 219 /c 0x%couleurrepere% /g %xtiretverticalegauche% %ytiretverticale% /a 219 /c 0x%couleurrepere% /g %xtiretverticalegauche% %ytiretverticale1% /a 219 /c 0x%couleurrepere% /g %xtiretverticalegauche% %ytiretverticale2% /a 219 /g %xreperedroit% %yreperedroit% /a 219 /g %xreperegauche% %yreperegauche% /a 219 /c 0x%couleurtiret%
set tiretsverticauxdessus=%tiretsverticauxdessus% /c 0x%couleurrepere%%repere%
set /a ytiretverticale+=4
goto:eof

:affiche
echo /s
echo /c 0x%couleurcrochets%%crochetsduhaut%%crochetsdubas%
echo /c 0x%couleurtiret%%tiretduhaut%%tiretsverticaux%
goto:eof






______________________________________________________

Programme
Skype
Message Publicité 
PublicitéSupprimer les publicités ?


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