Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[version finale] MineField
Auteur Message
Répondre en citant
Message [version finale] MineField 
Bonjour tout le monde!
voici la version finale de mon jeu MineField.

mises a jour:

-3.0: changement de l'interface et ajout du systeme de mouvement
-3.5: ajout des barres de chargement
-4.0: Ajout des sons
-4.2: Ajout du systeme de sauvegarde
-4.5: compression du systeme de sauvegarde et changement de l'animation de mort

Lien de téléchargement : https://app.box.com/s/9j5c9tm95xs11mmcwpzm

N'hésitez pas a m'envoyer vos avis en MP Smile

TELECHARGEZ LA VERSION ZIP OU LE PROGRAMME NE MARCHERA PAS je vous aurais prévenu moz_tongueout

Code:



::MineField V4.5 crée par Luca De Santos (SpeedCookie)
::Contact  Desantos_luca@yahoo.com
                                         
Rem ---------------------- Copyright ----------------------------------


:: MineField Copyright (c) by SpeedCookie, ne pas copier, modifier, distribuer ce code sans mon autorisation
:: commandes externes utilisés :
:: -Batbox; By DarkBatcher

::Merci aux personnes du forum http://batch.xoo.it/ pour leur aide et leurs conseils

Rem ---------------------- Copyright ----------------------------------

@echo off
set lvl=0
IF NOT EXIST BatBox.exe CALL :make_bb
if not exist Records.save call :new_record
setlocal enabledelayedexpansion

goto :initialisation

:initialisation
for /f "tokens=1 delims=/" %%a in (Records.save) do set record=%%a
mode con cols=40 lines=15
title MineField V4.5
color 0f
set col=5
set ligne=5
set lvl=1
set BAR=
set dir=nope
set temps=150
set z=6
if %lvl% geq %record% set /a record=%lvl%+1 & call :new_record
goto :new_terrain


:b
start %CD%\sons\beep.vbs
set BAR=%BAR%
if %points% geq 5 goto :levelup

goto :a

:levelup
set /a lvl=%lvl%+1

if %lvl% geq %record% set /a record=%lvl%+1 & call :new_record

start %CD%\sons\LevelUp.vbs
cls
set /a temps=%temps%-10
if %temps% lss 50 set tenms=50
set dir=nope
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»             
echo º                    º 
echo º                    º   Niveau %lvl%
echo º                    º 
echo º                    º  Ú       ¿
echo º                    º    
echo º                    º  À       Ù
echo º                    º   
echo º                    º   
echo º                    º   
echo º                    º
echo ÈÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍͼ 
echo     º            º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍͼ
batbox /g 6 12 /d "Record:%record%"
batbox /g 25 8 /c 0x0e /d  /c 0x0f /d =Vous
batbox /g 25 9 /c 0x0c /d  /c 0x0f /d =Point
batbox /g 25 10 /c 0x08 /d X /c 0x0f /d =MINE!!
for /l %%$ in (3,1,%z%) do batbox /g !col%%$! !ligne%%$! /c 0x08 /d X /c 0x0f
batbox /g 26 5 /c 0x0c /d "%BAR%" /c 0x0f

set /a z=%z%+1
batbox /w 400

goto :new_terrain



:new_record
set record=%lvl%
echo.%record%>Records.save

goto :eof

:new_terrain
set BAR=
set dir=nope
for /l %%$ in (3,1,%z%) do call :set %%$
for /l %%$ in (3,1,%z%) do (
   if !col%%$! lss 2 goto :new_terrain
   if !ligne%%$! lss 2 goto :new_terrain
)

set points=0
goto :a


:set
set /a col%1= %random%%%21
set /a ligne%1= %random%%%11
goto :eof

:a


set /a col2=%random%%%21
set /a ligne2=%random%%%11
if %col2% lss 2 goto :a
if %ligne2% lss 2 goto :a
for /l %%$ in (3,1,%z%) do if %col2%%ligne2% equ !col%%$!!ligne%%$! goto :a

goto :cadre


:cadre
if %lvl% geq %record% set /a record=%lvl%+1 & call :new_record




cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»             
echo º                    º 
echo º                    º   Niveau %lvl%
echo º                    º 
echo º                    º  Ú       ¿
echo º                    º    
echo º                    º  À       Ù
echo º                    º   
echo º                    º   
echo º                    º   
echo º                    º   
echo ÈÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍͼ 
echo     º            º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍͼ



batbox /g 26 5 /c 0x0c /d %BAR%
for /l %%$ in (3,1,%z%) do batbox /g !col%%$! !ligne%%$! /c 0x08 /d X /c 0x0f

batbox /g 25 8 /c 0x0e /d  /c 0x0f /d =Vous
batbox /g 25 9 /c 0x0c /d  /c 0x0f /d =Point
batbox /g 25 10 /c 0x08 /d X /c 0x0f /d =MINE!!
batbox /g 6 12 /d "Record:%record%"
:cadre1

if %col%%ligne% equ %col2%%ligne2% set /a points=%points%+1 & goto :b
batbox /g %col% %ligne% /c 0x0e /d  /c 0x0f /w %temps%
batbox /g %col2% %ligne2% /c 0x0c /d  /c 0x0f
for /l %%$ in (3,1,%z%) do if %col%%ligne% equ !col%%$!!ligne%%$! goto :mort


batbox /k_


if %errorlevel%==327 set dir=haut

if %errorlevel%==330 set dir=gauche

if %errorlevel%==335 set dir=bas

if %errorlevel%==332 set dir=droite

if not %dir%==nope goto :%dir%

goto :cadre1



:haut
batbox /g %col% %ligne% /c 0x00 /d  /c 0x0f
if %ligne% gtr 1 set /a ligne=%ligne%-1
goto :cadre1

:bas
batbox /g %col% %ligne% /c 0x00 /d  /c 0x0f
if %ligne% lss 10 set /a ligne=%ligne%+1
goto :cadre1

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

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

:mort
if %lvl% geq %record% set /a record=%lvl%+1 & call :new_record
cls
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»             
echo º                    º 
echo º                    º   Niveau %lvl%
echo º                    º 
echo º                    º  Ú       ¿
echo º                    º    
echo º                    º  À       Ù
echo º                    º   
echo º                    º   
echo º                    º
echo º                    º
echo ÈÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍËÍÍͼ 
echo     º            º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍͼ
batbox /g 26 5 /c 0x0c /d %BAR%
start %CD%\sons\Boom.vbs
batbox /g %col% %ligne% /c 0x0c /d X /c 0x0f
batbox /g 6 12 /d "Record:%record%"
for /l %%a in (0,1,11) do (
   for /l %%b in (0,1,21) do batbox /g %%b %%a /a 178
   start %CD%\sons\Boom.vbs
   )
batbox /g 25 8 /c 0x0e /d  /c 0x0f /d =Vous
batbox /g 25 9 /c 0x0c /d  /c 0x0f /d =Point
batbox /g 25 10 /c 0x08 /d X /c 0x0f /d =MINE!!

batbox /w 400
goto :mort1
:mort1
cls
echo ²²²²²²²²²²²²²²²²²²²²²²             
echo ²²²²²²²²²²²²²²²²²²²²²² 
echo ²²²²²²²²²²²²²²²²²²²²²²   Niveau %lvl%
echo ²²²²²²²²²²²²²²²²²²²²²² 
echo ²²²²²²²²²²²²²²²²²²²²²²  Ú       ¿
echo ²²²²²²²²²²²²²²²²²²²²²²    
echo ²²²²²²²²²²²²²²²²²²²²²²  À       Ù
echo ²²²²²²²²²²²²²²²²²²²²²²   
echo ²²²²²²²²²²²²²²²²²²²²²²  Recommencer?
echo ²²²²²²²²²²²²²²²²²²²²²²     [O/N]
echo ²²²²²²²²²²²²²²²²²²²²²²
echo ²²²²²²²²²²²²²²²²²²²²²² 
echo     º            º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍͼ
batbox /g 6 12 /d "Record:%record%"
batbox /g 2 5 /c 0xf0 /d "Vous etes mort..." /c 0x0f
batbox /g 26 5 /c 0x0c /d "%BAR%" /c 0x0f
batbox /k
if %errorlevel%==110 exit
if %errorlevel%==111 goto :initialisation
goto :mort1

:make_boom

( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "Boom.wav"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >Boom.vbs

goto :eof

:make_levelup

( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "levelUp.wav"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >LevelUp.vbs

goto :eof

:make_beep

( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "beep.mp3"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >beep.vbs

goto :eof

: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 Sam 8 Nov 2014 - 23:46; é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 [version finale] MineField 
C'est C Okay Okay L Mr. Green

Met quand même les sources, tu va te faire engueuler par les modos Laughing

@+




______________________________________________________
Site MagicDosYoutubeFacebookVietcong 2 OlympeVietcong 2 Alliance
Visiter le site web du posteur Skype
Répondre en citant
Message [version finale] MineField 
yep j'edit le post désolé Smile




______________________________________________________
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 [version finale] MineField 
Citation:
Rem ---------------------- Copyright ----------------------------------


:: MineField Copyright (c) by SpeedCookie, ne pas copier, modifier, distribuer ce code sans mon autorisation
:: commandes externes utilisés :
:: -Batbox; By DarkBatcher

::Merci aux personnes du forum http://batch.xoo.it/ pour leur aide et leurs conseils

Rem ---------------------- Copyright ----------------------------------


C'est limite quand même de mettre un Copyright sur un nom déjà déposé :/

(http://www.minefield.fr/)



Répondre en citant
Message [version finale] MineField 
bonjour NiSnip.
le copyright est valable car les 2 noms "Minefield" sont dans un tout autre domaine.
Il existe pleins de jeux ou programmes qui ont le meme nom qu'une autre marque, serveur, ou tout autre domaine.

aussi le principe d'un forum est de poster des remarques constructives; si tu viens sur mon post juste pour me dire que "blablabla copyright blablabla pas bien" merci de garder tes remarques pour toi

ah oui et https://archive.org/search.php?query=MineField :/

cordialement,

SpeedCookie (alias Darkoa69)




______________________________________________________
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 [version finale] MineField 
Bonjour,

J'ai quelques Bugs que je publierais plus tard,

Et quand tu postes sur ce fofo tu dois accepter les bonnes et mauvaises remarques/appréciations, c'est ce qui fait que tu t'amélioreras Okay

EDIT: Voici les screens Okay






Et facile de "tricher" aussi.... Preuve en image:

Score cheaté:



Plus de mines:



Voili, voualou 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 [version finale] MineField 
ouais les bugs sont dus je pense aux noms de répertoire... j'avais le meme probleme car il ya avait un espace dans un des répertoires (j'arrive pas a contrer e probleme avec la commande %CD%)

pour le cheat je n'arrive pas a trouver un systeme de sauvegarde protegé (si t as des idées elles sont la bienvenue Smile )

et pour les mines pas trop moyen de contrer Smile




______________________________________________________
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 [version finale] MineField 
1) Pour l'espace, penses à mettre des guillemets "[chemin]" (Exemple: "%CD%\Mon Fichier.Extension"
-> Ça devrait fonctionner.

2) Pour le score, il faudrait crypter ou cacher un minimum ton fichier: Je te laisse voir avec des gens plus expérimentés que moi sur ce sujet.

3) Pour les mines, c'est une faille dans le fichier score aussi, donc le problème n°2 correspond à celui-ci en quelques sortes.


Voilà, si t'as des questions, n'hésites pas ! 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 [version finale] MineField 
ouep merci beaucoup je vais essayer de crypter les scores Smile




______________________________________________________
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 [version finale] MineField 


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