Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Test de jeu "Shooter"
Auteur Message
Répondre en citant
Message Test de jeu "Shooter" 
Voici un projet de jeu en cours Le principe : une sorte de space invaders modifié avec la base de Minefield Smile
Pouvez vous me donner vos avis et vos idées? Smile

Code:

@echo off
IF NOT EXIST BatBox.exe CALL :make_bb
setlocal enabledelayedexpansion


:initialisation
title=Shooter V0.1
mode con cols=40 lines=15
set col=5
set nb=0
for /l %%$ in (0,1,199) do set Shot_%%$=Nope
set en=0
set f=0
set /a en=%en%+1
goto :new_ennemi

:cadre
set f=1
set xy=0





cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»             
echo º                    º 
echo º                    º   
echo º                    º 
echo º                    º 
echo º                    º    points: %points%
echo º                    º     
echo º                    º   
echo º                    º   
echo º                    º   
echo º                    º   
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   




:cadre1
set /a xy=%xy%+1
batbox /g 25 8 /d %en%
batbox /g 25 7 /d colE%en%=!colE%en%!
for /l %%a in (0,1,%en%) do call :set4 %%a

for /l %%a in (0,1,%en%) do if !tik%%a!==20 call :set3 %%a

for /l %%a in (0,1,%ne%) do call :set2 %%a

for /l %%a in (0,1,%en%) do (
    for /l %%b in (0,1,%nb%) do if !posb%%b!!ligne%%b!==!colE%%a!!ligneE%%a! goto :ennemi_mort
)

for /l %%a in (1,1,%en%) do batbox /g !colE%%a! !ligneE%%a! /d O

for /l %%a in (0,1,%nb%) do if not !Shot_%%a!==Nope batbox /g !posb%%a! !ligne%%a! /c 0x00 /a 179 /c 0x0f

for /l %%a in (0,1,%nb%) do call :set %%a

for /l %%a in (0,1,%nb%) do if !ligne%%a! lss 1 call :del %%a


for /l %%a in (0,1,%nb%) do if not !Shot_%%a!==Nope batbox /g !posb%%a! !ligne%%a! /c 0x0a /a 179 /c 0x0f



batbox /g %col% 10 /c 0x08 /a 154 /c 0x0f /w 2


batbox /k_

if %errorlevel%==111 set /a en=%en%+1 & goto :new_ennemi

if %errorlevel%==32 goto :new_bullet

if %errorlevel%==330 goto :gauche


if %errorlevel%==332 goto :droite

set Clear=True
for /l %%$ in (0,1,%nb%) do (
   if !Shot_%%$!==True set Clear=False&goto:Next
)
if %xy%==100 set /a en=%en%+1 & goto :new_ennemi
goto :cadre1

:Next
if %Clear%==True set nb=0

goto :cadre1


:new_ennemi

set xy=0
set /a colE%en%=%random%%%21
set ligneE%en%=1

if colE%en% lss 1 goto :new_ennemi
if %f%==0 goto :cadre

goto :cadre1

:ennemi_mort
set /a points=%points%+1
set /a col%en%=0
set /a en=%en%-1
goto :new_ennemi

:set4
set /a tik%1=!tik%1!+1
goto :eof

:set3
for /l %%a in (1,1,%en%) do batbox /g !colE%%a! !ligneE%%a! /c 0x00 /d O /c 0x0f

set /a ligneE%1=!ligneE%1!+1
set tik%1=0
goto :eof



:set
set /a ligne%1=!ligne%1!-1
goto :eof


:set2
set /a ligneE%1=!ligneE%1!+1
goto :eof

:del
set Shot_%1=Nope
goto :eof

:new_bullet

for /l %%$ in (0,1,%nb%) do (
   if !Shot_%%$!==Nope (
      set posb%%$=!col!
      set ligne%%$=10
      set Shot_%%$=True
      goto :Cadre1
   )
)
set/a nb+=1
set posb%1=!col!
set ligne%1=10
set Shot_%1=True
goto :cadre1


:gauche
batbox /g %col% 10 /c 0x00 /a 154 /c 0x0f
if %col% gtr 1 set /a col=%col%-1
goto :cadre1

:droite
batbox /g %col% 10 /c 0x00 /a 154 /c 0x0f
if %col% lss 20 set /a col=%col%+1
goto :cadre1



:make_bb

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





______________________________________________________
Le Batch ; c'est la vie!

De la programmation et du Gaming? : https://www.youtube.com/channel/UC54TZ4W6uESNHfWg3GhhQDg
Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Test de jeu "Shooter" 
Oula, encore un qui ne sait pas ranger ces affaires Laughing

Bravo! Okay



Répondre en citant
Message Test de jeu "Shooter" 
C'est sympathique, après ça reste du batch, donc ça galère à tourner.




______________________________________________________
Je ne suis pas ce que je suis. Mais si j'étais ce que je suis alors je ne serais pas ce que je suis actuellement (vous avez 2 heures).

Python : 90%
Batch : 65%
AutoIt : 20%

Site : http://lavapower.890m.com
Visiter le site web du posteur
Message Test de jeu "Shooter" 


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