Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Citycraft
Auteur Message
Répondre en citant
Message Citycraft 
salut voila le code
ce jeu a un seul but --> construire une immense ville !

Code:

@echo off
title Citycraft version 1.0 copiright 2013

: page1
cls
echo               thesientific001
echo               presente
pause>nul

: page2
cls
echo               un jeux PR1C3 GAME
echo.
pause>nul
IF EXIST maison.txt goto recup

: recup

:menu
IF NOT EXIST BatBox.exe CALL :make_bb
cls
echo.       
echo  ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍCitycraftÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
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 commencer1
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

: commencer1
cls
title Citycraft creation de la ville
set /p name=comment voulez vous appeller votre ville ?
goto initialisation

: initialisation
cls
set popu=0
set usine=0
set maison=0
set amour=0
set pollution=0
set impo=0
set argent=200000
set impott=0
set ecole=0
set petrol=0
set pierre=0
set metal=0
set carriere=0
set puit-de-petrol=0
set maisonrapport=0
set usinerapport=100
set carriererapport=100
set puitrapport=5
set ecolerapport=5
goto mainjeu


: mainjeu
cls
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo Û                      %name%                        Û
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo Û impots : %impo%        Û 1)batiments
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ    2) sauvegarder
echo Û argent : %argent%   Û   3) impots
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo Û poulation : %popu%     Û   4) passer en mode vie       Û
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ                                Û
echo Û amour : %amour%         Û                                Û
echo ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
set /p $=
if %$% EQU 1 goto batiment
if %$% EQU 2 goto save1
if %$% EQU 3 goto impot
if %$% EQU 4 goto vie
goto main jeu

: save1
cls
echo la sauvegarde ne marche pas pour cette version !
pause
goto mainjeu

: save
cls
echo sauvegarde en cour ...
echo popu > population.txt
echo usine > usine.txt
echo maison > maison.txt
echo amour > amour.txt
echo pollution > pollution.txt
echo impo > impot.txt
echo impott > impot2.txt
echo ecole > ecole.txt
echo petrol > petrol.txt
echo pierre > pierre.txt
echo metal > metal.txt
echo carriere > carriere
echo puit-de-petrol > puit.txt
echo maisonrapport > rapport1
echo usinerapport > rapport2
echo carriererapport > rapport3
echo puitrapport > rapport4
echo ecolerapport > rapport5
echo name > name.txt
echo argent > argent.txt
echo sauvegarde fini
pause
exit

: impot
cls
echo regler les impots ici :
set /p impot=:
echo valider ici
set /p impott=:
goto mainjeu

: vie
cls
if %puit-de-petrol% GEQ 1 set /p puit-de-petrol*=puitrapport & set /p petrol*=puitrapport
if %carriere% GEQ 1 set /p carriere*=carriererapport  & set /p  pierre*=carriererapport
if %usine% GEQ 1 set /p usine*=usinerapport & set /p metal*=usinerapport & set /p pollution+=1
if %maison% GEQ 1 set /p maison*=impott & set /p argent+=impott
if %impo% GEQ 2000 set noti1=les impots sont trop chers nous partons ! : vous avez perdu une maison & set /p maison-=1
if %impo% LEQ 500 set noti1=les impots sont pas chers ! : vous avez optenu 1 maison & set /p maison+=1
set impott=%impo%
goto bilan


: bilan
cls
echo bilan de la journer :
echo vous a vez gagner %petrol% L de petrol %metal% metal(s) et %pierre% pierres
echo et %argent% d'argents
echo notification : %noti1%
pause
goto mainjeu



: batiment
cls
echo que voulez vous acheter
echo 1) maison
echo 2) usine
echo 3) carriere
echo 4) puits de petrol
echo 5) ecole
echo 6) retour
set /p $=
if %$% EQU 1 goto maison
if %$% EQU 2 goto usine
if %$% EQU 3 goto carriere
if %$% EQU 4 goto puit
if %$% EQU 5 goto ecole
if %$% EQU 6 goto mainjeu
goto batiment

: ecole
if %impott% LSS 5000 goto pasdargent
echo vous avez construi une ecole !
set /p ecole+=1
set /p amour+=2
pause
goto mainjeu



: puit
cls
if %impott% LSS 150000 goto pasdargent
echo vous avez construi un puit de petrol !
set /p puit-de-petrol+=1
set /p amour-=2
pause
goto mainjeu


: carriere
cls
if %impott% LSS 100000 goto pasdargent
echo vous avez construi une carriere !
set /p carriere+=1
set /p amour+=1
pause
goto mainjeu

: usine
cls
if %impott% LSS 150000 goto pasdargent
if %metal% LSS  0 goto pasdemetal
echo vous avez construi une usine !
set /p usine+=1
set /p amour-=5
pause
goto mainjeu



: maison
cls
if %impott% LSS 20000 goto pasdargent
if %pierre% LSS 40 goto pasdepierre
if %metal% LSS  20 goto pasdemetal
echo vous avez construi une maison !
set /p maison+=1
set /p amour+=1
set /p popu+=4
pause
goto mainjeu

: pasdargent
cls
echo vous n avez pas assez d'argent
pause
goto mainjeu

: pasdepierre
cls
echo vous n avez pas assez de pierre
pause
goto mainjeu

: pasdemetal
cls
echo vous n avez pas assez de metal
pause
goto mainjeu










: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 thesientific001 le Ven 3 Mai 2013 - 10:12; édité 1 fois

______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Citycraft 
Salut,

Vraiment bien, j'aime et c'est codé proprement bravo Okay

( ps: un peu plus d'infos sur le jeu, voir une mini présentation serait sympa avant le code Wink )




______________________________________________________


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 Citycraft 
no probleme ! et merci pour c'est compliment meme si j'aurais mériter mieu!




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message Citycraft 
Ce jeu a l'air intéressant mais il ne fonctionne pas (Pas pour moi on dirait)...

Screenshot :





Visiter le site web du posteur Skype
Répondre en citant
Message Citycraft 
XD tu mes goto commencer¹ apres title




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message Citycraft 
C'est parce que la console est trop petite je pense



Skype
Message Citycraft 


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