1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203
| echo off
cls
title couleur
mode con LINES=50 COLS=100
REM Detection de l'OS (source blogmotion.fr)
echo Atenttion ce jeu n'est pas compatible avec tous les os (modifié ou non) !!!!
echo si vous utilisé un OS Modifié le resultat de la detection sera probablement faussé !
echo.
ver | find /i "version 5.1." > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows XP"& goto nok
ver | find /i "version 6.0." > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows Vista"& goto ok
ver | find /i "version 5.2." > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows 2003"& goto ok
ver | find /i "Windows 2000" > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows 2000"& goto ok
ver | find /i "Windows_NT" > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows NT"& goto ok
ver | find /i ">Windows ME" > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows ME"& goto ok
ver | find /i "Windows 98" > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows 98"& goto ok
ver | find /i "Windows 95" > nul
if %errorlevel%==0 set $VERSIONWINDOWS="Windows 95"& goto ok
echo.
:ok
echo Votre OS : %$VERSIONWINDOWS% : vous pouvez continuer de tester ce script et de jouer !!!
echo.
pause
goto main
:nok
echo Votre OS : %$VERSIONWINDOWS% : Cet OS ne contient pas la commande choice vous devez l'installer si vous voulez reelement jouer !!!
echo pour l'installer trouver (ou vous voulez !! lol) le fichier choice.com ou choice.exe (au passage faudra qu'on m'explique la
echo difference et lekel est le mieu...) et copier ces fichier dans c:\windows\system32\ ...
echo.
pause
set /p quest1=voulez vous malgrès tout tester le script ? O/N
if '%quest1%'=='o' goto main
if '%quest1%'=='O' goto main
if '%quest1%'=='n' echo "le programme va se fermer"& pause& goto quit
if '%quest1%'=='N' echo "le programme va se fermer"& pause& goto quit
if not '%quest1%'=='' set choice=%choice:~0,1%
echo Le choix %quest1% n'est pas valide.
goto quit
:main
echo.
echo le jeu des couleur, l'ordinateur envoie des couleur aleatoirement
echo il ne faut pas arriver jusqu'a 10 de la meme couleur... (10 jaune, 10 rouge, etc...)
echo le but est de recolter une fois chaque couleurs... ainsi le conteur des couleur retourne a zero...
echo vous marquer 10 points par ligne marquer.
echo.
echo les scores sont enregister...
echo vous disposez d'un decompte de 5 seconde pour placer chaque couleur...
echo.
pause
goto ecran1menu
:ecran1menu
cls
echo Menu :
echo.
REM PRESENTATION
ECHO ****************
echo 1. Commencer une Partie
echo.
echo 2. Afficher les scores
echo.
echo 3. Quitter
ECHO ****************
ECHO.
set menu=
set /p menu=TAPE LE CHIFFRE DE TON CHOIX...
if '%menu%'=='1' goto infojoueur
if '%menu%'=='2' goto scores
if '%menu%'=='3' goto quit
if not '%menu%'=='' set choice=%choice:~0,1%
echo Le choix %menu% n'est pas valide.
pause
goto ecran1menu
:infojoueur
set /P joueurname=Kel est le nom du joueur ?
goto debutpartie
:debutpartie
REM PEUT ETRE A ENLEVER
set score=0
set /a deconte=0
set /a deconte+=1
REM FIN PEUT ETRE A ENLEVER
:coupe2
set jaune=0
set bleu=0
set rouge=0
set vert=0
set noir=0
set orange=0
set marron=0
goto coupe1
:coupe1
cls
echo "Joueur : %joueurname% Score : %score% Deconte : %deconte% "
echo.
echo " J B R V N O M "
echo " Jaune=%jaune% Bleu=%bleu% Rouge=%rouge% Vert=%vert% Noir=%noir% Orange=%orange% Marron=%marron% "
echo.
goto contparti
:contparti
if '%jaune%'=='10' goto perdu
if '%bleu%'=='10' goto perdu
if '%rouge%'=='10' goto perdu
if '%vert%'=='10' goto perdu
if '%marron%'=='10' goto perdu
if '%orange%'=='10' goto perdu
if '%noir%'=='10' goto perdu
set /a couleur="%random%%%7"
if '%couleur%'=='0' set couleur=jaune
if '%couleur%'=='1' set couleur=bleu
if '%couleur%'=='2' set couleur=rouge
if '%couleur%'=='3' set couleur=vert
if '%couleur%'=='4' set couleur=noir
if '%couleur%'=='5' set couleur=orange
if '%couleur%'=='6' set couleur=marron
echo couleur=%couleur%
REM QUE METTRE COMME CODE A SE NIVEAU
CHOICE /C:JBRVNOMP /N /T:P,15 Tapez la lettre de la colone desirer ?
rem "set /P kellettre=Tapez la lettre de la colone desirer ?" si cette methode est utilisé je peut pas mettre de deconte !?!
IF ERRORLEVEL 1 set /a jaune+="1"& goto ifs
if errorlevel 2 set /a bleu+="1"& goto ifs
IF ERRORLEVEL 3 set /a rouge+="1"& goto ifs
IF ERRORLEVEL 4 set /a vert+="1"& goto ifs
IF ERRORLEVEL 5 set /a noir+="1"& goto ifs
IF ERRORLEVEL 6 set /a orange+="1"& goto ifs
IF ERRORLEVEL 7 set /a marron+="1"& goto ifs
IF ERRORLEVEL 8 goto perdu
if not errorlevel goto perdu
rem test en supprimant cette ligne "set choice=%choice:~0,1%"...
REM FIN DU CODE A METTRE
:ifs
REM c'est le seul moyen que j'ai trouver pour verifier l'egalité de toute les variable...
if '%jaune%'=='%bleu%' goto ifsun
if not '%jaune%'=='%bleu%' goto coupe1
:ifsun
if '%bleu%'=='%rouge%' goto ifsdeux
if not '%bleu%'=='%rouge%' goto coupe1
:ifsdeux
if '%rouge%'=='%vert%' goto ifstroi
if not '%rouge%'=='%vert%' goto coupe1
:ifstroi
if '%vert%'=='%noir%' goto ifsquatre
if not '%vert%'=='%noir%' goto coupe1
:ifsquatre
if '%noir%'=='%orange%' goto ifscinq
if not '%noir%'=='%orange%' goto coupe1
:ifscinq
if '%orange%'=='%marron%' goto ifssix
if not '%orange%'=='%marron%' goto coupe1
:ifssix
if '%marron%'=='%jaune%' goto plusdix
if not '%marron%'=='%jaune%' goto coupe1
rem " set couleur=jaune " je sait pas koi faire de ste ligne...
:plusdix
set jaune=0
set bleu=0
set rouge=0
set vert=0
set noir=0
set orange=0
set marron=0
set /A score+="%noir%0"
goto coupe1
:scores
type scores.txt
set /P scordel=Effacer tous les scores ? O/N...
if '%scordel%'=='o' goto delscores
if '%scordel%'=='n' goto ecran1menu
if '%scordel%'=='O' goto delscores
if '%scordel%'=='N' goto ecran1menu
if not '%scordel%'=='' set choice=%choice:~0,1%
echo Le choix %scordel% n'est pas valide.
goto ecran1menu
:delscores
set /P suredel=etes vous sure ?? O/N...
if '%suredel%'=='o' goto y
if '%suredel%'=='n' goto ecran1menu
if '%suredel%'=='O' goto y
if '%suredel%'=='N' goto ecran1menu
if not '%suredel%'=='' set choice=%choice:~0,1%
echo Le choix %suredel% n'est pas valide.
goto ecran1menu
:y
del scores.txt
echo "debut" > scores.txt
goto ecran1menu
goto perdu
:perdu
echo %joueurname% vous avez perdu votre score est de %score% points... Bravo !
echo %joueurname% vous avez perdu votre score est de %score% points... Bravo ! >> scores.txt
pause
set %score%=0
set %joueurname%="noname"
set %menu%=0
goto ecran1menu
:quit
echo Au revoir !!!!
echo. |
Partager