Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
NUCLEAR SIMULATOR
Auteur Message
Répondre en citant
Message NUCLEAR SIMULATOR 
Salut,
voila mon jeu une simulation de central nucléaire alors il faut mettre les 2 programmes et les ouvrir les deux voila :


Code:

@echo off
IF NOT EXIST BatBox.exe CALL :make_bb
title nuclear simulator partie commande du systeme / Copiright 2013

: page1
call:pres "/!\ il vous faut la partie 2 du programme pour jouer." 
call:pres "thesientific001" "echo" "presente"
call:pres "un jeux PR1C3 GAME"

:menu 
cls
echo.       
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍnuclear simulatorÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º                                                                  º
echo  º  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»     ÉÍÍÍÍÍÍÍÍÍÍ»  º
echo  º  º    commencer      º     º nous contacter  º     º quitter  º  º
echo  º  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ     ÈÍÍÍÍÍÍÍÍÍͼ  º
echo  º                                                                  º
echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 4 if %x% LEQ 26 goto commande1
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 32 if %x% LEQ 50 goto contact1
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 56 if %x% LEQ 67  exit
goto menu

: contact1
cls
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo Û1) faire un tour sur le site  Û
echo Û2) retour                     Û
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
set /p $=
if %$% EQU 1 start http://pr1c3-game.e-monsite.com
if %$% EQU 2 goto menu
goto contact1

:commande1
set pos=Arret
set comburant=aucun
set bassin=vide
echo %pos%>pos.txt
echo %bassin%>bassin.txt
echo %comburant%>comburant.txt


: commande
cls
echo   type de comburant est %comburant%
echo   la position du reacteur est en %pos%
echo   le bassin est %bassin%
echo  mettre en marche 1)   changer le comburant 2)
echo  alimenter/vider le bassin 3)
set /p $=:
if %$% EQU 1 goto marche
if %$% EQU 2 goto comburant
if %$% EQU 3 goto bassin
goto commande

: bassin
if %bassin% EQU vide (
set bassin=rempli
) else (
set bassin=vide
)
echo %bassin%>bassin.txt
goto commande


: marche
if %pos% EQU Arret (
set pos=Marche
) else (
set pos=Arret
)
echo %pos%>pos.txt
goto commande

: comburant
cls
echo 1) uranium (production 1000 watt/h)
echo 2) plutonium (production 1400 watt/h)
echo 3) irenium (production 500 watt/h)
set /p $=
if %$% EQU 1 set comburant=uranium
if %$% EQU 2 set comburant=plutonium
if %$% EQU 3 set comburant=irenium
echo %comburant%>comburant.txt
goto commande

:pres
cls
echo               %~1
%~2               %~3
pause>nul

: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


Code:

@echo off
IF NOT EXIST BatBox.exe CALL :make_bb
title nuclear simulator partie reacteur  Copiright 2013

: page1
call:pres "/!\ il vous faut la partie 1 du programme pour jouer." 
call:pres "thesientific001" "echo" "presente"
call:pres "un jeux PR1C3 GAME"


:menu
cls
echo.       
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍnuclear simulatorÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º                                                                  º
echo  º  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»     ÉÍÍÍÍÍÍÍÍÍÍ»  º
echo  º  º    commencer      º     º nous contacter  º     º quitter  º  º
echo  º  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ     ÈÍÍÍÍÍÍÍÍÍͼ  º
echo  º                                                                  º
echo  ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
FOR /F "tokens=1,2 delims=:" %%A in ('BatBox /M') DO (
SET y=%%B
SET x=%%A
)
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 4 if %x% LEQ 26 goto reacteur1
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 32 if %x% LEQ 50 goto contact1
if %y% GEQ 3 if %y% LEQ 5 if %x% GEQ 56 if %x% LEQ 67 exit
goto menu

: contact1
cls
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo Û1) faire un tour sur le site  Û
echo Û2) retour                     Û
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
set /p "$= "
if %$% EQU 1 start http://pr1c3-game.e-monsite.com
if %$% EQU 2 goto menu
goto contact1

: reacteur1
set wat=0
set tempeau=0
set temperature=0

: reacteur
cls
set /p bassin=<bassin.txt
set /p pos=<pos.txt
set /p comburant=<comburant.txt
if %pos% EQU Arret goto stop
if %comburant% EQU uranium set montemp=20  &set wat=1000
if %comburant% EQU plutonium set montemp=15 &set wat=1400
if %comburant% EQU irenium set montemp=10 &set wat=500
if %bassin% EQU rempli set /a montemp-=1
set /a temperature+=%montemp% & set /a tempeau+=%montemp%
if %temperature% EQU 10000 goto gameover
echo.
echo la temperature du reacteur est de %temperature%/10000 degre
echo la production est de %wat% watt/h
echo et la temperature de l'eau est de %tempeau% degre
ping localhost -n 1 >nul
goto reacteur

: stop
cls
echo le reacteur est a l arret
if %temperature% GEQ 1 set /a temperature-=%montemp%
set /p pos=<pos.txt
if %pos% EQU Marche goto reacteur
goto stop

: gameover
cls
call:pres "GAME OVER"
goto menu

:pres
cls
echo               %~1
%~2               %~3
pause>nul





______________________________________________________


mon site web http://armorod.portfoliobox.net/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

mon niveau
batch : 10/100
vb : 60/100
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message NUCLEAR SIMULATOR 
J'ai pas encore testé mais je trouve ça WTF comme jeu x)



Répondre en citant
Message NUCLEAR SIMULATOR 
YamiManu a écrit:
J'ai pas encore testé mais je trouve ça WTF comme jeu x)

Un peu oui ! Pas mal Okay mais ça bug Rolling Eyes




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message NUCLEAR SIMULATOR 
Ou ca ? Le jeu a pourtant ete corrige par un membre du forum




______________________________________________________


mon site web http://armorod.portfoliobox.net/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

mon niveau
batch : 10/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message NUCLEAR SIMULATOR 
Mort de Rire
Je ne vois qu'un problème : la température monte à l'infini...
Sinon c'est pas mal =p




______________________________________________________
Cordialement,
Hugo, qui adore programmer, jouer à Minecraft, ZT2 et FSX.
Boutons-liens :
Visiter le site web du posteur Skype
Message NUCLEAR SIMULATOR 


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