Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Probleme Mini jeu Avec batbox
Auteur Message
Répondre en citant
Message Probleme Mini jeu Avec batbox 
Bonjour!
je suis entrain de creer une serie de " mini jeux " en batch et je suis confronté a un probleme;

le principe du jeu est une sorte de "space invaders" avec quelques modifications.
le probleme est que je n'arrive pas a supprimer les balles une fois qu'elles rencontrent un obstacle (ou le plafond de la map)

Pourriez vous m'aider?

code:
Code:


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


:initialisation
mode con cols=40 lines=14
set col=5
set nb=0


:cadre





cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»             
echo º                    º 
echo º                    º   
echo º                    º 
echo º                    º 
echo º                    º   
echo º                    º
echo º                    º   
echo º                    º   
echo º                    º   
echo º                    º   
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   




:cadre1

for /l %%a in (1,1,%nb%) do batbox /g !posb%%a! !ligne%%a! /c 0x00 /d I /c 0x0f

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

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

for /l %%a in (1,1,%nb%) do batbox /g !posb%%a! !ligne%%a! /d I

batbox /g %col% 10 /d "o" /w 20



batbox /k_


if %errorlevel%==32 goto :new_bullet

if %errorlevel%==330 goto :gauche


if %errorlevel%==332 goto :droite



goto :cadre1



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

goto :eof

:del
set ligne%1=1
goto :eof

:new_bullet
set /a nb=%nb%+1
set posb%nb%=%col%
set ligne%nb%=10

goto :cadre1


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

:droite
batbox /g %col% 10 /c 0x00 /d "o" /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




Dernière édition par SpeedCookie le Dim 2 Nov 2014 - 21:07; édité 2 fois

______________________________________________________
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 Probleme Mini jeu Avec batbox 
Salut Mr. Green

Et comme ça Wink


Code:


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


:initialisation
mode con cols=40 lines=14
set col=5
set nb=0


:cadre





cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»             
echo º                    º 
echo º                    º   
echo º                    º 
echo º                    º 
echo º                    º   
echo º                    º
echo º                    º   
echo º                    º   
echo º                    º   
echo º                    º   
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   




:cadre1

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

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

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

for /l %%a in (1,1,%nb%) do if not !ligne%%a!==Nope batbox /g !posb%%a! !ligne%%a! /d I

batbox /g %col% 10 /d "o" /w 20



batbox /k_


if %errorlevel%==32 goto :new_bullet

if %errorlevel%==330 goto :gauche


if %errorlevel%==332 goto :droite



goto :cadre1



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

goto :eof

:del
set ligne%1=Nope
goto :eof

:new_bullet
set /a nb=%nb%+1
set posb%nb%=%col%
set ligne%nb%=10

goto :cadre1


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

:droite
batbox /g %col% 10 /c 0x00 /d "o" /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



@+ Okay




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message Probleme Mini jeu Avec batbox 
Pu**** j'y avait pas pensé merci beaucoup xD




______________________________________________________
Le Batch ; c'est la vie!

De la programmation et du Gaming? : https://www.youtube.com/channel/UC54TZ4W6uESNHfWg3GhhQDg
Visiter le site web du posteur
Répondre en citant
Message Probleme Mini jeu Avec batbox 
derien Mr. Green Okay




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message Probleme Mini jeu Avec batbox 
seul probleme : diminution des fps a chaque balle et ca se ressent assez fort :/
j'ai essayé de plutot enlever le "cadre1" et de mettre un cls mais du coup c'est tout le cadre qui clignote
le probleme c'est la boucle for :
Code:

for /l %%a in (1,1,%nb%) do if not !ligne%%a! equ nope batbox /g !posb%%a! !ligne%%a! /c 0x00 /d I /c 0x0f

car a chaque nouvelle balle le nb augmente donc 1 valeur en + a verifier a chaque fois donc baisse de fps
j'ai essayé de mettre au "del" set /a nb=%nb%-1 mais du coup si il y a plusieurs balles a l'ecran ca supprime la derniere dés que la 1ere touche un obstacle

qqun peut m'aider?




______________________________________________________
Le Batch ; c'est la vie!

De la programmation et du Gaming? : https://www.youtube.com/channel/UC54TZ4W6uESNHfWg3GhhQDg
Visiter le site web du posteur
Répondre en citant
Message Probleme Mini jeu Avec batbox 
Serait il possible d'enregistrer le "nb" de la balle a supprimer et la "détruire " car la elle ne s'affiche pas mais le "nb" continue a augmenter ...




______________________________________________________
Le Batch ; c'est la vie!

De la programmation et du Gaming? : https://www.youtube.com/channel/UC54TZ4W6uESNHfWg3GhhQDg
Visiter le site web du posteur
Répondre en citant
Message Probleme Mini jeu Avec batbox 
des idées ?




______________________________________________________
Le Batch ; c'est la vie!

De la programmation et du Gaming? : https://www.youtube.com/channel/UC54TZ4W6uESNHfWg3GhhQDg
Visiter le site web du posteur
Répondre en citant
Message Probleme Mini jeu Avec batbox 
Faut que tu attendes DarkBatcheur, MagicDOS, ou un connaisseur expérimenté de BatBox pour avoir une réponse Okay




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Répondre en citant
Message Probleme Mini jeu Avec batbox 
Re Mr. Green

Test ça Very Happy :

Code:

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


:initialisation
mode con cols=40 lines=14
set col=5
set nb=0
for /l %%$ in (0,1,199) do set Shot_%%$=Nope

:cadre





cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»             
echo º                    º 
echo º                    º   
echo º                    º 
echo º                    º 
echo º                    º   
echo º                    º
echo º                    º   
echo º                    º   
echo º                    º   
echo º                    º   
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ   




:cadre1



for /l %%a in (0,1,%nb%) do if not !Shot_%%a!==Nope batbox /g !posb%%a! !ligne%%a! /c 0x00 /d I /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! /d I

batbox /g %col% 10 /d "o" /w 20



batbox /k_


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
)
:Next
if %Clear%==True set nb=0

goto :cadre1



:set
set /a ligne%1=!ligne%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
goto :cadre1


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

:droite
batbox /g %col% 10 /c 0x00 /d "o" /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



@+ Okay




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message Probleme Mini jeu Avec batbox 
Merci beaoucoup Magic c'est parfait! Very Happy




______________________________________________________
Le Batch ; c'est la vie!

De la programmation et du Gaming? : https://www.youtube.com/channel/UC54TZ4W6uESNHfWg3GhhQDg
Visiter le site web du posteur
Répondre en citant
Message Probleme Mini jeu Avec batbox 
Cool Okay Okay




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message Probleme Mini jeu Avec batbox 
C'est Magic(que) Laughing Okay




______________________________________________________
Une question ? N'hésitez pas à me contacter par Message Privé ou via le topique concerné.
Visiter le site web du posteur
Message Probleme Mini jeu Avec batbox 


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