Lotto Tools

C1nC1n · 14 Gennaio 2009

Cya all, non so se ci sono apassionati di lotto qui dentro, io si

ho creato un semplice script che prende i numeri usciti nell'ultima estrazione e controlla se sono applicabili dei metodi(per ora controlla solo dei metodi basati sui numeri spia) e salva in un file txt i numeri da giocare per le volte successive..naturalmente anche se son metodi di analisi statistica etc.. non c'ÃƒÆ’Ã‚Â¨ mai il 100% di possibilita di vincita..purtroppo $:\$

Codice:

#!/usr/bin/perl
# Lotto Tools v1.0
# [email protected]
# soon new version..

if(@ARGV < 50){
print "Usage: lotto.pl (5 estratti Bari ultima estrazione) (5 estratti Cagliari) (5 estratti Firenze) etc..Non nazionale\n";
print "\n Ex: lotto.pl 5 14 27 80 90 67 84 56 72 34 12 14 56 77 89 55 66 78 90 34 23 24 55 67 90 1 3 56 55 44 43 3 88 65 66 2 69 45 89 83 35 3 63 22 69 31 18 77 53 74";
}

## estratti cagliari
$bari1=$ARGV[0];
$bari2=$ARGV[1];
$bari3=$ARGV[2];
$bari4=$ARGV[3];
$bari5=$ARGV[4];

## estratti bari
$cagliari1=$ARGV[5];
$cagliari2=$ARGV[6];
$cagliari3=$ARGV[7];
$cagliari4=$ARGV[8];
$cagliari5=$ARGV[9];

## estratti firenze 
$firenze1=$ARGV[10];
$firenze2=$ARGV[11];
$firenze3=$ARGV[12];
$firenze4=$ARGV[13];
$firenze5=$ARGV[14];

## estratti genova
$genova1=$ARGV[15];
$genova2=$ARGV[16];
$genova3=$ARGV[17];
$genova4=$ARGV[18];
$genova5=$ARGV[19];

## estratti milano
$milano1=$ARGV[20];
$milano2=$ARGV[21];
$milano3=$ARGV[22];
$milano4=$ARGV[23];
$milano5=$ARGV[24];

## estratti napoli
$napoli1=$ARGV[25];
$napoli2=$ARGV[26];
$napoli3=$ARGV[27];
$napoli4=$ARGV[28];
$napoli5=$ARGV[29];

## estratti palermo
$palermo1=$ARGV[30];
$palermo2=$ARGV[31];
$palermo3=$ARGV[32];
$palermo4=$ARGV[33];
$palermo5=$ARGV[34];

## estratti roma
$roma1=$ARGV[35];
$roma2=$ARGV[36];
$roma3=$ARGV[37];
$roma4=$ARGV[38];
$roma5=$ARGV[39];

## estratti torino
$torino1=$ARGV[40];
$torino2=$ARGV[41];
$torino3=$ARGV[42];
$torino4=$ARGV[43];
$torino5=$ARGV[44];

## estratti venezia
$venezia1=$ARGV[45];
$venezia2=$ARGV[46];
$venezia3=$ARGV[47];
$venezia4=$ARGV[48];
$venezia5=$ARGV[49];

## pulizia schermo
system("cls");

print "Cercando tutti i possibili metodi funzionanti per la ricerca dei numeri...\n";
print "Metodi spie..\n";
print "\n +Metodo della spia novanta..\n";
&novanta;

## metodo della spia 90
sub novanta{
for($i=1;$i<5;$i++){
$c="cagliari".$i;
$b="bari".$i;
$f="firenze".$i;
$g="genova".$i;
$m="milano".$i;
$n="napoli".$i;
$p="palermo".$i;
$r="roma".$i;
$t="torino".$i;
$v="venezia".$i;
sleep(3);
if($$c == 90 || $$b == 90 || $$f == 90 | $$g == 90 || $$m == 90 || $$n == 90 || $$p == 90 || $$r == 90 || $$t == 90 || $$v == 90){
&novanta_fasedue;
}else{
print "-Metodo del novanta negativo\n";
}
}
}

sub novanta_fasedue{
print "++Metodo Novanta positivo\n";
open(RESULT,">>results.txt");
print RESULT "Metodo 90:\n";
print RESULT "Giocare queste 5 terzine x 13 colpi sulla ruota di bari x AMBO\n";
print RESULT "22-85-87  40-60-78  33-34-35  46-67-78  5-48-62\n\n\n";
close(RESULT);
}
print "\n\n +Medoto della spia ottantuno..\n";

## metodo della spia 81
&ottantuno;
sub ottantuno{
sleep(3);
if($cagliari1 == 81 || $cagliari2 == 81 || $cagliari3 == 81 || $cagliari4 == 81 || $cagliari5 == 81 || $torino1 == 81 || $torino2 == 81 || $torino3 == 81 || $torino4 == 81 || $torino5 == 81){
&ottantuno_due;
}else{print "- Metodo spia 81 negativo..\n";
}
}

sub ottantuno_due{
print "++Metodo spia ottantuno positivo\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 81:\n";
print RESULT "Giocare 1Ambata SU 2 RUOTE 28 A GE-PA\n";
print RESULT "2Ambi Secchi SU 2 RUOTE 28-47 28-2 A GE-PA\n";
print RESULT "4 Terni Secchi SU 2 RUOTE 28-47-20 28-47-35 A GE-PA\n";
print RESULT "28-47-35 28-47-20 A GE-PA \n";
print RESULT "IL TUTTO VA SEGUITO X OTTO COLPI!(possibili doppie vincite)\n\n\n";
close(RESULT);
}


print "\n\n + Metodo spia quarantatre.. \n";

## Metodo spia 43
&quarantatre;
sub quarantatre{
sleep(2);
if($bari1 == 43 || $bari2 == 43 || $bari3 == 43 || $bari4 == 43 || $bari5 == 43){
&quarantatre_due;}else{
print "-Metodo spia 43 Negativo..\n";
}
}

sub quarantatre_due{
print "++Metodo spia quarantatre positivo\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 43:\n";
print RESULT "Giocare:\n";
print RESULT "Ambate 8 e 90 a Bari\n";
print RESULT "PER max 9 colpi\n\n\n";
close(RESULT);
}

print "\n ++Metodo spia 64..\n";

## Metodo spia 64
&sessantaquattro;
sub sessantaquattro{
sleep(2);
if($genova1 == 64 || $genova2 == 64 || $genova3 == 64 || $genova4 == 64 || $genova5== 64){
&sessantaquattro_due;
}else{
print "- Metodo spia sessantaquattro negativo\n";
}
}

sub sessantaquattro_due{
print "++Metodo spia sessantaquattro positivo\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 64:\n";
print RESULT "Giocare:\n";
print RESULT "Ambata 13 - 61 sulla ruota di Napoli\n";
print RESULT "x MAX 7 COLPI\n\n\n";
close(RESULT);
}

print "\n Metodo spia 90 prima posizione..\n";
## Metodo spia 90 prima posizione
&novantaprim;
sub novantaprim{
sleep(1);
if($cagliari1 == 90 || $bari1 == 90 || $firenze1 == 90 || $genova1 == 90 || $torino1 == 90 || $roma1 == 90 || $milano1 == 90 || $venezia1 == 90 || $napoli1 == 90 || $palermo1 == 90){
&novantaprim_due;
}else{print "-Metodo spia 90 prima negativo..\n";}
}

sub novantaprim_due{
print "++Metodo spia novanta prima positivo\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 90 prima:\n";
print RESULT "Giocare:\n";
print RESULT "20.35.19.15.84.01.07.02.03.45 .....ad AMBO e sorti superiori 
20.89.12.18.19.01.02.74.03.04 .....ad AMBO e sorti superiori 
20.01.06.25.44.90.02.03.04.05 .....ad AMBO e sorti superiori 
20.43.10.54.74.90.01.02.03.04 .....ad AMBO e sorti superiori 
63.54.74.05.47.01.02.03.55.04 .....ad AMBO e sorti superiori 
63.70.11.08.19.01.02.03.04.42 .....ad AMBO e sorti superiori 
72.56.62.02.67.01.03.04.46.05 .....ad AMBO e sorti superiori 
63.29.08.05.88.01.02.03.80.04 .....ad AMBO e sorti superiori 
71.78.20.54.08.50.01.02.03.04 .....ad AMBO e sorti superiori 
19.62.02.51.67.01.03.35.04.05 .....ad AMBO e sorti superiori 
19.24.26.30.64.01.02.69.03.04 .....ad AMBO e sorti superiori 
06.74.77.08.14.01.02.03.04.67 .....ad AMBO e sorti superiori 
88.48.31.10.78.01.02.03.04.05 .....ad AMBO e sorti superiori 
88.77.34.09.83.01.02.03.04.05 .....ad AMBO e sorti superiori 
88.29.34.37.86.01.02.03.04.05 .....ad AMBO e sorti superiori 
34.58.04.30.72.01.02.03.05.06 .....ad AMBO e sorti superiori 
63.54.01.21.22.02.03.04.05.06 .....ad AMBO e sorti superiori 
71.28.40.10.72.01.02.03.04.05 .....ad AMBO e sorti superiori 
71.27.33.25.26.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.79.01.21.66.02.03.04.05.06 .....ad AMBO e sorti superiori 
23.06.74.08.70.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.79.02.11.26.01.03.04.05.06 .....ad AMBO e sorti superiori 
23.06.74.47.84.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.10.31.25.80.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.40.17.28.69.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.70.48.27.67.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.79.15.62.73.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.29.66.12.19.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.79.22.51.67.01.02.03.04.05 .....ad AMBO e sorti superiori 
17.11.24.50.57.01.02.03.04.05 .....ad AMBO e sorti superiori 
17.59.01.45.90.02.03.04.05.06 .....ad AMBO e sorti superiori 
19.62.09.21.23.01.02.03.04.05 .....ad AMBO e sorti superiori 
19.26.43.15.37.01.02.03.04.05 .....ad AMBO e sorti superiori 
19.62.78.09.44.01.02.03.04.05 .....ad AMBO e sorti superiori 
19.07.03.30.64.01.02.04.05.06 .....ad AMBO e sorti superiori 
70.14.03.65.87.01.02.04.05.06 .....ad AMBO e sorti superiori 
70.33.11.10.37.01.02.03.04.05 .....ad AMBO e sorti superiori 
23.10.08.18.36.01.02.03.04.05 .....ad AMBO e sorti superiori 
19.07.18.21.25.01.02.03.04.05 .....ad AMBO e sorti superiori 
06.15.07.10.20.01.02.03.04.05 .....ad AMBO e sorti superiori 
06.15.07.45.50.01.02.03.04.05 .....ad AMBO e sorti superiori 
06.40.56.08.44.01.02.03.04.05 .....ad AMBO e sorti superiori 
06.67.03.85.89.01.02.04.05.07 .....ad AMBO e sorti superiori 
06.19.09.75.77.01.02.03.04.05 .....ad AMBO e sorti superiori 
04.78.05.48.60.01.02.03.06.07 .....ad AMBO e sorti superiori 
04.44.21.78.81.01.02.03.05.06 .....ad AMBO e sorti superiori 
04.58.12.49.80.01.02.03.05.06 .....ad AMBO e sorti superiori 
01.35.14.15.72.02.03.04.05.06 .....ad AMBO e sorti superiori 
01.06.38.52.73.02.03.04.05.07 .....ad AMBO e sorti superiori 
01.18.35.64.77.02.03.04.05.06 .....ad AMBO e sorti superiori\n";
print RESULT "MAX 3 COLPI\n\n\n";
close(RESULT);
}

print "\n +Metodo spia 22..\n";
## Metodo spia 22 venezia
&ventidue;
sub ventidue{
sleep(1);
if($venezia1 == 22 || $venezia2 == 22 || $venezia3 == 22 || $venezia4 == 22 || $venezia5 == 22){
&ventidue_due;}else{print "-Metodo spia 22 negativo..\n";}
}

sub ventidue_due{
print "++Metodo spia 22 Positivo..\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 22:\n";
print RESULT "Giocare:\n";
print RESULT "Terzine: 3-7-35  8-19-67  9-72-79  14-30-77  12-22-38  SU BARI\n";
print RESULT "MAX 5 COLPI\n\n\n";
close(RESULT);
}

## Spia 60 anni pari bari..
print "\n+ Metodo spia 60 prima pos bari..\n";
&sessanta;
sub sessanta{
sleep(1);
if($bari1 == 60){
&sessanta_due;}else{print "-Metodo spia 60 prima pos bari Negativo..\n";}
}

sub sessanta_due{
print "++Metodo spia 60 prima pos bari Positivo..\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 60:\n";
print RESULT "Giocare:\n";
print RESULT "42.41.62 34.19.28 53.15.06 27.03.5538.50.07 73.02.11 13.17.42 ..........................ad AMBO e sorti superiori\n";
print RESULT "MAX 1 COLPO \n\n\n";
close(RESULT);
}

## Spia 11 bari..
print "\n+ Metodo spia 11 bari..\n";
&undici;
sub undici{
sleep(1);
if($bari1 == 11 || $bari2 == 11 || $bari3 == 11 || $bari4 == 11 || $bari5 == 11){
&undici_due;}else{print "-Metodo spia 11 bari negativo..\n";}
}

sub undici_due{
print "++Metodo spia 11 bari Positivo..\n";
open(RESULT,">>results.txt");
$abari1=$bari5+1;
$abari2=$bari5+11;
$abari3=$bari5+22;
$abari4=$bari5+87;
if($abari1 > 90){
$abari1=$abari1-90;
$abari2=$abari2-90;
$abari3=$abari3-90;
$abari4=$abari4-90;
}

print RESULT "Metodo spia 11 bari:\n";
print RESULT "Giocare:\n";
print RESULT "$abari1 $abari2 $abari3 $abari4  tutte le ruote \n";
print RESULT "9 colpi max\n\n\n";
close(RESULT);
}

## Spia 70 genova
print "\n+ Metodo spia 70 genova..\n";
&settantage;
sub settantage{
sleep(1);
if($genova1 == 70 || $genova2 == 70 || $genova3 == 70 || $genova4 == 70 || $genova5 == 70){
&settantage_due;
}else{print "- Metodo spia 70 negativo..\n";}
}
sub settantage_due{
$ageno1=$genova4+21;
$ageno2=$genova4+29;
$ageno3=$genove4+69;
if($ageno1 > 90){
$ageno1=$ageno1-90;
$ageno2=$ageno2-90;
$ageno3=$ageno3-90;
}
open(RESULT,">>results.txt");
print RESULT "Metodo spia 70 genova:\n";
print RESULT "Giocare:\n";
print RESULT "$ageno1 $ageno2 $ageno3 x AMBO tutte le ruote\n";
print RESULT "MAX 14 COLPI \n\n\n";
close(RESULT);
}



## Spia 43 cagliari
print "\n+ Metodo spia 43 cagliari..\n";
&quarantatrecagliari;

sub quarantatrecagliari{
sleep(1);
if($cagliari1 == 43 || $cagliari2 == 43 || $cagliari3 == 43 || $cagliari4 == 43 || $cagliari5 == 43){
&quarantatreca_due;
}else{print "-Metodo spia 43 cagliari negativo..\n";}
}

sub quarantatreca_due{
print "++ Metodo spia 43 cagliari positivo..\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 43 cagliari:\n";
print RESULT "Giocara:\n";
print RESULT "Ambata 78 Ba-Ca\n";
print RESULT "max 12 colpi\n\n\n";
close(RESULT);
}

## Spia 53 Venezia
print "\n+ Metodo spia 53 venezia..\n";
&cinquantatreve;
sub cinquantatreve{
sleep(1);
if($venezia1 == 53 || $venezia2 == 53 || $venezia3 == 53 || $venezia4 == 53 || $venezia5 == 53){
&cinquantatreve_due;
}else{print "- Metodo spia 53 venezia negativo..\n";}
}

sub cinquantatreve_due{
print "++Metodo spia 53 venezia positivo..\n";
$veamb1=$venezia3+10;
$veamb2=$venezia3+82;
if($veamb1 > 90){
$veamb1=$veamb1-90;
}elsif($veamb2 > 90){
$veamb2=$veamb2-90;
}

open(RESULT,">>results.txt");
print RESULT "Metodo spia 53 venezia:\n";
print RESULT "Giocare:\n";
print RESULT "$veamb1 - $veamb2 come AMBATE\n";
print RESULT "MAX 9 COLPI \n\n\n";
close(RESULT);
}

## Spia 87 bari
print "\n+ Metodo spia 87 bari..\n";
&ottanta7bari;
sub ottanta7bari{
sleep(2);
if($bari1 == 87 || $bari2 == 87 || $bari3 == 87 || $bari4 == 87 || $bari5 == 87){
&ottanta7bari_due;
}else{print "- Metodo spia 87 bari negativo..\n";}
}


sub ottanta7bari_due{
print "++ Metodo spia 87 bari positivo..\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 87 bari:\n";
print RESULT "Giocare:\n";
print RESULT "Ambata 23 Ba-Ca\n";
print RESULT "MAX 7 COLPI\n\n\n";
close(RESULT);
}


## Spia 44 Bari
print "\n+ Metodo spia 44 bari..\n";
&ottanta4bari;
sub ottanta4bari{
sleep(2);
if($bari1 == 44 || $bari2 == 44 || $bari3 == 44 || $bari4 == 44 || $bari5 == 44){
&ottanta4bari_due;
}else{print "- Metodo spia 44 bari negativo..\n";}
}

sub ottanta4bari_due{
print "++ Metodo spia 44 bari Positivo..\n";
$ambacapo=$bari3+78;
if($ambacapo > 90){
$ambacapo=$ambacapo-90;
}
open(RESULT,">>results.txt");
print RESULT "Metodo spia 44 bari:\n";
print RESULT "Giocare:\n";
print RESULT "Ambata $ambacapo Ba-Ca\n";
print RESULT "MAX 5 COLPI\n\n\n";
close(RESULT);
}

## Spia 61 Palermo
print "\n+ Metodo spia 61 Palermo..\n";
&sessantunopa;
sub sessantunopa{
sleep(2);
if($palermo1 == 61 || $palermo2 == 61 || $palermo3 == 61 || $palermo4 == 61 || $palermo5 == 61){
&sessantunopa_due;
}else{print "- Metodo spia 61 palermo negativo..\n";}
}

sub sessantunopa_due{
print "++ Metodo spia 61 palermo positivo..\n";
open(RESULT,">>results.txt");
print RESULT "Metodo spia 61 palermo:\n";
print RESULT "Giocare:\n";
print RESULT "Ambata 11 Ca-Fi-Ro\n";
print RESULT "max 7 colpi \n\n\n";
close(RESULT);
}

print "\n\n +++++FINE+++++\n";
print "Risultati su: results.txt\n";

Eijin · 14 Gennaio 2009

L'ultima frontiera del cazzeggio xDDD, complimenti per la pazienza ^^

Lotto Tools

C1nC1n

Eijin

DISCUSSIONI SIMILI