BatchClipboard

Vous n'êtes pas identifié.

Pages: 1

 

#1 26-01-2009 07:36:39

Laddy
Administrateur
Date d'inscription: 21-08-2008
Messages: 1318

[Carlos] Jeu Batch Worms

Carlos a developpé plusieurs jeux en batch comme quoi tout est possible, worms est tout simplement le jeu du serpent Snake que vous avez sous doute jouer dans les salles d'attente ou en cours avec votre téléphone portable.

Code: dos

  1. ::
  2. :: Copyright (c) 2009 Carlos Montiers
  3. :: All rights reserved.
  4. ::
  5. :: Redistribution and use in source and binary forms, with or without
  6. :: modification, are permitted provided that the following conditions
  7. :: are met:
  8. :: 1. Redistributions of source code must retain the above copyright
  9. ::    notice, this list of conditions and the following disclaimer.
  10. :: 2. Redistributions in binary form must reproduce the above copyright
  11. ::    notice, this list of conditions and the following disclaimer in the
  12. ::    documentation and/or other materials provided with the distribution.
  13. :: 3. Neither the name of copyright holders nor the names of its
  14. ::    contributors may be used to endorse or promote products derived
  15. ::    from this software without specific prior written permission.
  16. ::
  17. :: THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
  18. :: ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
  19. :: TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
  20. :: PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL COPYRIGHT HOLDERS OR CONTRIBUTORS
  21. :: BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  22. :: CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  23. :: SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  24. :: INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  25. :: CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  26. :: ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  27. :: POSSIBILITY OF SUCH DAMAGE.
  28. ::
  29.  
  30. @ECHO OFF
  31. REM WORM GAME
  32. REM VERSION: 5.0
  33. REM MY ULTIMATE BATCH GAME
  34. REM AUTHOR: CARLOS MONTIERS
  35.  
  36. SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
  37.  
  39. (SET EXISTCHOICE=)
  40. SET "FOLDER_TO_SEARCH=.\;%PATH%"
  41. FOR %%A IN (CHOICE.EXE) DO (
  42.   SET "EXISTCHOICE=%%~$FOLDER_TO_SEARCH:A"
  43. )
  44. IF NOT DEFINED EXISTCHOICE (
  45.   SET "FOLDER_TO_SEARCH=%PATH%"
  46.   FOR %%A IN (CHOICE.COM) DO (
  47.     SET "EXISTCHOICE=%%~$FOLDER_TO_SEARCH:A"
  48.   )
  49. )
  50. IF NOT DEFINED EXISTCHOICE (
  51.   ECHO.WORM GAME 5.0
  52.   ECHO.IF YOUR OPERATING SYSTEM IS:
  53.   ECHO.64 BITS YOU NEED: CHOICE.EXE ^(IN THIS FOLDER^)
  54.   ECHO.32 BITS YOU NEED: CHOICE.COM ^(IN FOLDER %WINDIR%\SYSTEM32^)
  55.   ECHO.YOU CAN GET IN:
  56.   SET "SERVER=ftp.microsoft.com/Services/TechNet"
  57.   ECHO.!SERVER!/samples/PS/Win98/Reskit/SCRPTING/CHOICE.EXE
  58.   ECHO.!SERVER!/Windows/msdos/RESKIT/SUPPDISK/CHOICE.COM
  59.   ECHO.PRESS ANY KEY TO QUIT ...
  60.   PAUSE >NUL
  62.   GOTO :EOF
  63. )
  65.  
  66. :CHOICEV
  68. (SET KEYS=SWDA)
  69. (SET /A SECONDS=2)
  70. CHOICE /C 0 /N /D 0 /T 1 <NUL >NUL 2>&1
  72.   REM CHOICE VERSION 2003 .EXE
  73.   SET "ACTION1=CHOICE.EXE /C !KEYS! /N /D "
  74.   SET "ACTION2= /T !SECONDS!"
  75.   SET "AGAIN=CHOICE.EXE /C !KEYS!YN /N /M "PLAY AGAIN[Y,N]?""
  76. ) ELSE (
  77.   REM CHOICE VERSION 98 .COM AND .EXE
  78.   SET "ACTION1=CHOICE /C:!KEYS! /N /T:"
  79.   SET "ACTION2=,!SECONDS!"
  80.   SET "AGAIN=CHOICE /C:!KEYS!YN /N "PLAY AGAIN[Y,N]?""
  81. )
  82. (
  84. SET "ACTION1=%ACTION1%"
  85. SET "ACTION2=%ACTION2%"
  86. SET "AGAIN=%AGAIN%"
  87. )
  88.  
  89.  
  90. :INFO
  91. ECHO.WORM GAME 5.0
  92. ECHO.W UP
  93. ECHO.S DOWN
  94. ECHO.A LEFT
  95. ECHO.D RIGHT
  96. ECHO.PRESS ANY KEY TO CONTINUE ...
  97. PAUSE >NUL
  98.  
  99. :BOARD
  100. (SET /A MAX_WIDTH=7)
  101. (SET /A MAX_HEIGHT=!MAX_WIDTH!*2-2)
  102. (SET BORDER=õ)
  103. (SET FOOD=Ï)
  104. (SET BACKGROUND= )
  105. (SET WORM_BODY=Û)
  106. (SET WORM_HEAD=)
  107.  
  108. (SET DECISION=#ROW+#ROW-#COLUMN+#COLUMN-#)
  109.  
  110. :START
  111. (SET HISTORY_MOVEMENTS=)
  112. (SET /A SCORE=0)
  113. (SET /A TRIES_TO_PUT_FOOD=0)
  114. (SET /A ROW=0)
  115. (SET /A COLUMN=0)
  116. FOR /F "DELIMS==" %%. IN ("'SET BOARD[ 2>NUL'") DO (
  117.   SET "%%.="
  118. )
  119. FOR /L %%X IN (0,1,!MAX_WIDTH!) DO (
  120.   FOR /L %%Y IN (0,1,!MAX_HEIGHT!) DO (
  121.     SET "BOARD[%%X][%%Y]=!BACKGROUND!"
  122.   )
  123. )
  124. (SET MOVEMENT=D)
  125. (SET BOARD[!ROW!][!COLUMN!]=!WORM_BODY!)
  126. (SET HISTORY_MOVEMENTS=!HISTORY_MOVEMENTS!\[!ROW!][!COLUMN!])
  127. (SET /A COLUMN+=1)
  128. (SET BOARD[!ROW!][!COLUMN!]=!WORM_HEAD!)
  129. (SET LAST=BOARD[!ROW!][!COLUMN!])
  130. CALL :FOOD
  131.  
  132. :PLAY
  133. (SET HISTORY_MOVEMENTS=!HISTORY_MOVEMENTS!\[!ROW!][!COLUMN!])
  134.  
  135. CALL :SHOW
  136.  
  137. :KEYPRESS
  138. %ACTION1%!MOVEMENT!%ACTION2% >NUL 2>&1
  139.  
  140. :DECISION
  141. FOR /F "DELIMS=, TOKENS=%ERRORLEVEL%" %%C IN (",S,W,D,A,") DO (
  142.   SET "MOVEMENT=%%C"
  143. )
  144.  
  145. FOR /F "DELIMS=# TOKENS=%ERRORLEVEL%" %%C IN ("!DECISION!") DO (
  146.   SET /A "%%C=1"
  147. )  
  148.  
  149. (SET EVAL=BOARD[!ROW!][!COLUMN!])
  150. (SET CONTENT_EVAL=!%EVAL%!)
  151. IF NOT DEFINED !EVAL! (
  152.   GOTO :GAMEOVER
  153. ) ELSE (
  154.   IF ^!CONTENT_EVAL! EQU ^!BACKGROUND! (
  155.     SET "!LAST!=!WORM_BODY!"
  156.     SET "!EVAL!=!WORM_HEAD!"
  157.     SET "LAST=BOARD[!ROW!][!COLUMN!]"
  158.     CALL :NOCREACE
  159.   ) ELSE (
  160.     IF ^!CONTENT_EVAL! EQU ^!FOOD! (
  161.       SET "!LAST!=!WORM_BODY!"
  162.       SET "!EVAL!=!WORM_HEAD!"
  163.       SET "LAST=BOARD[!ROW!][!COLUMN!]"
  164.       SET /A "SCORE+=1"
  165.       CALL :FOOD
  166.     ) ELSE (
  167.       GOTO :GAMEOVER
  168.     )
  169.   )
  170. )
  171.  
  172. GOTO :PLAY
  173.  
  174. :SHOW
  175. CLS
  176. FOR /L %%X IN (-!MAX_WIDTH!,1,!MAX_WIDTH!) DO (
  177.   SET /P "PRINT=!BORDER!"<NUL
  178. )
  180. FOR /L %%X IN (0,1,!MAX_WIDTH!) DO (
  181.   SET /P "PRINT=!BORDER!"<NUL
  182.   FOR /L %%Y IN (0,1,!MAX_HEIGHT!) DO (
  183.     SET /P "PRINT=!BOARD[%%X][%%Y]!"<NUL
  184.   )
  185.   SET /P "PRINT=!BORDER!"<NUL
  186.   ECHO.
  187. )
  188. FOR /L %%X IN (-!MAX_WIDTH!,1,!MAX_WIDTH!) DO (
  189.   SET /P "PRINT=!BORDER!"<NUL
  190. )
  192. ECHO\SCORE:!SCORE!
  193. GOTO :EOF
  194.  
  195. :FOOD
  196. (SET /A TRIES_TO_PUT_FOOD+=1)
  197. IF !TRIES_TO_PUT_FOOD! GTR 5 (GOTO :FOOD_E)
  198. (SET CANDIDATE=BOARD[%RANDOM:~-1%][%RANDOM:~-1%])
  199. IF ^!%CANDIDATE%! EQU ^!BACKGROUND! (
  200.   SET "!CANDIDATE!=!FOOD!"
  201. ) ELSE (
  202.   GOTO :FOOD
  203. )
  204. (SET /A TRIES_TO_PUT_FOOD=0)
  205. GOTO :EOF
  206.  
  207. :FOOD_E
  208. FOR /L %%X IN (0,1,!MAX_WIDTH!) DO (
  209.   FOR /L %%Y IN (0,1,!MAX_HEIGHT!) DO (
  210.     IF ^!BOARD[%%X][%%Y]! EQU ^!BACKGROUND! (
  211.       SET "BOARD[%%X][%%Y]=!FOOD!"
  212.       GOTO :FOOD_EE
  213.     )
  214.   )
  215. )
  216. :FOOD_EE
  217. (SET /A TRIES_TO_PUT_FOOD=0)
  218. GOTO :EOF
  219.  
  220. :GAMEOVER
  221. CLS
  222. CALL :SHOW
  223. !AGAIN!
  225.   GOTO :GAMEOVER
  226. )
  228.   GOTO :START
  229. )
  231. GOTO :EOF
  232.  
  233. :NOCREACE
  234. FOR /F "DELIMS=\ TOKENS=1*" %%A IN ("!HISTORY_MOVEMENTS!") DO (
  235.   SET "BOARD%%A=!BACKGROUND!"
  236.   SET "HISTORY_MOVEMENTS=%%B"
  237. )
  238. GOTO :EOF


Télécharger Worms by Carlos
Attention ce jeu peut subir des modifications, assurez vous d'avoir la dernière version.

Hors ligne

 

#2 26-01-2009 18:32:31

Batch_Man
Administrateur
Date d'inscription: 15-12-2008
Messages: 719

Re: [Carlos] Jeu Batch Worms

Oui, c'est vraiment ENORME ce jeu !

Hors ligne

 

#3 28-01-2009 19:39:04

Laddy
Administrateur
Date d'inscription: 21-08-2008
Messages: 1318

Re: [Carlos] Jeu Batch Worms

Hello Carlos
could you explain how you doing to assign a keyboard shortcut to perform an action?

Hors ligne

 

#4 02-02-2009 01:30:29

carlos
Nouveau membre
Date d'inscription: 28-01-2009
Messages: 1

Re: [Carlos] Jeu Batch Worms

The choice command syntax depends on your version, however in the code assigned SWDA and assign it in two seconds if no keys are pressed is used that is the key variable MOVEMENT

So every time you play is stored in the variable previous movement MOVEMENT

Choice as the key errorlevel assigned, for example:

SWDA
S errorlevel 1
W errorlevel 2
D errorlevel 3
A errorlevel 4

:DECISION
FOR /F "DELIMS=, TOKENS=%ERRORLEVEL%" %%C IN (",S,W,D,A,") DO (
  SET "MOVEMENT=%%C"
)

FOR /F "DELIMS=# TOKENS=%ERRORLEVEL%" %%C IN ("#ROW+#ROW-#COLUMN+#COLUMN-#") DO (
  SET /A "%%C=1"
rem S set /a row+=1
rem W set /a row-=1
rem D set /a column+=1
rem A set /a column-=1
)

Dernière modification par carlos (02-02-2009 01:30:58)

Hors ligne

 

#5 02-02-2009 15:26:04

Shoot
Batch.xoo.it
Date d'inscription: 25-08-2008
Messages: 19

Re: [Carlos] Jeu Batch Worms

En effet quand on voit sa on se dit que tout est possible :)

Hors ligne

 

 

Pages: 1

Pied de page des forums

Propulsé par FluxBB
Traduction par FluxBB.fr