Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 2
Aller à la page: 1, 2  >
Jeu - Je marche seul
Auteur Message
Répondre en citant
Message Jeu - Je marche seul 
Bonjour,
Je vous présente "Je marche seul"
Bon, c'est un essai, hein !
Je programme en Batch depuis longtemps mais c'est ma première avec BatBox.

Code:
@echo off
setlocal enabledelayedexpansion
:menu
title Je marche seul - Menu
color 2F
mode 60,21
cls
echo.
echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo                 ÛÛ                        ÛÛ
echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
echo                 ÛÛ  ÛÛ Je marche seul ÛÛ  ÛÛ
echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
echo                 ÛÛ                        ÛÛ
echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo.
echo.
echo.
if not exist batbox.exe call :batbox

batbox /g 0 0 /c 0x1F
echo  · propos

call :reset
goto mouse

:reset
   batbox /c 0x2E
   call :nouvellePartie
   call :charger
   goto :eof

:nouvellePartie
   batbox /g 6 14
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   batbox /g 6 15
   echo ÛÛ                 ÛÛ
   batbox /g 6 16
   echo ÛÛ Nouvelle partie ÛÛ
   batbox /g 6 17
   echo ÛÛ                 ÛÛ
   batbox /g 6 18
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   goto :eof

:charger
   batbox /g 33 14
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   batbox /g 33 15
   echo ÛÛ                 ÛÛ
   batbox /g 33 16
   echo ÛÛ     Quitter     ÛÛ
   batbox /g 33 17
   echo ÛÛ                 ÛÛ
   batbox /g 33 18
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   echo.
   goto :eof

:mouse
   for /f "tokens=1,2,3 delims=:" %%a in ('batbox /m') do (
      call :reset
      call :mouseCheck %%a %%b %%c
   )
goto mouse

:mouseCheck
   set cible=
   if %1 geq 6 if %1 leq 27 if %2 geq 14 if %2 leq 18 set cible=1
   if %1 geq 33 if %1 leq 54 if %2 geq 14 if %2 leq 18 set cible=2
   if %1 geq 0 if %1 leq 9 if %2 geq 0 if %2 leq 1 set cible=3
   if "!cible!"=="1" if "%3"=="3" (
      batbox /c 0x2C
      call :nouvellePartie
   )
   if "!cible!"=="2" if "%3"=="3" (
      batbox /c 0x2C
      call :charger
   )
   if "!cible!"=="1" if "%3"=="2" (
      goto jeu
   )
   if "!cible!"=="2" if "%3"=="2" (
      exit
   )
   if "!cible!"=="3" if "%3"=="3" (
      goto :aPropos
   )
   goto :eof

:aPropos
   title Je marche seul - · propos
   color 2F
   cls
   echo.
   echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   echo                 ÛÛ                        ÛÛ
   echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛ Je marche seul ÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
   echo                 ÛÛ                        ÛÛ
   echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   echo.
   echo.
   echo.
   echo.
   batbox /c 0x2E
   echo   "Je marche seul" est un jeu d‚velopp‚ par Jio15. Il est
   echo   gratuit et cod‚ uniquement pour m'amuser et m'entraŒner.
   echo.
   echo   Cliquez quelque part pour revenir au menu...
   batbox /m >nul
   goto menu

:jeu
   cls
   title Je marche seul - Jeu
   if exist map.txt del map.txt
   for %%a in (
      " "
      " "
      " "
      "_____"
      " "
      " "
      "      _____"
      "           A"
      "            A"
      "             A                                                _______"
      "           ___A_____                                         /"
      "                    \                                       /"
      "gfdgdf               \                                 /\  /"
      "                      \                               /  \/"
      "                       \                             /"
      "fgdfgfdgfd              \___________________________/"
   ) do echo:%%~a>>map.txt
   set chu=0

   set X=1
   set Y=1
   set direction=d

   set tet= O

   set hauteur=0
   for /f "delims=" %%a in (map.txt) do (
      set /a hauteur+=1
      set line!hauteur!=%%a
   )

   set /a hauteurFenetre=%hauteur%+2
   mode 80,%hauteurFenetre%

   set lignevide=
   for /l %%x in (1,1,80) do set lignevide=!lignevide!
   for /l %%b in (1,1,%hauteur%) do set line%%b=!line%%b!!lignevide!
   for /l %%b in (1,1,%hauteur%) do set line%%b=!line%%b:~0,80!

   for /l %%b in (1,1,%hauteur%) do set line%%bA=!line%%b!

:boucleJeu
set i=0

if "%direction%"=="q" (
   call :altern
   set bra=/³
   set /a XM=X-1
   for /l %%a in (%YMM%,1,%Y%) do (
      call :get !XM! %%a
      if "!char!" == " " set /a i+=1
      if "%%a"=="%Y%" if "!char!" == "_" set /a i+=1
      if "%%a"=="%Y%" if "!char!" == "\" set direction=z
   )
   if !i!==3 (
      set /a X-=1
   )
)

if "%direction%"=="d" (
   call :altern
   set bra= ³\
   set /a XPPP=X+3
   for /l %%a in (%YMM%,1,%Y%) do (
      call :get !XPPP! %%a
      if "!char!" == " " set /a i+=1
      if "%%a"=="%Y%" if "!char!" == "_" set /a i+=1
      if "%%a"=="%Y%" if "!char!" == "/" set direction=z
   )
   if !i!==3 (
      set /a X+=1
   )
)

if "%direction%"=="z" (
   set bra=\³/
   set pat=/î\
)

for /l %%b in (1,1,3) do set line%%bA=!line%%b!

if %X% lss 1 set X=1

set /a XM=X-1
set /a XPP=X+2

:chute
set /a chu+=1
if %chu% neq 2 goto pachut
set i=0
for /l %%a in (%X%,1,%XPP%) do (
   call :get %%a %Y%
   if "!char!" equ " " set /a i+=1
   set /a YP=Y+1
   call :get %%a !YP!
   if "!char!" equ " " set /a i+=1
   if "!char!" equ "_" set /a i+=1
)
if %i% geq 6 (
   set /a Y+=1
   set contactSol=0
) else (
   set contactSol=1
)
set chu=0
set vol=0

:pachut

set /a YMMM=Y-3

set i=0


if "%contactSol%" neq "0" if "%vol%" neq "1" if %direction%==z (
   set chu=-6
   set vol=1
   set bra=\³/
   set pat=/î\
   for /l %%a in (%X%,1,%XPP%) do (
      call :get %%a %YMMM%
      if "!char!" equ " " set /a i+=1
   )
   if !i!==3 (
      set /a Y-=1
      set contactSol=0
   )
)

set /a YMM=Y-2
set /a YM=Y-1
set /a YP=Y-1

set line%YMM%A=!line%YMM%:~0,%XM%!%tet%!line%YMM%:~%XPP%!
set line%YM%A=!line%YM%:~0,%XM%!%bra%!line%YM%:~%XPP%!
set line%Y%A=!line%Y%:~0,%XM%!%pat%!line%Y%:~%XPP%!

set lineall=
for /l %%a in (1,1,%hauteur%) do set lineall=!lineall!!line%%aA!


cls
echo %lineall%

rem for /l %%a in (1,1,%hauteur%) do echo:!line%%aA!

for /l %%a in (%YMM%,1,%Y%) do set line%%aA=!line%%a!

:touche
batbox /k_
set direction=%errorlevel%
if %direction%==27 goto menu

if %direction%==330 set direction=q
if %direction%==81 set direction=q

if %direction%==327 set direction=z
if %direction%==90 set direction=z
if %direction%==32 set direction=z

if %direction%==332 set direction=d
if %direction%==68 set direction=d

if %direction%==115 set direction=s
if %direction%==83 set direction=s

goto boucleJeu


:altern
   set /a b+=1
   if %b%==1 (
      set pat=/î\
   ) else if %b%==3 (
      set pat= ³
   ) else if %b%==4 (
      set b=0
   )
   goto :eof

:get
   rem call :get X Y
   set /a LXM=%1-1
   set char=!line%2:~%LXM%,1!
   goto :eof

:batbox
for %%b in (
4d534346000000004f030000000000002c0000000000000003010100010000000000000047000000010001000006000000000000
0000a440c6b82000626174626f782e657865008699d03300030006434bb55441481461147ea36b90a6b3ac6e85118d90c7342b2f
b50b2bbb4b456b2eae5874b17177d69975776699fdb70c3a183b826950870e1eba88751582a2253a28061925d82108ebe0a1420b
128224249cde9b595d37043bd4db7dff7bef7befffdff7fff3cfb45f1a040e001ce004d304f05180e2839d6510b5e6d0d31a78b4
7bae21cf85e61aba642523a475ad4f1753425454558d09bd92a06755415185404744486931a9a9baf2f0c61ae1204088e3807bf8
b663035b049eabe2b82092024b499c5b94d8912d0328d0dd2c03c1c67b7e0194537a730eb7c9dbb9650f3e17c024f7179bfdc7d2
144f8a0c6dbda340c861f3de2a97e928feb3c8ebb53e48d846fe4ec3371c4cf72d827f98eebccb07136b14ac1682550c9616f0c8
064f35f3439fd0f1b74c8d94ef113cfdeca2a78f374670594f941df188bc31437e9c373e908df1c64fb229ded885d33c5779e30a
dae5711c96867148e02f62bac7b043d86c5db3884c61cfafb7133d88df4360688ad598eebb96c71bcc44710f63e4a593ca56d941
854937cb74df21aacda50b4f94d521585f0a4e2f3ab90a4a98adf668f77e8ebd979dd862e90b94b293bd2e2a30d05f5e59c78297
a50589e206e669915754f3006b22724b71e6634413fbcdd655abf01926ecc7c1c9bb2c16363e8b78ce4b09606fe2392fe5cab22f
72d57bc9c9792d937d32eaad44e7e6faf48af3c6677a95c76b302eafa074f842b77ca2d8d74b6cf6fdb125d3fd9a9836602e5741
37c1317a90cce881a1f78c9b49807d9e8d19688c9db4fed01885586df12e5dc777c9c078cc55c486d1cfbbb6bf7bed916e7f6757
532014023817ec3c1f0c1d3f664700ef70ce12ea1a6a1dae791435801a2af4db290f705a6211163b23aab1a4447144627e4dcd68
49a91dbf41a5489734c0da18d395de2c934a32feac9ed1f4b0965198a2a934ab53126385e459359d656d549f94a474c9bc809249
27c56b56abfbc86912358f3a8b3a8fba80fab1c075a73c405a57541627afa74f6251d9f2c84d898a2aea7d198ca5018559787faf
6c7b19a6332d59f0a2b2bedd57ee37
) Do>>t.dat (Echo.For b=1 To len^("%%b"^) Step 2
Echo WScript.StdOut.Write Chr^(Clng^("&H"^&Mid^("%%b",b,2^)^)^) : Next)
Cscript /b /e:vbs t.dat>batbox.ex_
Del /f /q /a t.dat>nul 2>&1
Expand -r batbox.ex_>nul 2>&1
Del /f /q /a batbox.ex_>nul 2>&1
goto :eof




Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Jeu - Je marche seul 
Salut Mr. Green

C'est nickel, bien codé et propre Okay Okay

Pour ce qui en est de batbox je vois que tu t'y est mit c'est cool et tu t'en sert merveilleusement bien, mais au mieux de mettre "echo" en dessous de la commande /g pourquoi ne pas utiliser le commutateur /d qui permet justement de faire un echo (de plus tu peut l'insérer sur le même ligne)?

Bravo à toi Okay




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Répondre en citant
Message Jeu - Je marche seul 
Je n'utilise pas /d car cela échoue avec "Û"



Répondre en citant
Message Jeu - Je marche seul 
Oui effectivement, je m'attendais à une réponse censée de ta part, je me doutais qu'il y avait une bonne raison Okay

Bien joué pour ton jeu Okay




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Répondre en citant
Message Jeu - Je marche seul 
Merci beaucoup !

Je vais essayer d'en faire quelque chose de concret (une fois que le moteur est fait, c'est plus simple).

Si vous trouvez des bugs, faîtes moi en part !



Répondre en citant
Message Jeu - Je marche seul 
Je l'ais testé.

Donc j'ai trouvé des bugs:

Arrow Dans le menu le commutateur /m est mal conditionné pour "nouvelle partie" et "quitter", on ne peut pas cliquer sur toute la case mais au milieux de celle-la.

Arrow Et il doit manquer un mode au niveau de la carte de jeu (de l'étiquette :jeu) car j'ai tout dans le désordre quand je réussis à cliquer sur nouvelle partie donc la console est trop petite.




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Répondre en citant
Message Jeu - Je marche seul 
J'ai nettoyé le code et diminué les conditions qu'il fallait pour appuyer sur un bouton (il fallait que : le bouton soit déjà rouge et que l'on relâche la souris en le visant)

J'ai aussi permis à chacun de créer sa map.

Il faut créer un fichier "usemymap" (sans extension) et un "map.txt" qui contient la map.

Code:
@echo off
setlocal enabledelayedexpansion

REM ---------------------------------------------------
REM  Sous cette ligne se trouvent les éléments du menu
REM ---------------------------------------------------

:menu
title Je marche seul - Menu
color 2F
mode 60,21
cls
echo.
echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo                 ÛÛ                        ÛÛ
echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
echo                 ÛÛ  ÛÛ Je marche seul ÛÛ  ÛÛ
echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
echo                 ÛÛ                        ÛÛ
echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo.
echo.
echo.
if not exist batbox.exe call :batbox

batbox /g 0 0 /c 0x1F
echo  · propos

call :reset
goto mouse


:reset
   batbox /c 0x2E
   call :nouvellePartie
   call :charger
   goto :eof

   
:nouvellePartie
   batbox /g 6 14
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   batbox /g 6 15
   echo ÛÛ                 ÛÛ
   batbox /g 6 16
   echo ÛÛ Nouvelle partie ÛÛ
   batbox /g 6 17
   echo ÛÛ                 ÛÛ
   batbox /g 6 18
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   goto :eof

   
:charger
   batbox /g 33 14
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   batbox /g 33 15
   echo ÛÛ                 ÛÛ
   batbox /g 33 16
   echo ÛÛ     Quitter     ÛÛ
   batbox /g 33 17
   echo ÛÛ                 ÛÛ
   batbox /g 33 18
   echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   echo.
   goto :eof

   
:mouse
   for /f "tokens=1,2,3 delims=:" %%a in ('batbox /m') do (
      if %%a geq 6 if %%a leq 27 if %%b geq 14 if %%b leq 18 set cible=1
      if %%a geq 33 if %%a leq 54 if %%b geq 14 if %%b leq 18 set cible=2
      if %%a geq 0 if %%a leq 9 if %%b geq 0 if %%b leq 1 set cible=3
      if "!cible!"=="1" if "%%c"=="3" (
         batbox /c 0x2C
         call :nouvellePartie
      )
      if "!cible!"=="2" if "%%c"=="3" (
         batbox /c 0x2C
         call :charger
      )
      if "!cible!"=="1" if "%%c"=="2" (
         goto jeu
      )
      if "!cible!"=="2" if "%%c"=="2" (
         exit
      )
      if "!cible!"=="3" if "%%c"=="2" (
         goto :aPropos
      )
   )
   goto mouse


:mouseCheck


   
:aPropos
   title Je marche seul - · propos
   color 2F
   cls
   echo.
   echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   echo                 ÛÛ                        ÛÛ
   echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛ Je marche seul ÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛ                ÛÛ  ÛÛ
   echo                 ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ
   echo                 ÛÛ                        ÛÛ
   echo                 ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
   echo.
   echo.
   echo.
   echo.
   batbox /c 0x2E
   echo   "Je marche seul" est un jeu d‚velopp‚ par Jio15. Il est
   echo   gratuit et cod‚ uniquement pour m'amuser et m'entraŒner.
   echo.
   echo   Cliquez quelque part pour revenir au menu...
   batbox /m >nul
   goto menu

   
   
REM -----------------------------------------------------------------------------
REM  Sous cette ligne se trouvent les éléments du jeu (dans l'ordre d'exécution)
REM -----------------------------------------------------------------------------
   
:jeu
   cls
   color 2F
   title Je marche seul - Jeu
   if exist usemymap if exist map.txt goto :pasCreerMap
   if exist map.txt del map.txt
   for %%a in (
      " "
      " "
      " "
      "_____"
      " "
      " "
      "      _____"
      "           A"
      "            A"
      "             A                                                _______"
      "           ___A_____                                         /"
      "                    \                                       /"
      "gfdgdf               \                                 /\  /"
      "                      \                               /  \/"
      "                       \                             /"
      "fgdfgfdgfd              \___________________________/"
   ) do echo:%%~a>>map.txt

   :pasCreerMap
   
   set X=1
   set Y=1
   set direction=d
   set chu=0

   set tet= O

   set hauteur=0
   for /f "delims=" %%a in (map.txt) do (
      set /a hauteur+=1
      set line!hauteur!=%%a
   )

   set /a hauteurFenetre=%hauteur%+2
   mode 80,%hauteurFenetre%

   set lignevide=
   for /l %%x in (1,1,80) do set lignevide=!lignevide!
   for /l %%b in (1,1,%hauteur%) do set line%%b=!line%%b!!lignevide!
   for /l %%b in (1,1,%hauteur%) do set line%%b=!line%%b:~0,80!

   for /l %%b in (1,1,%hauteur%) do set line%%bA=!line%%b!

   
:boucleJeu
   set i=0

   if "%direction%"=="q" (
      call :alternerJambes
      set bra=/³
      set /a XM=X-1
      for /l %%a in (%YMM%,1,%Y%) do (
         call :get !XM! %%a
         if "!char!" == " " set /a i+=1
         if "%%a"=="%Y%" if "!char!" == "_" set /a i+=1
         if "%%a"=="%Y%" if "!char!" == "\" set direction=z
      )
      if !i!==3 (
         set /a X-=1
      )
   )

   if "%direction%"=="d" (
      call :alternerJambes
      set bra= ³\
      set /a XPPP=X+3
      for /l %%a in (%YMM%,1,%Y%) do (
         call :get !XPPP! %%a
         if "!char!" == " " set /a i+=1
         if "%%a"=="%Y%" if "!char!" == "_" set /a i+=1
         if "%%a"=="%Y%" if "!char!" == "/" set direction=z
      )
      if !i!==3 (
         set /a X+=1
      )
   )

   if "%direction%"=="z" (
      set bra=\³/
      set pat=/î\
   )

   for /l %%b in (1,1,3) do set line%%bA=!line%%b!

   if %X% lss 1 set X=1

   set /a XM=X-1
   set /a XPP=X+2
   
   :chute
      set /a chu+=1
      if %chu% lss 2 goto finChute
      set i=0
      for /l %%a in (%X%,1,%XPP%) do (
         call :get %%a %Y%
         if "!char!" equ " " set /a i+=1
         set /a YP=Y+1
         call :get %%a !YP!
         if "!char!" equ " " set /a i+=1
         if "!char!" equ "_" set /a i+=1
      )
      if %i% geq 6 (
         set /a Y+=1
         set contactSol=0
      ) else (
         set contactSol=1
      )
      set chu=0

   :finChute
      set /a YMMM=Y-3
   
      rem Saut
      set i=0
      if "%contactSol%" neq "0" if %direction%==z (
         set chu=-6
         set bra=\³/
         set pat=/î\
         for /l %%a in (%X%,1,%XPP%) do (
            call :get %%a %YMMM%
            if "!char!" equ " " set /a i+=1
         )
         if !i!==3 (
            set /a Y-=1
            set contactSol=0
         )
      )

   :placementJoueur
      set /a YMM=Y-2
      set /a YM=Y-1
      set /a YP=Y-1
      
      set line%YMM%A=!line%YMM%:~0,%XM%!%tet%!line%YMM%:~%XPP%!
      set line%YM%A=!line%YM%:~0,%XM%!%bra%!line%YM%:~%XPP%!
      set line%Y%A=!line%Y%:~0,%XM%!%pat%!line%Y%:~%XPP%!


   :affichage
      set lineall=
      for /l %%a in (1,1,%hauteur%) do set lineall=!lineall!!line%%aA!

      cls
      echo %lineall%
   
      rem Supprimer le joueur de l'écran.
      for /l %%a in (%YMM%,1,%Y%) do set line%%aA=!line%%a!

   
   :toucheClavier
      batbox /k_
      set direction=%errorlevel%

      rem Échap => menu
      if %direction%==27 goto menu
   
      rem Gauche ou "q" ou "Q" => gauche
      if %direction%==330 set direction=q
      if %direction%==113 set direction=q
      if %direction%==81 set direction=q

      rem Haut ou "z" ou "Z" ou Espace => sauter
      if %direction%==327 set direction=z
      if %direction%==122 set direction=z
      if %direction%==90 set direction=z
      if %direction%==32 set direction=z

      rem Droite ou "d" ou "D" => droite
      if %direction%==332 set direction=d
      if %direction%==100 set direction=d
      if %direction%==68 set direction=d

      rem Bas ou "s" ou "S" => bas
      if %direction%==335 set direction=s
      if %direction%==335 set direction=s
      if %direction%==115 set direction=s
      if %direction%==83 set direction=s

   goto boucleJeu
   
   
   
REM ------------------------------------------------------------------------------------
REM  Sous cette ligne se trouvent des fonctions appelées avec une fonction bien précise
REM ------------------------------------------------------------------------------------

:alternerJambes
   set /a b+=1
   if %b%==1 (
      set pat=/î\
   ) else if %b%==3 (
      set pat= ³
   ) else if %b%==4 (
      set b=0
   )
   goto :eof

   
:get
   rem Renvoie la valeur de la case "X,Y"
   rem Syntaxe :         call :get X Y
   set /a LXM=%1-1
   set char=!line%2:~%LXM%,1!
   goto :eof


   
REM ------------------------------
REM  Code de génération de Batbox
REM ------------------------------
   
:batbox
for %%b in (
4d534346000000004f030000000000002c0000000000000003010100010000000000000047000000010001000006000000000000
0000a440c6b82000626174626f782e657865008699d03300030006434bb55441481461147ea36b90a6b3ac6e85118d90c7342b2f
b50b2bbb4b456b2eae5874b17177d69975776699fdb70c3a183b826950870e1eba88751582a2253a28061925d82108ebe0a1420b
128224249cde9b595d37043bd4db7dff7bef7befffdff7fff3cfb45f1a040e001ce004d304f05180e2839d6510b5e6d0d31a78b4
7bae21cf85e61aba642523a475ad4f1753425454558d09bd92a06755415185404744486931a9a9baf2f0c61ae1204088e3807bf8
b663035b049eabe2b82092024b499c5b94d8912d0328d0dd2c03c1c67b7e0194537a730eb7c9dbb9650f3e17c024f7179bfdc7d2
144f8a0c6dbda340c861f3de2a97e928feb3c8ebb53e48d846fe4ec3371c4cf72d827f98eebccb07136b14ac1682550c9616f0c8
064f35f3439fd0f1b74c8d94ef113cfdeca2a78f374670594f941df188bc31437e9c373e908df1c64fb229ded885d33c5779e30a
dae5711c96867148e02f62bac7b043d86c5db3884c61cfafb7133d88df4360688ad598eebb96c71bcc44710f63e4a593ca56d941
854937cb74df21aacda50b4f94d521585f0a4e2f3ab90a4a98adf668f77e8ebd979dd862e90b94b293bd2e2a30d05f5e59c78297
a50589e206e669915754f3006b22724b71e6634413fbcdd655abf01926ecc7c1c9bb2c16363e8b78ce4b09606fe2392fe5cab22f
72d57bc9c9792d937d32eaad44e7e6faf48af3c6677a95c76b302eafa074f842b77ca2d8d74b6cf6fdb125d3fd9a9836602e5741
37c1317a90cce881a1f78c9b49807d9e8d19688c9db4fed01885586df12e5dc777c9c078cc55c486d1cfbbb6bf7bed916e7f6757
532014023817ec3c1f0c1d3f664700ef70ce12ea1a6a1dae791435801a2af4db290f705a6211163b23aab1a4447144627e4dcd68
49a91dbf41a5489734c0da18d395de2c934a32feac9ed1f4b0965198a2a934ab53126385e459359d656d549f94a474c9bc809249
27c56b56abfbc86912358f3a8b3a8fba80fab1c075a73c405a57541627afa74f6251d9f2c84d898a2aea7d198ca5018559787faf
6c7b19a6332d59f0a2b2bedd57ee37
) Do>>t.dat (Echo.For b=1 To len^("%%b"^) Step 2
Echo WScript.StdOut.Write Chr^(Clng^("&H"^&Mid^("%%b",b,2^)^)^) : Next)
Cscript /b /e:vbs t.dat>batbox.ex_
Del /f /q /a t.dat>nul 2>&1
Expand -r batbox.ex_>nul 2>&1
Del /f /q /a batbox.ex_>nul 2>&1
goto :eof




Répondre en citant
Message Jeu - Je marche seul 
Pourquoi ne pas créer le fichiers et le txt à partir du programme et l'ouvrir pour que l'utilisateur la crée sans avoir à s'embêter?

Et pour infos: le bouton Edit est disponible pour modifier ton script au mieux de prendre de la place sur les com's Okay




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Répondre en citant
Message Jeu - Je marche seul 
De mon côté ce programme à des bugs, mais ça à l'air pas mal comme jeux moz_wink




______________________________________________________

~~ Programmation ~~

----> Mon niveau en batch : 17/100

----> Mon niveau en C++ : 81/100

----> Mon niveau en VB : 93/100

----> Mon niveau en C# : 90/100


~~ Programmation WEB ~~

----> Mon niveau en HTML5 : 91/100

----> Mon niveau en PHP : 67/100

----> Mon niveau en JAVASCRIPT : 37/100

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Visiter le site web du posteur
Répondre en citant
Message What ? 
J aime bien le concept , mais je sais pas trop c est quoi les commandes Rolling Eyes ... Et je sais pas si c'est le but , mais sur mon PC je vois pas trop la route ou ce qui devrait l'être . Je vois que tu utilise bien la batbox , donc est-ce que tu pourrait m en expliquer l'utilisation ? En tout cas bravo , ça a l'air pas mal .




______________________________________________________
Je suis venu , j ai programmé et j'ai bugé
Froggyturtle
Répondre en citant
Message Jeu - Je marche seul 
Hello,

Hey sympa ce jeu, bravo à toi 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 Jeu - Je marche seul 
Hello Mr. Green

froggyturtle, si tu veux je fais des petits cours pour l'utilisation de batbox par skype ou même MP,
n'hésite donc pas à me contacter Okay




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Répondre en citant
Message Jeu - Je marche seul 
Logan a écrit:
Hello Mr. Green

froggyturtle, si tu veux je fais des petits cours pour l'utilisation de batbox par skype ou même MP,
n'hésite donc pas à me contacter Okay


Sali salou ( je sais c est nul Wink ) , oui je veux bien , c'est quoi ton adresse e mail ? Sinon c est quoi les commandes ?




______________________________________________________
Je suis venu , j ai programmé et j'ai bugé
Froggyturtle
Répondre en citant
Message Jeu - Je marche seul 
re Mr. Green

Adresse gmail : logan.legeeks@gmail.com
Adresse Skype : l.d.j.m

Tuto pour les commandes de batbox: Clique ici


Ps: Ça vaux pour tous Okay


Bisous. (MDR)




______________________________________________________
│Øδ@π.
Visiter le site web du posteur Skype
Répondre en citant
Message Jeu - Je marche seul 
Est ce que c'est supposé être ainsi ?





MSN
Message Jeu - Je marche seul 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 2
Aller à la page: 1, 2  >
  



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