Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
aide mini-jeux
Auteur Message
Répondre en citant
Message aide mini-jeux 
bonsoir a tous,
Mon "mini-jeux" est trop lent ,pas assez fluide,pourquoi ?
Le but est simple ,il faut ramasser une clé pour pouvoir ouvrir un coffre et ensuite obtenir des points.
Je n’utilise pas batbox car je sais pas trop m'en servir... Laughing
Merci d'avance !Smile

Code:

@echo off
mode 44,18
color 3E
TITLE
setlocal enabledelayedexpansion

:Restart
set time=0
set c=3
set sckey=0
set score=0
set info=
set "cur="
set "p1="
set "p2= "
set "p3= "
set t=1
:Menu
cls
echo.
echo.
echo.
echo.
echo.
echo.               %p1% COMMENCER
echo.               %p2% AIDE
echo.               %p3% QUITTER
echo.
choice.exe /c:hbv /n
if %errorlevel%==3 goto :V
if %errorlevel%==2 goto :B
if %errorlevel%==1 goto :H
goto :Menu

:H
if not %t%==1 set "p%t%="&set /a t-=1
set p%t%=%cur%
goto :Menu

:B
if not %t%==3 set "p%t%="&set /a t+=1
set p%t%=%cur%
goto :Menu

:V
if %t%==1 goto :Add
if %t%==2 goto :Help
if %t%==3 cls&ping localhost -n 2 > nul&exit
goto :Menu

:Mouv
cls
set x-%x%-y-%y%=
if %c%==3 set vie=
if %time%==2 set info=
if %time%==1 set /A time+=1
if !x-%x%-y-%y%!==!%mine%! goto :Loose
if !x-%x%-y-%y%!==!%mine2%! goto :Loose
if !x-%x%-y-%y%!==!%mine3%! goto :Loose
if !x-%x%-y-%y%!==!%mine4%! goto :Loose
if !x-%x%-y-%y%!==!%mine5%! goto :Loose
if !x-%x%-y-%y%!==!%mine6%! goto :Loose
if !x-%x%-y-%y%!==!%mine7%! goto :Loose
if !x-%x%-y-%y%!==!%mine8%! goto :Loose
if !x-%x%-y-%y%!==!%chest%! call :chest
if !x-%x%-y-%y%!==!%key%! set sckey=1
echo.
echo. ÚÄÄÄÄÄÄÄÄÄÄÄ¿
echo. ³%x-0-y-0%%x-0-y-1%%x-0-y-2%%x-0-y-3%%x-0-y-4%%x-0-y-5%%x-0-y-6%%x-0-y-7%%x-0-y-8%%x-0-y-9%%x-0-y-10%³
echo. ³%x-1-y-0%%x-1-y-1%%x-1-y-2%%x-1-y-3%%x-1-y-4%%x-1-y-5%%x-1-y-6%%x-1-y-7%%x-1-y-8%%x-1-y-9%%x-1-y-10%³                  Vie : [%vie%]
echo. ³%x-2-y-0%%x-2-y-1%%x-2-y-2%%x-2-y-3%%x-2-y-4%%x-2-y-5%%x-2-y-6%%x-2-y-7%%x-2-y-8%%x-2-y-9%%x-2-y-10%³                  Score : %score%
echo. ³%x-3-y-0%%x-3-y-1%%x-3-y-2%%x-3-y-3%%x-3-y-4%%x-3-y-5%%x-3-y-6%%x-3-y-7%%x-3-y-8%%x-3-y-9%%x-3-y-10%³                   cl‚ : %sckey%
echo. ³%x-4-y-0%%x-4-y-1%%x-4-y-2%%x-4-y-3%%x-4-y-4%%x-4-y-5%%x-4-y-6%%x-4-y-7%%x-4-y-8%%x-4-y-9%%x-4-y-10%³
echo. ³%x-5-y-0%%x-5-y-1%%x-5-y-2%%x-5-y-3%%x-5-y-4%%x-5-y-5%%x-5-y-6%%x-5-y-7%%x-5-y-8%%x-5-y-9%%x-5-y-10%³
echo. ³%x-6-y-0%%x-6-y-1%%x-6-y-2%%x-6-y-3%%x-6-y-4%%x-6-y-5%%x-6-y-6%%x-6-y-7%%x-6-y-8%%x-6-y-9%%x-6-y-10%³
echo. ³%x-7-y-0%%x-7-y-1%%x-7-y-2%%x-7-y-3%%x-7-y-4%%x-7-y-5%%x-7-y-6%%x-7-y-7%%x-7-y-8%%x-7-y-9%%x-7-y-10%³
echo. ³%x-8-y-0%%x-8-y-1%%x-8-y-2%%x-8-y-3%%x-8-y-4%%x-8-y-5%%x-8-y-6%%x-8-y-7%%x-8-y-8%%x-8-y-9%%x-8-y-10%³   %info%
echo. ³%x-9-y-0%%x-9-y-1%%x-9-y-2%%x-9-y-3%%x-9-y-4%%x-9-y-5%%x-9-y-6%%x-9-y-7%%x-9-y-8%%x-9-y-9%%x-9-y-10%³
echo. ³%x-10-y-0%%x-10-y-1%%x-10-y-2%%x-10-y-3%%x-10-y-4%%x-10-y-5%%x-10-y-6%%x-10-y-7%%x-10-y-8%%x-10-y-9%%x-10-y-10%³
echo. ÀÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
if %c%==0 ping localhost -n 2 > nul&goto:Fin
:Move
choice.exe /c:hbdg /n
if %errorlevel%==4 goto :Left
if %errorlevel%==3 goto :Right
if %errorlevel%==2 goto :Down
if %errorlevel%==1 goto :Up
goto :Move

:Down
if not %x%==10 set "x-%x%-y-%y%= "&set /a x+=1
goto :Mouv

:Up
if not %x%==0 set "x-%x%-y-%y%= "&set /a x-=1
goto :Mouv

:Right
if not %y%==10 set "x-%x%-y-%y%= "&set /a y+=1
goto :Mouv

:Left
if not %y%==0 set "x-%x%-y-%y%= "&set /a y-=1
goto :Mouv

:Add
FOR /l %%A in (0,1,10) do (
  set "x-0-y-%%A= "
  set "x-1-y-%%A= "
  set "x-2-y-%%A= "
  set "x-3-y-%%A= "
  set "x-4-y-%%A= "
  set "x-5-y-%%A= "
  set "x-6-y-%%A= "
  set "x-7-y-%%A= "
  set "x-8-y-%%A= "
  set "x-9-y-%%A= "
  set "x-10-y-%%A= "
 )

set /a keyx=%random%%%11
set /a keyy=%random%%%11
set /a chestx=%random%%%11
set /a chesty=%random%%%11
set /a minex=%random%%%11
set /a miney=%random%%%11
set /a mine2x=%random%%%11
set /a mine2y=%random%%%11
set /a mine3x=%random%%%11
set /a mine3y=%random%%%11
set /a mine4x=%random%%%11
set /a mine4y=%random%%%11
set /a mine5x=%random%%%11
set /a mine5y=%random%%%11
set /a mine6x=%random%%%11
set /a mine6y=%random%%%11
set /a mine7x=%random%%%11
set /a mine7y=%random%%%11
set /a mine8x=%random%%%11
set /a mine8y=%random%%%11

if %keyx% LEQ 6 goto :Add
if x-%minex%-y-%miney%==x-0-y-0 goto :Add
if x-%mine2x%-y-%mine2y%==x-0-y-0 goto :Add
if x-%mine3x%-y-%mine3y%==x-0-y-0 goto :Add
if x-%mine4x%-y-%mine4y%==x-0-y-0 goto :Add
if x-%mine5x%-y-%mine5y%==x-0-y-0 goto :Add
if x-%mine6x%-y-%mine6y%==x-0-y-0 goto :Add
if x-%mine7x%-y-%mine7y%==x-0-y-0 goto :Add
if x-%mine8x%-y-%mine8y%==x-0-y-0 goto :Add

if %mine2x%-%mine2y%==%keyx%-%keyy% goto :Add
if %mine3x%-%mine3y%==%keyx%-%keyy% goto :Add
if %mine4x%-%mine4y%==%keyx%-%keyy% goto :Add
if %mine5x%-%mine5y%==%keyx%-%keyy% goto :Add
if %mine6x%-%mine6y%==%keyx%-%keyy% goto :Add
if %mine7x%-%mine7y%==%keyx%-%keyy% goto :Add
if %mine8x%-%mine8y%==%keyx%-%keyy% goto :Add

if %mine2x%-%mine2y%==%chestx%-%chesty% goto :Add
if %mine3x%-%mine3y%==%chestx%-%chesty% goto :Add
if %mine4x%-%mine4y%==%chestx%-%chesty% goto :Add
if %mine5x%-%mine5y%==%chestx%-%chesty% goto :Add
if %mine6x%-%mine6y%==%chestx%-%chesty% goto :Add
if %mine7x%-%mine7y%==%chestx%-%chesty% goto :Add
if %mine8x%-%mine8y%==%chestx%-%chesty% goto :Add

if x-%chestx%-y-%chesty%==x-0-y-0 goto :Add
if x-%keyx%-y-%keyy%==x-0-y-0 goto :Add

set "x-%x%-y-%y%= "
set x=0&set y=0

set x-%keyx%-y-%keyy%=´
set x-%chestx%-y-%chesty%=þ
set x-%minex%-y-%miney%=x
set x-%mine2x%-y-%mine2y%=x
set x-%mine3x%-y-%mine3y%=x
set x-%mine4x%-y-%mine4y%=x
set x-%mine5x%-y-%mine5y%=x
set x-%mine6x%-y-%mine6y%=x
set x-%mine7x%-y-%mine7y%=x
set x-%mine8x%-y-%mine8y%=x

set chest=x-%chestx%-y-%chesty%
set key=x-%keyx%-y-%keyy%
set mine=x-%minex%-y-%miney%
set mine2=x-%mine2x%-y-%mine2y%
set mine3=x-%mine3x%-y-%mine3y%
set mine4=x-%mine4x%-y-%mine4y%
set mine5=x-%mine5x%-y-%mine5y%
set mine6=x-%mine6x%-y-%mine6y%
set mine7=x-%mine7x%-y-%mine7y%
set mine8=x-%mine8x%-y-%mine8y%
goto :Mouv

:Loose
set /a score-=50
set /a c-=1
if %c%==2 set "vie= "
if %c%==1 set "vie=  "
if %c%==0 set "vie=   "
goto :Add

:chest
if %sckey%==1 ( set /A score+=100
set sckey=0
goto :Add)
set info=il vous faut une cl‚ ^^!&set time=1
goto :Add

:Help
cls
echo.
echo.
echo.
echo.   HAUT : H   BAS: B   
echo.   DROITE : D   GAUCHE : G   
echo.   VALIDER : V
echo.
pause>nul
goto :Menu

:Fin
cls
echo.
echo.
echo.
echo.        Vous avez perdu ^^!^^!:(
echo.
echo.
ping localhost -n 3 > nul
goto :Restart




Visiter le site web du posteur
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message aide mini-jeux 
Salut ! Sympa ton code, surtoût la génération aléatoire !

Alors à mon avis tu devrais te mettre à batbox directement quand tu fais des jeux graphiques ...
Perso chez moi le jeux n'est pas "lent" ...

As-tu regardé la documentation de batbox ?
Et le tuto ?

@ ++ Okay Wink




______________________________________________________
Coucou, tu veux voir mon Site Web ?? Mort de Rire
Visiter le site web du posteur Skype
Répondre en citant
Message aide mini-jeux 
Bonjour Xenoxis,
merci pour ta réponse, c vrai que je devrai me mettre à batbox ,mais je n'aime pas trop, c'est plus trop du batch vu que c'est une commande externe...
Perso moi c'est un peu lent, peut-être à cause de mon PC pas trop performant....



Visiter le site web du posteur
Répondre en citant
Message aide mini-jeux 
SKYSEVEN33 a écrit:
Bonjour Xenoxis,
merci pour ta réponse, c vrai que je devrai me mettre à batbox ,mais je n'aime pas trop, c'est plus trop du batch vu que c'est une commande externe...
Perso moi c'est un peu lent, peut-être à cause de mon PC pas trop performant....


Je pensais la même chose que toi il y a quelques années (quand je savais pas me servir de batbox).
Batbox à beaucoup d'avantage, après tu t'en fiche si tu utilise une commande externe ou pas qui n'est pas forcément du batch, le principal c'est ce que tu en fait !

Tu pourrais faire exactement les mêmes chose en batch que ce que fais batbox, batbox raccourcis simplement le processus et le rend beaucoup plus rapide !

Après oui à mon avis ton pc n'est pas très puissant Mort de Rire

@ ++ Okay Wink




______________________________________________________
Coucou, tu veux voir mon Site Web ?? Mort de Rire
Visiter le site web du posteur Skype
Répondre en citant
Message aide mini-jeux 
oui,PC pas très puissant ! Mort de Rire
j'utilserai plus tard avec batbox ,pour l'instant ,c'est choice !x)



Visiter le site web du posteur
Répondre en citant
Message aide mini-jeux 
Personnellement, je n'utilise pas batbox, pas trop envie de ce casser la tête avec une syntaxe bourrée de '/', ça pourais être cool une syntaxe unixienne (-bxfd à la place de /b /x /f /d).
Sinon, moi, comme je fais du C#, je fais moi-même mes commandes externes, en C#, comme ça, ça correspond à mes attentes.

Aussi, j'ai montré que le batch pur pouvais très bien afficher un jeu : http://batch.xoo.it/t4938-Petit-jeu-de-test-avec-graphismes.htm
Bon, graphiquement, c'est pas meilleur que batbox mais ça montre bien que le batch suffit largement dans la plupart des cas.




______________________________________________________
Partager permet le savoir. Le savoir permet de partager de nouveau savoirs.
Répondre en citant
Message aide mini-jeux 
TSnake41 a écrit:
Personnellement, je n'utilise pas batbox, pas trop envie de ce casser la tête avec une syntaxe bourrée de '/', ça pourais être cool une syntaxe unixienne (-bxfd à la place de /b /x /f /d).
Sinon, moi, comme je fais du C#, je fais moi-même mes commandes externes, en C#, comme ça, ça correspond à mes attentes.

Aussi, j'ai montré que le batch pur pouvais très bien afficher un jeu : http://batch.xoo.it/t4938-Petit-jeu-de-test-avec-graphismes.htm
Bon, graphiquement, c'est pas meilleur que batbox mais ça montre bien que le batch suffit largement dans la plupart des cas.


La syntaxe en batch pur est assez compliquée ... Et je vois pas en quoi batbox est un casse tête avec ses '/', d'autant plus que avec une syntaxe "unixienne" cela aurait été impossible (par exemple pour le /d)

@ ++ Okay Wink




______________________________________________________
Coucou, tu veux voir mon Site Web ?? Mort de Rire
Visiter le site web du posteur Skype
Répondre en citant
Message aide mini-jeux 
Une partie de la réponse apportée ici http://batch.xoo.it/p39145.htm




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Répondre en citant
Message Nouvelle version 
Bonjour a tous !
Je viens de finir une petite maj de ce "mini jeux" ,voici le code :
Code:

@echo off
setlocal enabledelayedexpansion
mode 48,18
color 3E
TITLE Chest by PL

:Restart
set k=0
set time=0
set c=3
set sckey=0
set score=0
set info=
set "cur="
set "p1="
set "p2= "
set "p3= "
set t=1
:Menu
cls
echo.
echo.
echo.
echo.
echo.
echo.                 %p1% COMMENCER
echo.                 %p2% AIDE
echo.                 %p3% QUITTER
echo.
choice.exe /c:hbv /n
if %errorlevel%==3 goto :V
if %errorlevel%==2 goto :B
if %errorlevel%==1 goto :H
goto :Menu
 
:H
if not %t%==1 set "p%t%="&set /a t-=1
set p%t%=%cur%
goto :Menu
 
:B
if not %t%==3 set "p%t%="&set /a t+=1
set p%t%=%cur%
goto :Menu
 
:V
if %t%==1 goto :Add
if %t%==2 goto :Help
if %t%==3 cls&ping localhost -n 2 > nul&exit
goto :Menu
 
:Mouv
cls
set x-%x%-y-%y%=
if %c%==3 set vie=
if %time%==2 set info=
if %time%==1 set /A time+=1
for /l %%X in (1,1,8) do if x-%x%-y-%y%==!mine%%X! goto :Loose
if x-%x%-y-%y%==%chest% call :chest
if x-%x%-y-%y%==%key% call :info1
if %score% GEQ %best% echo %score%/>best.dll
for /f "tokens=1 delims=/" %%A in (best.dll) do set best=%%A
echo.
echo. ÚÄÄÄÄÄÄÄÄÄÄÄ¿
echo. ³%x-0-y-0%%x-0-y-1%%x-0-y-2%%x-0-y-3%%x-0-y-4%%x-0-y-5%%x-0-y-6%%x-0-y-7%%x-0-y-8%%x-0-y-9%%x-0-y-10%³
echo. ³%x-1-y-0%%x-1-y-1%%x-1-y-2%%x-1-y-3%%x-1-y-4%%x-1-y-5%%x-1-y-6%%x-1-y-7%%x-1-y-8%%x-1-y-9%%x-1-y-10%³                  Vie : [%vie%]
echo. ³%x-2-y-0%%x-2-y-1%%x-2-y-2%%x-2-y-3%%x-2-y-4%%x-2-y-5%%x-2-y-6%%x-2-y-7%%x-2-y-8%%x-2-y-9%%x-2-y-10%³                  Score : %score%
echo. ³%x-3-y-0%%x-3-y-1%%x-3-y-2%%x-3-y-3%%x-3-y-4%%x-3-y-5%%x-3-y-6%%x-3-y-7%%x-3-y-8%%x-3-y-9%%x-3-y-10%³                   cl‚ : %sckey%
echo. ³%x-4-y-0%%x-4-y-1%%x-4-y-2%%x-4-y-3%%x-4-y-4%%x-4-y-5%%x-4-y-6%%x-4-y-7%%x-4-y-8%%x-4-y-9%%x-4-y-10%³
echo. ³%x-5-y-0%%x-5-y-1%%x-5-y-2%%x-5-y-3%%x-5-y-4%%x-5-y-5%%x-5-y-6%%x-5-y-7%%x-5-y-8%%x-5-y-9%%x-5-y-10%³
echo. ³%x-6-y-0%%x-6-y-1%%x-6-y-2%%x-6-y-3%%x-6-y-4%%x-6-y-5%%x-6-y-6%%x-6-y-7%%x-6-y-8%%x-6-y-9%%x-6-y-10%³
echo. ³%x-7-y-0%%x-7-y-1%%x-7-y-2%%x-7-y-3%%x-7-y-4%%x-7-y-5%%x-7-y-6%%x-7-y-7%%x-7-y-8%%x-7-y-9%%x-7-y-10%³
echo. ³%x-8-y-0%%x-8-y-1%%x-8-y-2%%x-8-y-3%%x-8-y-4%%x-8-y-5%%x-8-y-6%%x-8-y-7%%x-8-y-8%%x-8-y-9%%x-8-y-10%³
echo. ³%x-9-y-0%%x-9-y-1%%x-9-y-2%%x-9-y-3%%x-9-y-4%%x-9-y-5%%x-9-y-6%%x-9-y-7%%x-9-y-8%%x-9-y-9%%x-9-y-10%³
echo. ³%x-10-y-0%%x-10-y-1%%x-10-y-2%%x-10-y-3%%x-10-y-4%%x-10-y-5%%x-10-y-6%%x-10-y-7%%x-10-y-8%%x-10-y-9%%x-10-y-10%³  %info%
echo. ÀÄÄÄÄÄÄÄÄÄÄÄÙ
echo. Meilleur score : %best%
if %c%==0 goto:Fin
:Move
choice.exe /c:hbdg /n
if %errorlevel%==4 goto :Left
if %errorlevel%==3 goto :Right
if %errorlevel%==2 goto :Down
if %errorlevel%==1 goto :Up
goto :Move
 
:Down
if not %x%==10 set "x-%x%-y-%y%= "&set /a x+=1
goto :Mouv
 
:Up
if not %x%==0 set "x-%x%-y-%y%= "&set /a x-=1
goto :Mouv
 
:Right
if not %y%==10 set "x-%x%-y-%y%= "&set /a y+=1
goto :Mouv
 
:Left
if not %y%==0 set "x-%x%-y-%y%= "&set /a y-=1
goto :Mouv
 
:Add
FOR /l %%A in (0,1,10) do (
  set "x-0-y-%%A= "
  set "x-1-y-%%A= "
  set "x-2-y-%%A= "
  set "x-3-y-%%A= "
  set "x-4-y-%%A= "
  set "x-5-y-%%A= "
  set "x-6-y-%%A= "
  set "x-7-y-%%A= "
  set "x-8-y-%%A= "
  set "x-9-y-%%A= "
  set "x-10-y-%%A= "
 )
set x=0&set y=0
set /a keyx=%random%%%11
set /a keyy=%random%%%11
set /a chestx=%random%%%11
set /a chesty=%random%%%11

:GenMine
set /a k+=1
set /A mine%k%x=%RANDOM%%%11
set /A mine%k%y=%RANDOM%%%11
if %k%==8 set k=0&goto :Verif
goto :GenMine

:Verif
set x-%keyx%-y-%keyy%=´
set x-%chestx%-y-%chesty%=þ
if x-%chestx%-y-%chesty%==x-0-y-0 goto :Add
if x-%keyx%-y-%keyy%==x-0-y-0 goto :Add
if %keyx% LEQ 6 goto :Add

for /l %%S in (1,1,8) do if !mine%%Sx!-!mine%%Sy!==0-0 goto :GenMine

for /l %%T in (1,1,8) do if !mine%%Tx!-!mine%%Ty!==%keyx%-%keyy% goto :GenMine

for /l %%U in (1,1,8) do if !mine%%Ux!-!mine%%Uy!==%chestx%-%chesty% goto :GenMine
 
for /l %%V in (1,1,8) do set x-!mine%%Vx!-y-!mine%%Vy!=x


for /l %%W in (1,1,8) do set mine%%W=x-!mine%%Wx!-y-!mine%%Wy!
set chest=x-%chestx%-y-%chesty%
set key=x-%keyx%-y-%keyy%
goto :Mouv
 
:Loose
set time=1&set info=-50 points .
set /a score-=50
set /a c-=1
if %c%==2 set "vie= "
if %c%==1 set "vie=  "
if %c%==0 set "vie=   "
goto :Add
 
:chest
if %sckey%==1 ( set /A score+=100
set sckey=0&set time=1
set info=+100 points
goto :Add)
goto :info2
 
:info1
set sckey=1&set time=1&set info=cl‚ recuper‚e
goto :Eof
 
:info2
set time=1&set info=il vous faut une cl‚
goto :Add
 
:Help
cls
echo.
echo.
echo.
echo.   HAUT : H   BAS: B 
echo.   DROITE : D   GAUCHE : G 
echo.   VALIDER : V
echo.
pause>nul
goto :Menu
 
:Fin
cls
echo.
echo.
echo.
echo.        Vous avez perdu
echo.
echo.
ping localhost -n 3 > nul
goto :Restart




Visiter le site web du posteur
Répondre en citant
Message aide mini-jeux 
Salut, pour que ça clignote moins tu devrais placer ton CLS juste avant l'affichage Wink
Perso j'utilise key.exe de bilou, bien mieux que choice.exe, plus rapide et surtout très simple, pas besoin de lire la doc de 300 pages en japonais comme pour batbox Mr. Green




______________________________________________________


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
Message aide mini-jeux 


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