Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Jeux inachevés
Auteur Message
Répondre en citant
Message Jeux inachevés 
Bonjour,je poste ces jeux au cas où ça intéresserai quelqu'un de les terminer !
Il ne reste plus que les obstacles aléatoire à faire !
Il y a deux versions du même jeu (étant plus ou moins avancé):
Version 1
Code:

@Echo off
Mode 180,180
Color 0F
::Mode con Cols=37 Lines=21
Setlocal Enabledelayedexpansion
::Variable
Call :DefVie
Call :DefTab
Set Tir=0
Set Rap=0
Set Niv=1
Set PosC=16
Set PosAn=01
Set Speed=3
Set "Av=ÿ/\ÿ/\\__//ÿÿ\îWWî"
::EndVariable
:Boucle
Call :SuprAv 14 %PosAn%
Call :DefAv 14 %PosC%
Call :AffTab
:BoucleR
BatBox /w 100 /k_
Set PosAn=%PosC%
Set Action=%ErrorLevel%
If "%Action%"=="27" Exit
If "%Action%"=="32" Call :DebTir
If "%Action%"=="330" Call :Gauche
If "%Action%"=="332" Call :Droite
If Not %Action%==27 If Not %Action%==32 If Not %Action%==330 If Not %Action%==332 Set Rap=1
If "%Rap%"=="1" (
   Set Rap=0
   Goto BoucleR
)
::If %Tir%==1 Call :DepTir
goto Boucle

:FinTir

   Set Tir=0
   Set Rap=1
   Set "Av=ÿ/\ÿ/\\__//ÿÿ\îWWî"
   Goto :eof

:DebTir

   If %Tir%==1 (
      Set Rap=1
      Goto :eof
   )
   Set Tir=1
   Set PT=%PosC%
   If %PT:~0,1%==0 Set PT=%PT:~1,1%
   Set/A PT+=1
   Set "C13%PT%="
   Set PT1=13%PT%
   Set/A PT+=1
   Set "C13%PT%="
   Set PT2=13%PT%
   Set "Av=ÿ/\ÿ/ÿÿ\\__//ÿÿ\îWWî"
   Goto :eof

:Gauche

   If %PosC%==01 (
      Set Rap=1
      Goto :eof
   )
   If %PosC:~0,1%==0 Set PosC=%PosC:~1,1%
   Set/A PosC-=1
   If %PosC% LSS 10 Set PosC=0%PosC%
   Goto :eof

:Droite

   If %PosC%==30 (
      Set Rap=1
      Goto :eof
   )
   If %PosC:~0,1%==0 Set PosC=%PosC:~1,1%
   Set/A PosC+=1
   If %PosC% LSS 10 Set PosC=0%PosC%
   Goto :eof

:DefVie

   Set Vie=3
   For /L %%A In (1,1,3) Do Set Vie%%A=
   Goto :eof

:SuprVie

   Set "Vie%Vie%=ÿ"
   Set/A Vie-=1
   Goto :eof

:AddVie

   If %Vie% LSS 1 Goto :eof
   Set/A Vie+=1
   Set "Vie%Vie%="
   Goto :eof

:VerifVie

   If %Vie% LSS 1 Call :Fin P
   Goto :eof

:AffTab

   Cls
   Echo ÉÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍ»
   BatBox /A 186 /C 0x0C /D %Vie1%%Vie2%%Vie3% /C 0x0F /A 186
   Echo %C0105%%C0106%%C0107%%C0108%%C0109%%C0110%%C0111%%C0112%%C0113%%C0114%%C0115%%C0116%%C0117%%C0118%%C0119%%C0120%%C0121%%C0122%%C0123%%C0124%%C0125%%C0126%%C0127%ºNiv %Niv%º
   Echo ÌÍÍͼ%C0205%%C0206%%C0207%%C0208%%C0209%%C0210%%C0211%%C0212%%C0213%%C0214%%C0215%%C0216%%C0217%%C0218%%C0219%%C0220%%C0221%%C0222%%C0223%%C0224%%C0225%%C0226%%C0227%ÈÍÍÍÍ͹
   Echo º%C0301%%C0302%%C0303%%C0304%%C0305%%C0306%%C0307%%C0308%%C0309%%C0310%%C0311%%C0312%%C0313%%C0314%%C0315%%C0316%%C0317%%C0318%%C0319%%C0320%%C0321%%C0322%%C0323%%C0324%%C0325%%C0326%%C0327%%C0328%%C0329%%C0330%%C0331%%C0332%%C0333%º
   Echo º%C0401%%C0402%%C0403%%C0404%%C0405%%C0406%%C0407%%C0408%%C0409%%C0410%%C0411%%C0412%%C0413%%C0414%%C0415%%C0416%%C0417%%C0418%%C0419%%C0420%%C0421%%C0422%%C0423%%C0424%%C0425%%C0426%%C0427%%C0428%%C0429%%C0430%%C0431%%C0432%%C0433%º
   Echo º%C0501%%C0502%%C0503%%C0504%%C0505%%C0506%%C0507%%C0508%%C0509%%C0510%%C0511%%C0512%%C0513%%C0514%%C0515%%C0516%%C0517%%C0518%%C0519%%C0520%%C0521%%C0522%%C0523%%C0524%%C0525%%C0526%%C0527%%C0528%%C0529%%C0530%%C0531%%C0532%%C0533%º
   Echo º%C0601%%C0602%%C0603%%C0604%%C0605%%C0606%%C0607%%C0608%%C0609%%C0610%%C0611%%C0612%%C0613%%C0614%%C0615%%C0616%%C0617%%C0618%%C0619%%C0620%%C0621%%C0622%%C0623%%C0624%%C0625%%C0626%%C0627%%C0628%%C0629%%C0630%%C0631%%C0632%%C0633%º
   Echo º%C0701%%C0702%%C0703%%C0704%%C0705%%C0706%%C0707%%C0708%%C0709%%C0710%%C0711%%C0712%%C0713%%C0714%%C0715%%C0716%%C0717%%C0718%%C0719%%C0720%%C0721%%C0722%%C0723%%C0724%%C0725%%C0726%%C0727%%C0728%%C0729%%C0730%%C0731%%C0732%%C0733%º
   Echo º%C0801%%C0802%%C0803%%C0804%%C0805%%C0806%%C0807%%C0808%%C0809%%C0810%%C0811%%C0812%%C0813%%C0814%%C0815%%C0816%%C0817%%C0818%%C0819%%C0820%%C0821%%C0822%%C0823%%C0824%%C0825%%C0826%%C0827%%C0828%%C0829%%C0830%%C0831%%C0832%%C0833%º
   Echo º%C0901%%C0902%%C0903%%C0904%%C0905%%C0906%%C0907%%C0908%%C0909%%C0910%%C0911%%C0912%%C0913%%C0914%%C0915%%C0916%%C0917%%C0918%%C0919%%C0920%%C0921%%C0922%%C0923%%C0924%%C0925%%C0926%%C0927%%C0928%%C0929%%C0930%%C0931%%C0932%%C0933%º
   Echo º%C1001%%C1002%%C1003%%C1004%%C1005%%C1006%%C1007%%C1008%%C1009%%C1010%%C1011%%C1012%%C1013%%C1014%%C1015%%C1016%%C1017%%C1018%%C1019%%C1020%%C1021%%C1022%%C1023%%C1024%%C1025%%C1026%%C1027%%C1028%%C1029%%C1030%%C1031%%C1032%%C1033%º
   Echo º%C1101%%C1102%%C1103%%C1104%%C1105%%C1106%%C1107%%C1108%%C1109%%C1110%%C1111%%C1112%%C1113%%C1114%%C1115%%C1116%%C1117%%C1118%%C1119%%C1120%%C1121%%C1122%%C1123%%C1124%%C1125%%C1126%%C1127%%C1128%%C1129%%C1130%%C1131%%C1132%%C1133%º
   Echo º%C1201%%C1202%%C1203%%C1204%%C1205%%C1206%%C1207%%C1208%%C1209%%C1210%%C1211%%C1212%%C1213%%C1214%%C1215%%C1216%%C1217%%C1218%%C1219%%C1220%%C1221%%C1222%%C1223%%C1224%%C1225%%C1226%%C1227%%C1228%%C1229%%C1230%%C1231%%C1232%%C1233%º
   Echo º%C1301%%C1302%%C1303%%C1304%%C1305%%C1306%%C1307%%C1308%%C1309%%C1310%%C1311%%C1312%%C1313%%C1314%%C1315%%C1316%%C1317%%C1318%%C1319%%C1320%%C1321%%C1322%%C1323%%C1324%%C1325%%C1326%%C1327%%C1328%%C1329%%C1330%%C1331%%C1332%%C1333%º
   Echo º%C1401%%C1402%%C1403%%C1404%%C1405%%C1406%%C1407%%C1408%%C1409%%C1410%%C1411%%C1412%%C1413%%C1414%%C1415%%C1416%%C1417%%C1418%%C1419%%C1420%%C1421%%C1422%%C1423%%C1424%%C1425%%C1426%%C1427%%C1428%%C1429%%C1430%%C1431%%C1432%%C1433%º
   Echo º%C1501%%C1502%%C1503%%C1504%%C1505%%C1506%%C1507%%C1508%%C1509%%C1510%%C1511%%C1512%%C1513%%C1514%%C1515%%C1516%%C1517%%C1518%%C1519%%C1520%%C1521%%C1522%%C1523%%C1524%%C1525%%C1526%%C1527%%C1528%%C1529%%C1530%%C1531%%C1532%%C1533%º
   Echo º%C1601%%C1602%%C1603%%C1604%%C1605%%C1606%%C1607%%C1608%%C1609%%C1610%%C1611%%C1612%%C1613%%C1614%%C1615%%C1616%%C1617%%C1618%%C1619%%C1620%%C1621%%C1622%%C1623%%C1624%%C1625%%C1626%%C1627%%C1628%%C1629%%C1630%%C1631%%C1632%%C1633%º
   Echo º%C1701%%C1702%%C1703%%C1704%%C1705%%C1706%%C1707%%C1708%%C1709%%C1710%%C1711%%C1712%%C1713%%C1714%%C1715%%C1716%%C1717%%C1718%%C1719%%C1720%%C1721%%C1722%%C1723%%C1724%%C1725%%C1726%%C1727%%C1728%%C1729%%C1730%%C1731%%C1732%%C1733%º
   Echo º%C1801%%C1802%%C1803%%C1804%%C1805%%C1806%%C1807%%C1808%%C1809%%C1810%%C1811%%C1812%%C1813%%C1814%%C1815%%C1816%%C1817%%C1818%%C1819%%C1820%%C1821%%C1822%%C1823%%C1824%%C1825%%C1826%%C1827%%C1828%%C1829%%C1830%%C1831%%C1832%%C1833%º
   Echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
   Goto :eof
   
:DefTab

   For /L %%A In (1,1,18) Do (
      For /L %%B In (1,1,33) Do (
         Set N1=%%A
         Set N2=%%B
         If %%A LSS 10 Set N1=0%%A
         If %%B LSS 10 Set N2=0%%B
         Set "C!N1!!N2!=ÿ"
      )
   )
   Goto :eof
   
:SuprAv

   Set P1=%1
   Set P2=%2
   If %P1:~0,1%==0 Set P1=%P1:~1,1%
   If %P2:~0,1%==0 Set P2=%P2:~1,1%
   Set/A PosML=%P1%+4
   Set/A PosMC=%P2%+3
   For /L %%A In (%P1%,1,%PosML%) Do (
      For /L %%B In (%P2%,1,%PosMC%) Do (
         Set N1=%%A
         Set N2=%%B
         If %%A LSS 10 Set N1=0%%A
         If %%B LSS 10 Set N2=0%%B
         Set "C!N1!!N2!=ÿ"
      )
   )
   Goto :eof

:DefAv

   Set P1=%1
   Set P2=%2
   Set Frag=0
   If %P1:~0,1%==0 Set P1=%P1:~1,1%
   If %P2:~0,1%==0 Set P2=%P2:~1,1%
   Set/A PosML=%P1%+4
   Set/A PosMC=%P2%+3
   If %2 LSS 01 Goto :eof
   If %PosMC% GTR 33 Goto :eof
   For /L %%A In (%P1%,1,%PosML%) Do (
      For /L %%B In (%P2%,1,%PosMC%) Do (
         Set N1=%%A
         Set N2=%%B
         If %%A LSS 10 Set N1=0%%A
         If %%B LSS 10 Set N2=0%%B
         Call :DefA !N1!!N2! !Frag!
         Set/A Frag+=1
      )
   )
   Goto :eof
   
:DefA

   Set "C%1=!Av:~%2,1!"
   Goto :eof



Version 2
Code:

@Echo off
::Mode con Cols=37 Lines=21
Setlocal Enabledelayedexpansion
::Variable
Set Tir=0
Set NbObj=0
Set Rap=0
Set Niv=1
Set PosAn=12
Set Speed=3
Set "Av=ÿÿ/\ÿÿÿ/\ÿÿ\/ÿÿ/îî\ÿÿîWWîÿ"
Set "Obj=ÿÿÿÿXÿÿÿÿ"
::EndVariable
::Affiche
Call :AffTab
Call :DefAv 14 15
::EndAffiche
:Boucle
BatBox /w 100 /k_
Set Action=%ErrorLevel%
If "%Action%"=="27" Exit
If "%Action%"=="330" Call :Gauche
If "%Action%"=="332" Call :Droite
If Not %Action%==27 If Not %Action%==330 If Not %Action%==332 Set Rap=1
If "%Rap%"=="1" (
   Set Rap=0
   Goto Boucle
)
Call :DefAv 14 %PosAv%
goto Boucle


:DepObj

   For /L %%A In (1,1,%NbObj%) Do (
      Set/A PosObj%%A+=100
      BatBox /G !PosObj%%A:~0,2! !PosObj%%A:~2,2!
      Echo !TypeObj%%A!
   )
   Goto :eof
   
:VerifO

   If %C!PosObj%1!%==/ Call :Fin P
   If %C!PosObj%1!%==\ Call :Fin P
   Goto :eof

:DebObj

   Set/A NbObj+=1
   Call :Alea 1 27 Alea
   If %Alea% LSS 10 Set Alea=0%Alea%
   Set PosObj%NbObj%=01%Alea%
   Set TypeObj%NbObj%=X
   Set C01%Alea%=%TypeObj!NbObj!%
   Goto :eof

:Gauche

   If %PosAv%==01 (
      Set Rap=1
      Goto :eof
   )
   If %PosAv:~0,1%==0 Set PosAv=%PosAv:~1,1%
   Set/A PosAv-=1
   Call :DefAv 14 %PosAv%
   If %PosAv% LSS 10 Set PosAv=0%PosAv%
   Goto :eof

:Droite

   If %PosAv%==29 (
      Set Rap=1
      Goto :eof
   )
   If %PosAv:~0,1%==0 Set PosAv=%PosAv:~1,1%
   Set/A PosAv+=1
   Call :DefAv 14 %PosAv%
   If %PosAv% LSS 10 Set PosAv=0%PosAv%
   pause
   Goto :eof

:AffTab

   Cls
   Echo ÉÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍ»
   BatBox /A 186 /C 0x0C /D  /C 0x0F /A 186
   For /L %%B In (1,1,23) Do (
         Set LT=!LT!ÿ
      )
   Echo %LT%ºNiv  º
   Set LT=
   For /L %%B In (1,1,23) Do (
         Set LT=!LT!ÿ
      )
   Echo ÌÍÍͼ%LT%ÈÍÍÍÍ͹
   Set LT=
   For /L %%A In (3,1,18) Do (
      For /L %%B In (1,1,33) Do (
         Set LT=!LT!ÿ
      )
      Echo º!LT!º
      Set LT=
   )
   Echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
   Goto :eof
   
::Sous-Fonction

:Fin

   BatBox /G 17 0
   Echo   ÉÍÍÍÍÍÍÍÍÍÍÍÍÍ»
   If %1==G Echo   º TU AS GAGNE º
   If %1==P Echo   º TU AS PERDU º
   Echo   ÈÍÍÍÍÍÍÍÍÍÍÍÍͼ
   Pause>Nul
   Exit
   
:DevObj

   Set/A P1=%1-1
   Set/A P2=%2-1
   Set Frag=0
   For /L %%A In (1,1,3) Do (
      Call :DefObj %P1% %P2% !Frag!
      Set/A Frag+=3
   )
   Goto :eof
   
:DefObj

   BatBox /G %1 %2
   Echo !Obj:~%3!
   Goto :eof

:DefAv

   Set P1=%1
   Set Frag=0
   Set/A P3=%1+4
   Set/A P2=%2-1
   If %2 LSS 1 Goto :eof
   If %2 GTR 29 Goto :eof
   For /L %%A In (%P1%,1,%P3%) Do (
      Call :DefA %%A %P2% !Frag!
      Set/A Frag+=6
   )
   Goto :eof
   
:DefA

   BatBox /G %2 %1
   Echo !Av:~%3,6!
   Goto :eof






______________________________________________________
Clickez sur Saturne pour voir mes tutoriels et sur la Terre pour voir mon Forum:


Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Jeux inachevés 
Bonjour
peux tu expliqué plus ou moins le but du jeu ainsi qu indiquer la plateforme de développement et si tu utilises des commandes externes.
Si tu souhaites que quelqu un le poursuive il faudrait aussi commenter un minimum ton code.




______________________________________________________
Faites paraitre votre batch sur BatchClipboard
Visiter le site web du posteur
Répondre en citant
Message Jeux inachevés 
Désolé Embarassed , le but de ce jeu serai:
But:
- Gagner le plus de niveaux
- Perdre le moins de vies (=Les cœur)
- Éviter les obstacles défilant de haut en bas (=Vaisseau toujours à la même position horizontale)
Obstacle:
- "Météorites" que le vaisseau devrai détruire ou éviter !

Il a été développer sous Windows 7 et utilise "batbox" !
Et merci d'avance à ce qui voudrai bien le reprendre !




______________________________________________________
Clickez sur Saturne pour voir mes tutoriels et sur la Terre pour voir mon Forum:


Skype
Répondre en citant
Message Jeux inachevés 
Space Invaders POWA ! Wink




______________________________________________________
Mess like the bests
Die like the rest


Programmation:

Batch: 30/100
Python: 65/100
Vb: 10/100
C : 15/100
VBS: 19/100
HTML: 25/100
PHP: 10/100
CSS: 10/100
Ada: 15/100
Perl: 9/100
Bash linux : 45/100
Ruby : 5/100
Répondre en citant
Message Jeux inachevés 
Pourquoi dit tu powa ??




______________________________________________________
Clickez sur Saturne pour voir mes tutoriels et sur la Terre pour voir mon Forum:


Skype
Message Jeux inachevés 


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