Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Jeu] e +ou- Z
Auteur Message
Répondre en citant
Message [Jeu] e +ou- Z 
Bien le bonjour!

Je vous présente aujourd'hui mon, je pense, seul jeu en batch.... e +ou- Z ! Sous ce nom mystérieux se cache en fait... un + ou - ! Sauf que je fais partie de la team eDevZ, mais ça c'est un autre histoire!

Donc l'originalité c'est le multijoueur infini et la difficulté infinie aussi! Vous pouvez, de même entrer vos nom pour une partie plus personnalisée!
Il ne marche pas sur mon ordi (va savoir pourquoi!) mais il marche sur les autres!






Lien de téléchargement: ICI même!

Bon jeu!



Le code:

Code:
@ echo off
echo Chargement...
color 8B
setlocal enabledelayedexpansion enableextensions
title e+ ou -Z by Sined95
call :TXTCOLOR
set COLOR=TXTCOLOR.exe
if NOT EXIST record.ez (
                  echo 0 > record.ez
                  )
echo Chargement complet!
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo ################################################################################
echo ***********************  e+ou-Z  par Sined95 de l'eDevZ   **********************
echo ################################################################################
echo Allez voir mes creations sur:
echo.
echo http://www.home-psp.com/forums/showthread.php?5999-Topic-Officiel-Programmtions-by-Sined95
echo.
echo ###############################################################################
echo       ##############################################################
echo              #################################################
echo                     ###################################
echo                            #####################
echo                                  ##########
echo.                                     ##
echo.
echo.
echo.
echo.
echo.

:prez
set COUNT=0

for /f "tokens=*" %%a in ('type record.ez') do (
    set /a COUNT = COUNT + 1
    set VAR_!COUNT!=%%a
    )
::verif si 1ere fois.
::var2 :nom du gagnant
::var3 :nbad
::var4 :nb max
::var5 :nb de coups joués
::var6 :heure
if %VAR_1%==1 (
            %COLOR% 5A 0 "Bonjour a tous"
            echo.
            echo.
            echo Le dernier vainqueur fut !VAR_2! le !VAR_3! … !VAR_6! trŠs pr‚cis‚ment...
            echo.
            echo Ceci fut r‚alis‚ en !VAR_6! coups pour trouver un nombre situ‚ entre 1 et !VAR_5! .
            echo.
            echo !VAR_2! va-t-il remettre son titre en jeu ?
            echo Chers joueurs, je sens que cette partie s'annonce tr‚pidante!
         ) else (
            echo                                Bienvenue dans e+ ou -Z!
            echo Le but du jeu est trŠs simple: Un nombre va ˆtre choisi al‚atoirement. Vous
            echo aurez ensuite la possibilit‚ de proposer des nombres afin de trouver le
            echo nombre aleatoire. Bien entendu, l'ordinateur vous donnera des indices!
            echo.
            echo L'originalit, du jeu est bas,e sur le multijoueurs infini ainsi que son choix
            echo de difficult,. Mais sans plus attendre,rammenez vos amis et commencez une
            echo mouvementee partie de......................
            echo.
            echo.
            echo                                        E+ ou -Z
         )
echo.
echo.
echo.
echo.
echo.
echo.
echo.
:zero
set /p nbjoueur=Combien de joueurs vont participer ?
set /a verifnbj=%nbjoueur%*1
echo.
if %verifnbj% leq 0 (
               echo Ceci ne m'a pas l'air d'un nombre de joueur reglementaire!
               echo.
               echo.
               echo.
               goto zero
              )
for /L %%i in (1,1,%nbjoueur%) do (                  
                        set /p nomj%%i=Nom du joueur %%i:
                        )
echo.
echo.
echo.
echo.
echo.
:echoixnb
set /a quichoixnb="%random%%%%nbjoueur%+1"
for /f "tokens=2 delims==" %%a in ('set ^| Find "nomj%quichoixnb%"') do (
                                                      set nquijou=%%a
                                                      )
set /p nbmax=%nquijou% choisi le nombre. Le nombre a trouver sera compris entre 1 et...(choisissez):
set /a verifprop=%nbmax%*1
echo.
if %verifprop% leq 1 (
               echo Le nombre doit etre au dessus de 1
               echo.
               echo.
               echo.
               goto echoixnb
              )
echo.
echo.
echo.
set /a ran="%random%%%%nbmax%+1"
:echoix1
set /a quijou="%random%%%%nbjoueur%+1"
set /a coups="1"
:un
for /f "tokens=2 delims==" %%a in ('set ^| Find "nomj%quijou%"') do (
                                                      set nquijou=%%a
                                                   )
               
               
if %coups% equ 1 (
               set /p choix=%nquijou%, votre premiere proposition est
            ) else (
               set /p choix=%nquijou%, votre %coups% eme proposition est
            )
set /a verifchoix=%choix%*1
echo.
if %verifchoix% leq 0 (
               echo Et non! Le nombre est compris entre 1 et %nbmax%
               echo.
               echo.
               echo.
               echo.
               echo.
               goto un
               )
      
if %choix% lss %ran% (
               set /a coups="%coups%+1"
               if %quijou%==%nbjoueur% (
                                    set /a quijou="1"
                                 ) else (
                                    set /a quijou="%quijou%+1"
                                 )
               echo Le nombre a trouver est plus grand que %choix%.
               echo.
               echo.
               echo.
               echo.
               echo.
               goto un
              )
if %choix% gtr %ran% (
               set /a coups="%coups%+1"
               if %quijou%==%nbjoueur% (
                                    set /a quijou="1"
                                 ) else (
                                    set /a quijou="%quijou%+1"
                                 )
               echo Le nombre a trouver est plus petit que %choix%.
               echo.
               echo.
               echo.
               echo.
               echo.
               goto un
                )
if %choix%==%ran% (
               set /a coups="%coups%+1"
               echo Et c'est %nquijou% qui remporte cette manche!!
               echo %nquijou% gagne en %coups% coups pour un nombre situe entre 1 et %nbmax%!
               del record.ez
               echo 1 >> record.ez
               echo %nquijou% >> record.ez
               echo %date% >> record.ez
               echo %nbmax% >> record.ez
               echo %coups% >> record.ez
               echo %time% >> record.ez
               echo. 
               echo.
               echo.   
               echo.
               echo.
              )
:rej
set /p rejoue=Voulez vous rejouer? oui ou non   
if "%rejoue%"=="oui" (
                   goto prez
                 ) else if "%rejoue%"=="non" (
                   echo Aurevoir!
                  echo.
                  echo Merci encore d'avoir joue! Appuyez sur une touche pour quitter!
                 ) else (
                  echo Je n'ai pas compris la réponse!
                  goto rej
               )
set /p ee=             
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
                
:: ##############################  TXT_COLOR  By CARLOS  ##############################
:: Merci à CARLOS pour le code source en batch de cette commande externe  ^^
:TXTCOLOR
Echo.Const W=^2>t.vbs&Echo.Set o=WScript.StdOut>>t.vbs
For %%b In (
"4D53434600000000BA030000000000002C000000000000000301010001000000000000"
"004900000001000100D20700000000000000009E3B8A662000747874636F6C6F722E65"
"78650063EB078D6903D207434BDD544B681341189E6D538D35352AE2030F4EC44A458D"
"55113C88D4C75A85AA5B5A2F8AD66D324997A6BB7177A2297868498B9450ECA182871E"
"7AF0E0C183878AA98844DA83828288074FE24549B1A00785452AEB3F8F3C5A7C54BD39"
"F0E77F7FF3CD9FD9397976045523847C209E87500E89D5847EBFFA40566C7AB0024D2C"
"7B1ECA292DCF43ED5D868393B615B7F51E1CD14DD3A2B893603B6562C3C4474FB7E11E"
"2B4AC27575B55B2486A622D4A254CDC37D8B82D5CB9525F3624DABE167250896EC985D"
"25782354D6A851C4A70F237E2E5EB8B25297145F1701EFC022CEFAA76B0C70F7FF221F"
"A6244D8B644036540BDE950B202E86A33AD5C17EA188C04BA6E78F864D23FFB73CCF0C"
"BDEB9F6D006324ABFA33AE2F38180016593590C9FBB2FED6C228789969DF903AC7637E"
"16EB2BC6DCAC3A9771157E6782A3F9C17C7060032A77071F295AE19C289EB9C413505E"
"5559DEB4B07C872867B97D15B9CC6385A7EBCAE9B5909EA945F2CACE0498C586F3A146"
"04D80FA7EDFE8CA25FEE995704C53298E865C7630D5F7983CBCC8F254E93EC8F6B9D64"
"95AD6C28190E12280D6AB2767E3E52CC33D47ED7637CAE8D0BE48C8B8203AB8AB6121C"
"A86124328CCE17CFF3B44258617C3E0FAB6FB4ACFA592B6C55F830FBDFB24F5684362A"
"9259207BD21D525F0F3E9530FC544B71139A616EAE062CE8789D455A0E31BBC04E0BCC"
"82F7D5F702EA45690EEB99E5E75553BCCAC747CCE7F374AA747FD6B0FB9313439BCDB1"
"0F0FB091025D3778979F776985EB0263589DD578B5360CDB0DAB2EC89C56E8E5D9358C"
"02CC010462E7BF791E9FDAA7ACFA492B5C1000B0B5573F86D9E5F1EAC7A5BE25F56DA9"
"A7A57E22F533A9EF487D57EA09A973523FC48B79FBFE9755EFD43B08AE084DD38895B0"
"EC304913DCA947BAE3B69532A30D8D3B8F6D8B5936A970E181374C7A8A5C69314CD2D0"
"B86BF736BC997611CC5EB4CDB50BF05FE1B21D08897771AE22761562D3F8C7DCD6410E"
"836C07D9077210A419A41D8480A442A26E08F44D907BA17FEBEB712E476C1A8E2612E0"
"38D44E10130CC349478DB841B959B4204B2D56C6671103A3236299D4B612B124733A1C"
"423BF464B283F626090FC409EDD10D53B7E30EF8240D30DDC4364962EF1EB96333A16D"
"347A5C37A30922DC2396E95809D216B109310FA76231629F30631624DB4AC97698FA21"
) Do >>t.vbs (
Echo.For b=1To 69Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
For %%b In ("4A6DA33345591BFA0E"
) Do >>t.vbs (
Echo.For b=1To 17Step 2:o.Write Chr(Clng("&H"^&Mid(%%b,b,W^)^)^):Next)
Cscript /Nologo t.vbs > TXTCOLOR.ex_
Del /f /q /a t.vbs >nul 2>&1
Expand -r TXTCOLOR.ex_ >nul 2>&1
Del /f /q /a TXTCOLOR.ex_ >nul 2>&1
Goto :Eof
:: ################################  End TXT_COLOR  ################################




Dernière édition par sined95 le Jeu 27 Mai 2010 - 08:05; édité 4 fois
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message [Jeu] e +ou- Z 
MU surchargé --"



MSN
Répondre en citant
Message [Jeu] e +ou- Z 
Hello,

Rolling Eyes Aux vues du nombre important de versions de ce jeu, j'attendais quelque chose de vraiment original !
... et sans fautes d'orthographes ... Mr. Green

Mais surtout un code source disponible ... Evil or Very Mad




______________________________________________________


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
Répondre en citant
Message [Jeu] e +ou- Z 
Bonjour
sujet déplacé dans la bonne section
Lien non valide merci d'y remédier ainsi que mettre ton sujet conforme aux réglements de ce forum.

Laddy




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message [Jeu] e +ou- Z 
Bien le bonjour!

Je me suis penché sur les règles du forum que je n'avais pas lu ( Rolling Eyes ) et j'ai corrigé mon post.
J'ai aussi corrigé les fautes d'orthographe.
J'ai changé le lien.

Et j'ai oublié de vous remerciez pour votre aide dans la programmation de ce jeu!

++



Répondre en citant
Message [Jeu] e +ou- Z 
Ok, mieux avec le code Okay




______________________________________________________


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 [Jeu] e +ou- Z 


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