Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Loto Million
Auteur Message
Répondre en citant
Message Loto Million 
Bonjour, Voici un petit programme que j'ai fais. C'est un jeu de FAUSSE loterie. Il utilise la commande externe SORT disponible dans mon lien de téléchargement plus bas. Dans le Fichier .zip vous trouverez la commande externe sort, et le .exe. Seulement testé sur Windows 7 Ultimate.

Nom: Loto Million
Version: 1.2.0.0


***** But du Jeux *****

Le billet gagnant est composé de 6 nombres de 1 à 49. Pour gagner le gros lot ( Entre 1 et 49 Million ) vous devez vous aussi avoir les même 6 chiffres.
Pour Jouer ( Commande ) :
Oui = o
Nom = n
Chiffre = Chiffre


***** iNFO *****

- Les Fichiers Exécutables (.exe) sont compressés en UPX
(Ultimate Packer for eXecutables). Certain Antivirus Tel-Que
Norton pourrait les détecter comme étant des Virus. Il s'agit
en fait de Faux-Positif (Fichier déclarer a tort comme un
virus). Pour faire fonctionner le programme Vous n'aurez cas
restaurer les fichiers qui pourraient avoir été détectés.

- Les gains générés dans le programme Loto Million sont FICTIF
- Vous avez environs 1/32 de remporter quelque chose et 1/4 000 000 de remporter le gros lot


***** Download *****

http://www.megaupload.com/?d=BC06ENYO


***** Cheat *****
Dans le menu principal, entrer "cheat" au lieu de 1,2 ou 3 .

Code:
 @echo off
mode con cols=70 lines=30 &color 5e
title Loto Million  ^| By Dentsdemetal ^|


:: Programme créé par Dentsdemetal
:: Membre de batch.xoo.it
:: Contact  dentsdemetal@gmail.com
                                         
Rem ---------------------- Copyright ----------------------------------

:: Code par Dentsdemetal, ne pas copier, modifier, distribuer ce code sans mon autorisation
:: Ne pas supprimer ce Copyright, merci.
:: commandes externes utilisés : SORT

Rem ---------------------- Copyright ----------------------------------

cls

:start

cls
echo               ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo               º                  Bienvenue                 º
echo               º                                            º
echo               º              Dans Loto Million             º
echo               º                                            º
echo               ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
set /p NAME=Quel est votre nom ?

if exist %systemdrive%\LotoMillion\%NAME%.txt goto main

:jounotexist
mkdir %systemdrive%\LotoMillion\
echo 100> %systemdrive%\LotoMillion\%NAME%.txt
goto main


:main

for /f "tokens=*" %%A in ('type %systemdrive%\LotoMillion\%NAME%.txt') do (
    set Argent=%%A
   )


set v1=
set v2=
set v3=
set v4=
set v5=
set v6=
set v13=
set v23=
set v33=
set v43=
set v53=
set v63=



cls
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo     ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo     º                                                         º
echo     º                       %date%                        º
echo     º                                                         º
echo     º           Loto Million  ^| By Dentsdemetal ^|             º
echo     º                                                         º
echo     ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.               
echo                        Joueur : %NAME%                   
echo                        Argent : %Argent%
echo.
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo         1 Jouer … Loto Million    2 Propri‚t‚ du Joueur     
echo.
echo         3 Quitter
echo.
echo.
set /p choix=Entrer le chiffre suivi de [Enter]
cls
goto jeux%choix%



:jeux3
cls
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo      Merci d'avoir Utilis‚ Loto Million de Dentsdemetal
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
@ping localhost -n 3 >nul
exit

:jeux2
cls
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo               Loto Million / Menu des propri‚t‚s
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo      1 Ajouter de l'argent        2 Changer de Joueur
echo.
echo      3 Retour au menu principal
echo.
set /p prob=Entrer le chiffre suivi de [Enter]
goto prob%prob%

:prob3
cls
goto main

:prob2
goto start

:prob1
cls
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo                      Vous avez %Argent%
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo.
echo.
set /p money=Combien Voulez-vous en rajouter ? 
set /a money2=%Argent%+%money%
echo %money2%> %systemdrive%\LotoMillion\%NAME%.txt
for /f "tokens=*" %%B in ('type %systemdrive%\LotoMillion\%NAME%.txt') do (
    set Argent=%%B
   )
goto jeux2



:jeux1

call :AlRand 1 49 grolo
call :AlRand 2 14 pri

call :AlRand 1 49 V1
echo %V1% >>test.txt

:va
call :AlRand 1 49 V2
if %V2%==%V1% goto va
echo %V2% >>test.txt

:vb
call :AlRand 1 49 V3
if %V3%==%V1% goto vb
if %V3%==%V2% goto vb
echo %V3% >>test.txt

:vc
call :AlRand 1 49 V4
if %V4%==%V1% goto vc
if %V4%==%V2% goto vc
if %V4%==%V3% goto vc
echo %V4% >>test.txt

:vd
call :AlRand 1 49 V5
if %V5%==%V1% goto vd
if %V5%==%V2% goto vd
if %V5%==%V3% goto vd
if %V5%==%V4% goto vd
echo %V5% >>test.txt

:ve
call :AlRand 1 49 V6
if %V6%==%V1% goto ve
if %V6%==%V2% goto ve
if %V6%==%V3% goto ve
if %V6%==%V4% goto ve
if %V6%==%V5% goto ve
echo %V6% >>test.txt


sort -n test.txt > test2.txt

del test.txt


SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
set FILE=test2.txt

set NEW_TXT=
for /f "tokens=*" %%A in ('type %FILE%') do (
    set NEW_TXT=!NEW_TXT! // %%A
   )
for /f "tokens=2,*" %%A in ('set ^| Find "NEW_TXT"') do (
    echo %%B>%FILE%
   )


SETLOCAL EnableDelayedExpansion

for /f "tokens=*" %%A in ('"type test2.txt | findstr /N ".*" | findstr /R /B "^1:.*""') DO (
   SET chifwin=%%A
   SET chifwin=!chifwin:~2!
)

del test2.txt

:: ECHO !chifwin!



cls
echo.
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo    Aujourd'hui, le gros lot est de .
echo.
ping 0.0.0.0 -n 2 > NUL
cls
echo.
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo    Aujourd'hui, le gros lot est de ..
echo.
ping 0.0.0.0 -n 2 > NUL
cls
echo.
echo    ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ
echo.
echo    Aujourd'hui, le gros lot est de ...
echo.
ping 0.0.0.0 -n 2 > NUL
cls
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo                      %grolo% Millions
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
pause
cls
echo.
echo Vous avez %Argent% dollars.
echo.
echo Aujourd'hui, le billet de Loto Million co–te %pri% dollars.
echo.
echo Voulez vous achetez un billet ?
echo.
echo.
set /p acha=Entrer [o] ou [n] suivi de [Enter]
if %acha%==n goto main
:zxcvb
set /a prii=%Argent%-%pri%
echo %prii%> %systemdrive%\LotoMillion\%NAME%.txt
for /f "tokens=*" %%A in ('type %systemdrive%\LotoMillion\%NAME%.txt') do (
    set Argent=%%A
   )

cls
echo.
echo Voulez-vous choisir vos nombres :
echo.
echo 1 Vous mˆme
echo.
echo   ou
echo.
echo 2 De Fa‡on al‚atoire
echo.
set /p metode=Entrer le chiffre suivit de [Enter]
goto meto%metode%


:meto2

call :AlRand 1 49 V13
echo %V13% >test.txt

:va3
call :AlRand 1 49 V23
if %V23%==%V13% goto va3
echo %V23% >>test.txt

:vb3
call :AlRand 1 49 V33
if %V33%==%V13% goto vb3
if %V33%==%V23% goto vb3
echo %V33% >>test.txt

:vc3
call :AlRand 1 49 V43
if %V43%==%V13% goto vc3
if %V43%==%V23% goto vc3
if %V43%==%V33% goto vc3
echo %V43% >>test.txt

:vd3
call :AlRand 1 49 V53
if %V53%==%V13% goto vd3
if %V53%==%V23% goto vd3
if %V53%==%V33% goto vd3
if %V53%==%V43% goto vd3
echo %V53% >>test.txt

:ve3
call :AlRand 1 49 V63
if %V63%==%V13% goto ve3
if %V63%==%V23% goto ve3
if %V63%==%V33% goto ve3
if %V63%==%V43% goto ve3
if %V63%==%V53% goto ve3
echo %V63% >>test.txt


sort -n test.txt > test2.txt

del test.txt


SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
set FILE=test2.txt

set NEW_TXT=
for /f "tokens=*" %%A in ('type %FILE%') do (
    set NEW_TXT=!NEW_TXT! // %%A
   )
for /f "tokens=2,*" %%A in ('set ^| Find "NEW_TXT"') do (
    echo %%B>%FILE%
   )


SETLOCAL EnableDelayedExpansion

for /f "tokens=*" %%A in ('"type test2.txt | findstr /N ".*" | findstr /R /B "^1:.*""') DO (
   SET chifwin2=%%A
   SET chifwin2=!chifwin2:~2!
)

del test2.txt



Cls
echo.
echo Vos nombres sont !chifwin2!
echo.
echo Voulez-vous les garder ?
echo.
set /p metode2a=Entrer [o] ou [n] suivit de [Enter]
if %metode2a%==n goto metodenbr2
cls

set NB_BAR=0
:UP_BAR1
cls
set /a FULL = FULL + 1
set BAR=%BAR%Û
set /a NB_BAR = NB_BAR + 2
echo.
echo.
echo        Chargement Du nombre Gagnant ... %NB_BAR%%%
echo       ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo        %BAR%
echo        %BAR%
echo       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
if %FULL%==50 goto :END_BAR1
@ping localhost -n 1 >nul
goto :UP_BAR1
:END_BAR1
cls
set NB_BAR=0
set BAR=
set FULL=0

:: **** INSPIRÉ DU CODE DE SABLIER94 ****
set chiffresok=0
if %V1%==%V13% set /a chiffresok=%chiffresok%+1
if %V1%==%V23% set /a chiffresok=%chiffresok%+1
if %V1%==%V33% set /a chiffresok=%chiffresok%+1
if %V1%==%V43% set /a chiffresok=%chiffresok%+1
if %V1%==%V53% set /a chiffresok=%chiffresok%+1
if %V1%==%V63% set /a chiffresok=%chiffresok%+1
if %V2%==%V13% set /a chiffresok=%chiffresok%+1
if %V2%==%V23% set /a chiffresok=%chiffresok%+1
if %V2%==%V33% set /a chiffresok=%chiffresok%+1
if %V2%==%V43% set /a chiffresok=%chiffresok%+1
if %V2%==%V53% set /a chiffresok=%chiffresok%+1
if %V2%==%V63% set /a chiffresok=%chiffresok%+1
if %V3%==%V13% set /a chiffresok=%chiffresok%+1
if %V3%==%V23% set /a chiffresok=%chiffresok%+1
if %V3%==%V33% set /a chiffresok=%chiffresok%+1
if %V3%==%V43% set /a chiffresok=%chiffresok%+1
if %V3%==%V53% set /a chiffresok=%chiffresok%+1
if %V3%==%V63% set /a chiffresok=%chiffresok%+1
if %V4%==%V13% set /a chiffresok=%chiffresok%+1
if %V4%==%V23% set /a chiffresok=%chiffresok%+1
if %V4%==%V33% set /a chiffresok=%chiffresok%+1
if %V4%==%V43% set /a chiffresok=%chiffresok%+1
if %V4%==%V53% set /a chiffresok=%chiffresok%+1
if %V4%==%V63% set /a chiffresok=%chiffresok%+1
if %V5%==%V13% set /a chiffresok=%chiffresok%+1
if %V5%==%V23% set /a chiffresok=%chiffresok%+1
if %V5%==%V33% set /a chiffresok=%chiffresok%+1
if %V5%==%V43% set /a chiffresok=%chiffresok%+1
if %V5%==%V53% set /a chiffresok=%chiffresok%+1
if %V5%==%V63% set /a chiffresok=%chiffresok%+1
if %V6%==%V13% set /a chiffresok=%chiffresok%+1
if %V6%==%V23% set /a chiffresok=%chiffresok%+1
if %V6%==%V33% set /a chiffresok=%chiffresok%+1
if %V6%==%V43% set /a chiffresok=%chiffresok%+1
if %V6%==%V53% set /a chiffresok=%chiffresok%+1
if %V6%==%V63% set /a chiffresok=%chiffresok%+1
:: **** FIN DE L'INSPIRATION  ****

if %chiffresok%==0 set /a montan=0
if %chiffresok%==1 set /a montan=45
if %chiffresok%==2 set /a montan=500
if %chiffresok%==3 set /a montan=3500
if %chiffresok%==4 set /a montan=35000
if %chiffresok%==5 set /a montan=500000
if %chiffresok%==6 set /a montan=%grolo%000000

set /a cash=%Argent%+%montan%
set /a Argent=%cash%
echo %Argent% > %systemdrive%\LotoMillion\%NAME%.txt

cls
echo.
echo                        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo Le nombre  gagnant est   !chifwin!
echo                        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo Votre nombre est         !chifwin2!
echo                        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.
echo Vous gagnez donc %montan% Dollars
echo.
echo.
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Vous avez Maintenant %Argent% dollars
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo.
echo.
pause
goto main





:meto1

cls
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Veuillez entrer votre premier nombre
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
set /p v13=
echo %V13% >test.txt
:va32
cls
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Veuillez entrer votre 2iŠme nombre
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
set /p v23=
if %V23%==%V13% goto va32
echo %V23% >>test.txt
:vb32
cls
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Veuillez entrer votre 3iŠme nombre
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
set /p v33=
if %V33%==%V13% goto vb32
if %V33%==%V23% goto vb32
echo %V33% >>test.txt
:vc32
cls
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Veuillez entrer votre 4iŠme nombre
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
set /p v43=
if %V43%==%V13% goto vc32
if %V43%==%V23% goto vc32
if %V43%==%V33% goto vc32
echo %V43% >>test.txt
:vd32
cls
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Veuillez entrer votre 5iŠme nombre
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
set /p v53=
if %V53%==%V13% goto vd32
if %V53%==%V23% goto vd32
if %V53%==%V33% goto vd32
if %V53%==%V43% goto vd32
echo %V53% >>test.txt
:ve32
cls
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Veuillez entrer votre 6iŠme nombre
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
set /p v63=
if %V63%==%V13% goto ve32
if %V63%==%V23% goto ve32
if %V63%==%V33% goto ve32
if %V63%==%V43% goto ve32
if %V63%==%V53% goto ve32
echo %V63% >>test.txt

sort -n test.txt > test2.txt

del test.txt


SETLOCAL ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS
set FILE=test2.txt

set NEW_TXT=
for /f "tokens=*" %%A in ('type %FILE%') do (
    set NEW_TXT=!NEW_TXT! // %%A
   )
for /f "tokens=2,*" %%A in ('set ^| Find "NEW_TXT"') do (
    echo %%B>%FILE%
   )


SETLOCAL EnableDelayedExpansion

for /f "tokens=*" %%A in ('"type test2.txt | findstr /N ".*" | findstr /R /B "^1:.*""') DO (
   SET chifwin2=%%A
   SET chifwin2=!chifwin2:~2!
)

del test2.txt



set NB_BAR=0
:UP_BAR1
cls
set /a FULL = FULL + 1
set BAR=%BAR%Û
set /a NB_BAR = NB_BAR + 2
echo.
echo.
echo        Chargement Du nombre Gagnant ... %NB_BAR%%%
echo       ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo        %BAR%
echo        %BAR%
echo       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
if %FULL%==50 goto :END_BAR1
@ping localhost -n 1 >nul
goto :UP_BAR1
:END_BAR1
cls
set NB_BAR=0
set BAR=
set FULL=0
set chiffresok=0
if %V1%==%V13% set /a chiffresok=%chiffresok%+1
if %V1%==%V23% set /a chiffresok=%chiffresok%+1
if %V1%==%V33% set /a chiffresok=%chiffresok%+1
if %V1%==%V43% set /a chiffresok=%chiffresok%+1
if %V1%==%V53% set /a chiffresok=%chiffresok%+1
if %V1%==%V63% set /a chiffresok=%chiffresok%+1
if %V2%==%V13% set /a chiffresok=%chiffresok%+1
if %V2%==%V23% set /a chiffresok=%chiffresok%+1
if %V2%==%V33% set /a chiffresok=%chiffresok%+1
if %V2%==%V43% set /a chiffresok=%chiffresok%+1
if %V2%==%V53% set /a chiffresok=%chiffresok%+1
if %V2%==%V63% set /a chiffresok=%chiffresok%+1
if %V3%==%V13% set /a chiffresok=%chiffresok%+1
if %V3%==%V23% set /a chiffresok=%chiffresok%+1
if %V3%==%V33% set /a chiffresok=%chiffresok%+1
if %V3%==%V43% set /a chiffresok=%chiffresok%+1
if %V3%==%V53% set /a chiffresok=%chiffresok%+1
if %V3%==%V63% set /a chiffresok=%chiffresok%+1
if %V4%==%V13% set /a chiffresok=%chiffresok%+1
if %V4%==%V23% set /a chiffresok=%chiffresok%+1
if %V4%==%V33% set /a chiffresok=%chiffresok%+1
if %V4%==%V43% set /a chiffresok=%chiffresok%+1
if %V4%==%V53% set /a chiffresok=%chiffresok%+1
if %V4%==%V63% set /a chiffresok=%chiffresok%+1
if %V5%==%V13% set /a chiffresok=%chiffresok%+1
if %V5%==%V23% set /a chiffresok=%chiffresok%+1
if %V5%==%V33% set /a chiffresok=%chiffresok%+1
if %V5%==%V43% set /a chiffresok=%chiffresok%+1
if %V5%==%V53% set /a chiffresok=%chiffresok%+1
if %V5%==%V63% set /a chiffresok=%chiffresok%+1
if %V6%==%V13% set /a chiffresok=%chiffresok%+1
if %V6%==%V23% set /a chiffresok=%chiffresok%+1
if %V6%==%V33% set /a chiffresok=%chiffresok%+1
if %V6%==%V43% set /a chiffresok=%chiffresok%+1
if %V6%==%V53% set /a chiffresok=%chiffresok%+1
if %V6%==%V63% set /a chiffresok=%chiffresok%+1
:asdfghjkl
if %chiffresok%==0 set /a montan=0
if %chiffresok%==1 set /a montan=45
if %chiffresok%==2 set /a montan=500
if %chiffresok%==3 set /a montan=3500
if %chiffresok%==4 set /a montan=35000
if %chiffresok%==5 set /a montan=500000
if %chiffresok%==6 set /a montan=%grolo%000000
set /a cash=%Argent%+%montan%
set /a Argent=%cash%
echo %Argent% > %systemdrive%\LotoMillion\%NAME%.txt
cls
echo.
echo                        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo Le nombre  gagnant est   !chifwin!
echo                        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo Votre nombre est         !chifwin2!
echo                        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.
echo Vous gagnez donc %montan% Dollars
echo.
echo.
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Vous avez Maintenant %Argent% dollars
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo.
echo.
pause
goto main



:jeuxcheat
cls
call :AlRand 1 49 grolo
set /a montan=%grolo%000000
set /a cash=%Argent%+%montan%
set /a Argent=%cash%
echo %Argent% > %systemdrive%\LotoMillion\%NAME%.txt
cls
echo.
echo                        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo Le nombre  gagnant est   X // X // X // X // X // X
echo                        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo                        ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
echo Votre nombre est         X // X // X // X // X // X
echo                        ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.
echo Vous gagnez donc %montan% Dollars
echo.
echo.
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo            Vous avez Maintenant %Argent% dollars
echo.
echo  ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
echo.
echo.
echo.
pause
goto main



:AlRand
set /a %~3=%random%%%(%~2-%~1+1)+%~1
goto :eof
 




Dernière édition par DTS23 le Jeu 6 Jan 2011 - 22:40; édité 1 fois

______________________________________________________
--
Comptes sur moi , moi je compte sur mes doigts.
MSN
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Loto Million 
Hello ^^

Wow, good job Okay sympa !
L'affichage est soigné, bravo.
Quelques trucs à raccourcir, mais je chipote ....

@+




______________________________________________________


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 Loto Million 
Merci Stryk !




______________________________________________________
--
Comptes sur moi , moi je compte sur mes doigts.
MSN
Message Loto Million 


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