[BAT] MegaNumeros simulador da mega sena

Código:


@echo off
::Autor Delmar Grande
::fórum DBatchScript  http://dbatchscript.forumeiros.com/
::Data  Qui 13 Fev 2014

:vol
set /a count+=1
set /a "rand1=%random% %% (10 - 1 + 1) + 1"
set /a "rand2=%random% %% (20 - 11 + 1) + 11"
set /a "rand3=%random% %% (30 - 21 + 1) + 21"
set /a "rand4=%random% %% (40 - 31 + 1) + 31"
set /a "rand5=%random% %% (50 - 41 + 1) + 41"
set /a "rand6=%random% %% (60 - 51 + 1) + 51"
echo.
for %%# in (1,2,3,4,5,6,7,8,9) do (
if %rand1% equ %%# (
set rand1=0%%#
)
)
echo Numero %rand1% - %rand2% - %rand3% - %rand4% - %rand5% - %rand6%
echo.
if %count% neq 100 (
cls
goto vol
)
echo Enter para ver outro&pause&set count=0&goto vol
pause


castioni24 escreveu:tem como explicar o código

set /a count+=1 faz um incremento na variável count mais 1
set /a "rand1=%random% %% (10 - 1 + 1) + 1" transfere para variável rand1 números randômico de 1 a 10
set /a "rand2=%random% %% (20 - 11 + 1) + 11" transfere para variável rand2 números randômico de 11 a 20
set /a "rand3=%random% %% (30 - 21 + 1) + 21" transfere para variável rand3 números randômico de 21 a 30
set /a "rand4=%random% %% (40 - 31 + 1) + 31" transfere para variável rand4 números randômico de 31 a 40
set /a "rand5=%random% %% (50 - 41 + 1) + 41" transfere para variável rand5 números randômico de 41 a 50
set /a "rand6=%random% %% (60 - 51 + 1) + 51" transfere para variável rand6 números randômico de 51 a 60

if %count% neq 100 se a variável count não for igual 100

Código:

@echo off
title GERADOR DE APOSTAS MEGA-SENA
mode con: lines=13 cols=60
color 1f
::Autor Mauricio Castioni
::f¢rum DBatchScript  http://dbatchscript.forumeiros.com/
::Data  Qui 30 Out 2014

:vol
set /a count+=1
set /a "rand1=%random% %% (60 - 1 + 1) + 1"
:rand2
set /a "rand2=%random% %% (60 - 1 + 1) + 1"
if %rand2% equ %rand1% goto rand2
:rand3
set /a "rand3=%random% %% (60 - 1 + 1) + 1"
if %rand3% equ %rand1% goto rand3
if %rand3% equ %rand2% goto rand3
:rand4
set /a "rand4=%random% %% (60 - 1 + 1) + 1"
if %rand4% equ %rand1% goto rand4
if %rand4% equ %rand2% goto rand4
if %rand4% equ %rand3% goto rand4
:rand5
set /a "rand5=%random% %% (60 - 1 + 1) + 1"
if %rand5% equ %rand1% goto rand5
if %rand5% equ %rand2% goto rand5
if %rand5% equ %rand3% goto rand5
if %rand5% equ %rand4% goto rand5
:rand6
set /a "rand6=%random% %% (60 - 1 + 1) + 1"
if %rand6% equ %rand1% goto rand6
if %rand6% equ %rand2% goto rand6
if %rand6% equ %rand3% goto rand6
if %rand6% equ %rand4% goto rand6
if %rand6% equ %rand5% goto rand6
::organiza
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "pri=rand1"&goto r1)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "pri=rand2"&goto r2)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "pri=rand3"&goto r3)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "pri=rand4"&goto r4)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "pri=rand5"&goto r5)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "pri=rand6"&goto r6)
:r1
If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "seg=rand2"&goto r1t2)
If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "seg=rand3"&goto r1t3)
If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "seg=rand4"&goto r1t4)
If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "seg=rand5"&goto r1t5)
If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "seg=rand6"&goto r1t6)
:r2
If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "seg=rand1"&goto r2t1)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "seg=rand3"&goto r2t3)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "seg=rand4"&goto r2t4)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "seg=rand5"&goto r2t5)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "seg=rand6"&goto r2t6)
:r3
If %rand1% LEQ %rand2% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "seg=rand1"&goto r3t1)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "seg=rand2"&goto r3t2)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "seg=rand4"&goto r3t4)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "seg=rand5"&goto r3t5)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "seg=rand6"&goto r3t6)
:r4
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "seg=rand1"&goto r4t1)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "seg=rand2"&goto r4t2)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "seg=rand3"&goto r4t3)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand6% (Set /A "seg=rand5"&goto r4t5)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand5% (Set /A "seg=rand6"&goto r4t6)
:r5
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand6% (Set /A "seg=rand1"&goto r5t1)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand6% (Set /A "seg=rand2"&goto r5t2)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand6% (Set /A "seg=rand3"&goto r5t3)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand6% (Set /A "seg=rand4"&goto r5t4)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% (Set /A "seg=rand6"&goto r5t6)
:r6
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% (Set /A "seg=rand1"&goto r6t1)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% (Set /A "seg=rand2"&goto r6t2)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% (Set /A "seg=rand3"&goto r6t3)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% (Set /A "seg=rand4"&goto r6t4)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% (Set /A "seg=rand5"&goto r6t5)

:r1t2
If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r1t3
If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand4% LEQ %rand2% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand2% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand2% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r1t4
If %rand2% LEQ %rand3% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand2% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r1t5
If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% (Set /A "tre=rand6"&goto p)
:r1t6
If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% (Set /A "tre=rand5"&goto p)

:r2t1
If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r2t3
If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r2t4
If %rand1% LEQ %rand3% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand3% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand3% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r2t5
If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand4% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand3% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% (Set /A "tre=rand6"&goto p)
:r2t6
If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% (Set /A "tre=rand1"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% (Set /A "tre=rand5"&goto p)

:r3t1
If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand4% LEQ %rand2% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand2% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand2% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r3t2
If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand5% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand4% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand4% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r3t4
If %rand1% LEQ %rand2% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r3t5
If %rand1% LEQ %rand2% If %rand1% LEQ %rand4% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand4% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand4% (Set /A "tre=rand6"&goto p)
:r3t6
If %rand1% LEQ %rand2% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% (Set /A "tre=rand2"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand5% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand4% (Set /A "tre=rand5"&goto p)

:r4t1
If %rand2% LEQ %rand3% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand2% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r4t2
If %rand1% LEQ %rand3% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand5% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand3% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand3% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r4t3
If %rand1% LEQ %rand2% If %rand1% LEQ %rand5% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand5% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand6% (Set /A "tre=rand5"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand5% (Set /A "tre=rand6"&goto p)
:r4t5
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% (Set /A "tre=rand6"&goto p)
:r4t6
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand5% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand5% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand5% (Set /A "tre=rand3"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% (Set /A "tre=rand5"&goto p)

:r5t1
If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% (Set /A "tre=rand6"&goto p)
:r5t2
If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand4% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand3% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand3% If %rand6% LEQ %rand4% (Set /A "tre=rand6"&goto p)
:r5t3
If %rand1% LEQ %rand2% If %rand1% LEQ %rand4% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand4% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand6% (Set /A "tre=rand4"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand4% (Set /A "tre=rand6"&goto p)
:r5t4
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand6% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand6% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand6% (Set /A "tre=rand3"&goto p)
If %rand6% LEQ %rand1% If %rand6% LEQ %rand2% If %rand6% LEQ %rand3% (Set /A "tre=rand6"&goto p)
:r5t6
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% (Set /A "tre=rand4"&goto p)

:r6t1
If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% (Set /A "tre=rand5"&goto p)
:r6t2
If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% (Set /A "tre=rand1"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand4% If %rand3% LEQ %rand5% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand3% If %rand4% LEQ %rand5% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand3% If %rand5% LEQ %rand4% (Set /A "tre=rand5"&goto p)
:r6t3
If %rand1% LEQ %rand2% If %rand1% LEQ %rand4% If %rand1% LEQ %rand5% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand4% If %rand2% LEQ %rand5% (Set /A "tre=rand2"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand5% (Set /A "tre=rand4"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand4% (Set /A "tre=rand5"&goto p)
:r6t4
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand5% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand5% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand5% (Set /A "tre=rand3"&goto p)
If %rand5% LEQ %rand1% If %rand5% LEQ %rand2% If %rand5% LEQ %rand3% (Set /A "tre=rand5"&goto p)
:r6t5
If %rand1% LEQ %rand2% If %rand1% LEQ %rand3% If %rand1% LEQ %rand4% (Set /A "tre=rand1"&goto p)
If %rand2% LEQ %rand1% If %rand2% LEQ %rand3% If %rand2% LEQ %rand4% (Set /A "tre=rand2"&goto p)
If %rand3% LEQ %rand1% If %rand3% LEQ %rand2% If %rand3% LEQ %rand4% (Set /A "tre=rand3"&goto p)
If %rand4% LEQ %rand1% If %rand4% LEQ %rand2% If %rand4% LEQ %rand3% (Set /A "tre=rand4"&goto p)
:p
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "sex=rand1"&goto pr1)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "sex=rand2"&goto pr2)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "sex=rand3"&goto pr3)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "sex=rand4"&goto pr4)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "sex=rand5"&goto pr5)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "sex=rand6"&goto pr6)
:pr1
If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qui=rand2"&goto pr1t2)
If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qui=rand3"&goto pr1t3)
If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qui=rand4"&goto pr1t4)
If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qui=rand5"&goto pr1t5)
If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qui=rand6"&goto pr1t6)
:pr2
If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qui=rand1"&goto pr2t1)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qui=rand3"&goto pr2t3)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qui=rand4"&goto pr2t4)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qui=rand5"&goto pr2t5)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qui=rand6"&goto pr2t6)
:pr3
If %rand1% GEQ %rand2% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qui=rand1"&goto pr3t1)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qui=rand2"&goto pr3t2)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qui=rand4"&goto pr3t4)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qui=rand5"&goto pr3t5)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qui=rand6"&goto pr3t6)
:pr4
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qui=rand1"&goto pr4t1)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qui=rand2"&goto pr4t2)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qui=rand3"&goto pr4t3)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand6% (Set /A "qui=rand5"&goto pr4t5)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand5% (Set /A "qui=rand6"&goto pr4t6)
:pr5
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand6% (Set /A "qui=rand1"&goto pr5t1)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand6% (Set /A "qui=rand2"&goto pr5t2)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand6% (Set /A "qui=rand3"&goto pr5t3)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand6% (Set /A "qui=rand4"&goto pr5t4)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% (Set /A "qui=rand6"&goto pr5t6)
:pr6
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% (Set /A "qui=rand1"&goto pr6t1)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% (Set /A "qui=rand2"&goto pr6t2)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% (Set /A "qui=rand3"&goto pr6t3)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% (Set /A "qui=rand4"&goto pr6t4)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% (Set /A "qui=rand5"&goto pr6t5)

:pr1t2
If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr1t3
If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand4% GEQ %rand2% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand2% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand2% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr1t4
If %rand2% GEQ %rand3% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand2% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr1t5
If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% (Set /A "qua=rand6"&goto res)
:pr1t6
If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% (Set /A "qua=rand5"&goto res)

:pr2t1
If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr2t3
If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr2t4
If %rand1% GEQ %rand3% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand3% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand3% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr2t5
If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand4% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand3% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% (Set /A "qua=rand6"&goto res)
:pr2t6
If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% (Set /A "qua=rand1"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% (Set /A "qua=rand5"&goto res)

:pr3t1
If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand4% GEQ %rand2% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand2% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand2% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr3t2
If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand5% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand4% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand4% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr3t4
If %rand1% GEQ %rand2% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr3t5
If %rand1% GEQ %rand2% If %rand1% GEQ %rand4% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand4% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand4% (Set /A "qua=rand6"&goto res)
:pr3t6
If %rand1% GEQ %rand2% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% (Set /A "qua=rand2"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand5% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand4% (Set /A "qua=rand5"&goto res)

:pr4t1
If %rand2% GEQ %rand3% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand2% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr4t2
If %rand1% GEQ %rand3% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand5% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand3% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand3% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr4t3
If %rand1% GEQ %rand2% If %rand1% GEQ %rand5% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand5% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand6% (Set /A "qua=rand5"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand5% (Set /A "qua=rand6"&goto res)
:pr4t5
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% (Set /A "qua=rand6"&goto res)
:pr4t6
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand5% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand5% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand5% (Set /A "qua=rand3"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% (Set /A "qua=rand5"&goto res)

:pr5t1
If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% (Set /A "qua=rand6"&goto res)
:pr5t2
If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand4% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand3% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand3% If %rand6% GEQ %rand4% (Set /A "qua=rand6"&goto res)
:pr5t3
If %rand1% GEQ %rand2% If %rand1% GEQ %rand4% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand4% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand6% (Set /A "qua=rand4"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand4% (Set /A "qua=rand6"&goto res)
:pr5t4
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand6% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand6% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand6% (Set /A "qua=rand3"&goto res)
If %rand6% GEQ %rand1% If %rand6% GEQ %rand2% If %rand6% GEQ %rand3% (Set /A "qua=rand6"&goto res)
:pr5t6
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% (Set /A "qua=rand4"&goto res)

:pr6t1
If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% (Set /A "qua=rand5"&goto res)
:pr6t2
If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% (Set /A "qua=rand1"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand4% If %rand3% GEQ %rand5% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand3% If %rand4% GEQ %rand5% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand3% If %rand5% GEQ %rand4% (Set /A "qua=rand5"&goto res)
:pr6t3
If %rand1% GEQ %rand2% If %rand1% GEQ %rand4% If %rand1% GEQ %rand5% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand4% If %rand2% GEQ %rand5% (Set /A "qua=rand2"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand5% (Set /A "qua=rand4"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand4% (Set /A "qua=rand5"&goto res)
:pr6t4
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand5% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand5% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand5% (Set /A "qua=rand3"&goto res)
If %rand5% GEQ %rand1% If %rand5% GEQ %rand2% If %rand5% GEQ %rand3% (Set /A "qua=rand5"&goto res)
:pr6t5
If %rand1% GEQ %rand2% If %rand1% GEQ %rand3% If %rand1% GEQ %rand4% (Set /A "qua=rand1"&goto res)
If %rand2% GEQ %rand1% If %rand2% GEQ %rand3% If %rand2% GEQ %rand4% (Set /A "qua=rand2"&goto res)
If %rand3% GEQ %rand1% If %rand3% GEQ %rand2% If %rand3% GEQ %rand4% (Set /A "qua=rand3"&goto res)
If %rand4% GEQ %rand1% If %rand4% GEQ %rand2% If %rand4% GEQ %rand3% (Set /A "qua=rand4"&goto res)
:res
for %%# in (1,2,3,4,5,6,7,8,9) do (
if %pri% equ %%# (
set pri=0%%#
)
)
for %%# in (1,2,3,4,5,6,7,8,9) do (
if %seg% equ %%# (
set seg=0%%#
)
)
for %%# in (1,2,3,4,5,6,7,8,9) do (
if %tre% equ %%# (
set tre=0%%#
)
)
for %%# in (1,2,3,4,5,6,7,8,9) do (
if %qua% equ %%# (
set qua=0%%#
)
)
for %%# in (1,2,3,4,5,6,7,8,9) do (
if %qui% equ %%# (
set qui=0%%#
)
)
for %%# in (1,2,3,4,5,6,7,8,9) do (
if %sex% equ %%# (
set sex=0%%#
)
)
:ap
cls
echo.
echo.
echo         APOSTA
echo.
Echo         %pri% - %seg% - %tre% - %qua% - %qui% - %sex%
echo.
if %count% neq 100 (
cls
goto vol
)
echo         OP€AO 1. Ver outra aposta
echo         OP€AO 2. Sair
echo.
set /p opcao=.               DIGITE A OP€AO DESEJADA ? =
     if %opcao% neq 2 if %opcao% neq 1 (goto ap)
     if %opcao% == 1 goto ver
     if %opcao% == 2 goto sair
:opin

:ver
set count=0
goto vol
:sair
exit

Código:


@echo off
title GERADOR DE APOSTAS LOTERIA
mode con: lines=13 cols=60
color 1f
::Autor Mauricio Castioni
::frum DBatchScript  https://dbatchscript.forumeiros.com/
::Data  Qui 17 jan 2019
goto ver
:ap
cls
echo  GERADOR DE APOSTAS LOTERIA
echo  APOSTA
echo.
echo        !$sorted!
echo.
echo OPۂO 1. Ver outra aposta
echo OPۂO 2. Sair
echo.
set /p opcao=.       DIGITE A OP€ÇO DESEJADA ? =
  if %opcao% neq 2 if %opcao% neq 1 (goto ap)
  if %opcao% == 1 goto ver
  if %opcao% == 2 goto sair

:ver
set "$l="
set "$sorted="
set count=0
setlocal enabledelayedexpansion
:vol
set /a count+=1
:repetido
REM MUDAR NUMERO 60 POR 100 PARA FAZER LOTO MANIA. MUDAR LOGO ABAIXO TAMBEM LOTO FACIL 25
set /a "$rand=%random% %% (60 - 1 + 1) + 1"
for %%a in (!$l!) do (
if %%a EQU !$rand! (
    goto repetido)
)
set $l=!$rand! !$l!
REM MUDAR NUMERO 6 POR 50 PARA FAZER LOTO MANIA. LOTO FACIL 15
if %count% neq 6 (
goto vol
)
for %%a in (!$l!) do (
 if %%a leq 9 (set $lz=0%%a !$lz!)
 if %%a geq 10 (set $lz=%%a !$lz!)
)
:organizar
set "$t=0"
for %%a in (!$lz!) do (
if %%a GTR !$t! (
     set "$bigger=%%a"
     set "$t=%%a")
)
set $sorted=!$bigger! !$sorted!
set "$l2="
for %%a in (%$lz%) do if not %%a==!$bigger! set "$l2=!$l2! %%a"
set "$lz=!$l2!"
if defined $lz goto:organizar
goto ap
:sair
exit