DBatchScript

DBatchScript


Se você ainda não é um membro cadastre-se!
é fácil rápido e gratuito.

Existem centenas de scripts para quem é membro, alem disso você pode postar
os seus. e contar com nossa ajuda ou vice versa.

As categorias para os membros cadastrados são:

BATCH (WINDOWS).
(Espaço onde são postados os scripts que tenham funcionalidade completa) .

LINGUAGENS DIVERSSAS
(Onde tem vários códigos fonte de Delphi C/C++ asm e outros)

Participe você também estamos te esperado não perca mais tempo embarque nessa. Wink

[BAT] MegaNumeros simulador da mega sena Toolsc10

Participe do fórum, é rápido e fácil

DBatchScript

DBatchScript


Se você ainda não é um membro cadastre-se!
é fácil rápido e gratuito.

Existem centenas de scripts para quem é membro, alem disso você pode postar
os seus. e contar com nossa ajuda ou vice versa.

As categorias para os membros cadastrados são:

BATCH (WINDOWS).
(Espaço onde são postados os scripts que tenham funcionalidade completa) .

LINGUAGENS DIVERSSAS
(Onde tem vários códigos fonte de Delphi C/C++ asm e outros)

Participe você também estamos te esperado não perca mais tempo embarque nessa. Wink

[BAT] MegaNumeros simulador da mega sena Toolsc10
DBatchScript
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Translate the forum
English French
German Spain
Italian Dutch
Russian Japanese
Korean Arabic
Chinese Simplified Portuguese Brazil
Quem está conectado ?
1 usuário online :: 0 Registrados, 0 Invisíveis e 1 Visitante

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 153 em Ter Mar 09, 2021 2:43 am
Últimos assuntos
» [BAT] MegaNumeros simulador da mega sena
[BAT] MegaNumeros simulador da mega sena EmptySex Jan 17, 2020 7:00 pm por castioni24

» Agendador de tarefas
[BAT] MegaNumeros simulador da mega sena EmptySeg Ago 26, 2019 1:53 pm por Delmar Grande

» Remover duplicados e frases de um txt
[BAT] MegaNumeros simulador da mega sena EmptyTer Jul 23, 2019 7:00 pm por Delmar Grande

» Modificações do nome de usuário
[BAT] MegaNumeros simulador da mega sena EmptyQui Maio 24, 2018 1:14 am por biopha

» [bat] Deletar uma linha de um lote de arquivo Txt, sem matar as linhas vazias
[BAT] MegaNumeros simulador da mega sena EmptyTer Ago 01, 2017 1:46 pm por sachadee

» Aulas de cmd
[BAT] MegaNumeros simulador da mega sena EmptySex Fev 24, 2017 4:44 pm por sachadee

» Fazer chat em rede domestica
[BAT] MegaNumeros simulador da mega sena EmptyDom Ago 14, 2016 12:19 am por Diego Augusto

» redirecionar comando for pra outro batch
[BAT] MegaNumeros simulador da mega sena EmptySex Maio 27, 2016 1:29 pm por castioni24

» ORGANIZAR TAGS PARA POR NO YOUTUBE ajuda
[BAT] MegaNumeros simulador da mega sena EmptyQui Dez 10, 2015 10:52 am por castioni24

Parceiros
Fórum grátis

Origem das visitas
Flag Counter
Os membros mais ativos do mês

Destaque do mês
Destaque do Fórum

Carregando avatar...
Obrigado pela colaboração!

[BAT] MegaNumeros simulador da mega sena

Ir em baixo

[BAT] MegaNumeros simulador da mega sena Empty [BAT] MegaNumeros simulador da mega sena

Mensagem por Delmar Grande Qui Fev 13, 2014 7:39 pm

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

DBatchScript

[BAT] MegaNumeros simulador da mega sena Rang10Seta Ola , Antes De Postar Pesso Que Leia As Regras Do Forum!.
Seta Pesquise Antes De Postar Alguma Coisa Pesquisar!
Seta Ajuda De Batch!
Seta Chegou agora Apresenta-se aqui!
Seta Respeite Nossos Usuarios , Atenciosamente Equipe DBatchScript.



O covarde nunca tenta, o fracassado nunca termina, e o vencedor nunca desiste!
Delmar Grande
Delmar Grande
Admineiro
Admineiro

Masculino
Mensagens : 531
Pontos : 1373
Data de inscrição : 25/06/2013
Idade : 30
Localização : Na frente do pc
Barra Respeito às Regras : Respeito às Regras 100%

https://dbatchscript.forumeiros.com

Voltar ao Topo Ir em baixo

[BAT] MegaNumeros simulador da mega sena Empty tem como explicar o código

Mensagem por castioni24 Ter Nov 18, 2014 10:58 am

tem como explicar o código

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"

if %count% neq 100
castioni24
castioni24
sou nível 2

Masculino
Mensagens : 14
Pontos : 28
Data de inscrição : 26/10/2014
Idade : 37
Localização : Rio Grande do sul
Barra Respeito às Regras : Respeito às Regras 100%

Voltar ao Topo Ir em baixo

[BAT] MegaNumeros simulador da mega sena Empty Re: [BAT] MegaNumeros simulador da mega sena

Mensagem por Delmar Grande Sex Nov 28, 2014 12:27 pm

Opa vamos la!

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

qualquer duvida posta ai. shisha

DBatchScript

[BAT] MegaNumeros simulador da mega sena Rang10Seta Ola , Antes De Postar Pesso Que Leia As Regras Do Forum!.
Seta Pesquise Antes De Postar Alguma Coisa Pesquisar!
Seta Ajuda De Batch!
Seta Chegou agora Apresenta-se aqui!
Seta Respeite Nossos Usuarios , Atenciosamente Equipe DBatchScript.



O covarde nunca tenta, o fracassado nunca termina, e o vencedor nunca desiste!
Delmar Grande
Delmar Grande
Admineiro
Admineiro

Masculino
Mensagens : 531
Pontos : 1373
Data de inscrição : 25/06/2013
Idade : 30
Localização : Na frente do pc
Barra Respeito às Regras : Respeito às Regras 100%

https://dbatchscript.forumeiros.com

Voltar ao Topo Ir em baixo

[BAT] MegaNumeros simulador da mega sena Empty Re: [BAT] MegaNumeros simulador da mega sena

Mensagem por castioni24 Ter Dez 23, 2014 9:14 pm

Eu fis umas melhorias no code
só uma pergunta sera que tem outra maneira de ordenar os números?
que desta forma da muito trabalho

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

fazendo loto fácil agora
castioni24
castioni24
sou nível 2

Masculino
Mensagens : 14
Pontos : 28
Data de inscrição : 26/10/2014
Idade : 37
Localização : Rio Grande do sul
Barra Respeito às Regras : Respeito às Regras 100%

Delmar Grande gosta desta mensagem

Voltar ao Topo Ir em baixo

[BAT] MegaNumeros simulador da mega sena Empty Re: [BAT] MegaNumeros simulador da mega sena

Mensagem por castioni24 Sex Jan 17, 2020 7:00 pm

Eu fis umas melhorias no code
código mais enxuto

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
bounce cheers
castioni24
castioni24
sou nível 2

Masculino
Mensagens : 14
Pontos : 28
Data de inscrição : 26/10/2014
Idade : 37
Localização : Rio Grande do sul
Barra Respeito às Regras : Respeito às Regras 100%

Voltar ao Topo Ir em baixo

[BAT] MegaNumeros simulador da mega sena Empty Re: [BAT] MegaNumeros simulador da mega sena

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum