MEGA RACCOLTA "SCRIPT"

**franca46** · 21-02-2012, 07:12

x baffo

ciao baffo non so se è il posto giusto , ma vorrei farti una domanda :
per caso hai fatto il listato del tuo metodino ?
Metodino

grazie

e buon martedi grasso

**Elbaz** · 23-02-2012, 17:37

codice:

Sub Main()
    ColoreTesto 1
    Scrivi "====================================== M E T O D O BY  ELbaz =======================================",1
    ColoreTesto 0
    Scrivi "=========================== Nove numeri per ambo e/o terno da giocare sulla ruota di Bari ============================",1
    ColoreTesto 1
    Scrivi "================================================= Si gioca per 14 colpi ===========================================",1
    ColoreTesto 0
    Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
    ColoreTesto 0
    Scrivi "================================ In progressione è meglio ====================================",1
    ColoreTesto 1
    Scrivi "==========================================    LISTATO BY  ELBAZ  ==================================================",1
    Scrivi
    ColoreTesto 0
    Dim rt(1),pt(3),n1(9)
    Dim nprogr(14)
    Dim Importi(2,14)
    pt(2) = 2
    pt(3) = 1
    clp = 14 'colpi di gioco
    rt(1) = 1 '1a ruota di gioco
    nprogryesno = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO"))
    If nprogryesno = 1 Then
        nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro "))
        nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 1 Euro "))
        nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 1 Euro "))
        nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 1 Euro "))
        nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 1 Euro "))
        nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 1 Euro "))
        nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 1 Euro "))
        nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 1 Euro "))
        nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 1 Euro "))
        nprogr(10) = CInt(InputBox("Inserisci la puntata per il 10°colpo * 1 = 1 Euro "))
        nprogr(11) = CInt(InputBox("Inserisci la puntata per il 11°colpo * 1 = 1 Euro "))
        nprogr(12) = CInt(InputBox("Inserisci la puntata per il 12°colpo * 1 = 1 Euro "))
        nprogr(13) = CInt(InputBox("Inserisci la puntata per il 13°colpo * 1 = 1 Euro "))
        nprogr(14) = CInt(InputBox("Inserisci la puntata per il 14°colpo * 1 = 1 Euro "))
        Importi(2,1) = nprogr(1)
        Importi(2,2) = nprogr(2)
        Importi(2,3) = nprogr(3)
        Importi(2,4) = nprogr(4)
        Importi(2,5) = nprogr(5)
        Importi(2,6) = nprogr(6)
        Importi(2,7) = nprogr(7)
        Importi(2,8) = nprogr(8)
        Importi(2,9) = nprogr(9)
        Importi(2,10) = nprogr(10)
        Importi(2,11) = nprogr(11)
        Importi(2,12) = nprogr(12)
        Importi(2,13) = nprogr(13)
        Importi(2,14) = nprogr(14)
    End If
    ini = 8321
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 1 Then '1 Estrazione del mese
            n1(01) = Fuori90(Estratto(es,1,1) + 20) ' 1 Bari
            n1(02) = Fuori90(Estratto(es,1,1) + 76) ' 1 Bari
            n1(03) = Fuori90(Estratto(es,1,1) + 50) ' 1 Bari
            n1(04) = Fuori90(Estratto(es,1,1) + 21) ' 1 Bari
            n1(05) = Fuori90(Estratto(es,1,1) + 77) ' 1 Bari
            n1(06) = Fuori90(Estratto(es,1,1) + 51) ' 1 Bari
            n1(07) = Fuori90(Estratto(es,1,1) + 19) ' 1 Bari
            n1(08) = Fuori90(Estratto(es,1,1) + 75) ' 1 Bari
            n1(09) = Fuori90(Estratto(es,1,1) + 49) ' 1 Bari
            co = co + 1
            Scrivi String(60,"=") & " Caso n° " & co,1
            ImpostaGiocata 1,n1,rt,pt,clp,2
            ImpostaProgressione 1,Importi
            Scrivi "puntate eseguite " & colpi
            Scrivi " - 01 colpo - " & Importi(2,1) & " euro  x ambo "
            Scrivi " - 02 colpo - " & Importi(2,2) & " euro  x ambo"
            Scrivi " - 03 colpo - " & Importi(2,3) & " euro  x ambo"
            Scrivi " - 04 colpo - " & Importi(2,4) & " euro  x ambo"
            Scrivi " - 05 colpo - " & Importi(2,5) & " euro  x ambo"
            Scrivi " - 06 colpo - " & Importi(2,6) & " euro  x ambo"
            Scrivi " - 07 colpo - " & Importi(2,7) & " euro  x ambo"
            Scrivi " - 08 colpo - " & Importi(2,8) & " euro  x ambo"
            Scrivi " - 09 colpo - " & Importi(2,9) & " euro  x ambo"
            Scrivi " - 10 colpo - " & Importi(2,10) & " euro  x ambo"
            Scrivi " - 11 colpo - " & Importi(2,11) & " euro  x ambo"
            Scrivi " - 12 colpo - " & Importi(2,12) & " euro  x ambo"
            Scrivi " - 13 colpo - " & Importi(2,13) & " euro  x ambo"
            Scrivi " - 14 colpo - " & Importi(2,14) & " euro  x ambo"
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    TestoInBandaPassante " *****   Sperate nel fattore Kappa   *****",1,4,0
    ScriviResoconto
End Sub

Tre numeri più i rispettivi laterali maggiori e minori.
Il metodo delle progressioni l'ho copiato da Baffoblu, non sono così bravo.
Grazie Baffo per il tuo lavoro.

**Baffoblu** · 23-02-2012, 19:00

Originariamente inviato da franca46

x baffo

ciao baffo non so se è il posto giusto , ma vorrei farti una domanda :
per caso hai fatto il listato del tuo metodino ?
Metodino

grazie

e buon martedi grasso

Scusa per il ritardo nella risposta, ma non è un tread
in cui entro di frequente ultimamente.
Se postavi direttamente nell'area download principale
ti avrei letto prima....

Ad ogni modo non vedo l'utilità del listato,
dato che il pronostico è sempre fisso,
e la condizione per porlo in gioco è di una
semplicità disarmante.
Non ci sono calcoli da fare, il tutto è basato
su fondamenti statistici nella norma.
Io sono 3 anni che la pongo in essere con successo,
ma dato che la statistica in generale, è nota che
con il tempo tende ad alterarsi leggermente.....
Solo la condizione è originale e particolare,
come quasi tutte le mie idee lottistiche.

ciao

**Baffoblu** · 23-02-2012, 19:05

Originariamente inviato da Elbaz

codice:

Sub Main()
    ColoreTesto 1
    Scrivi "====================================== M E T O D O BY  ELbaz =======================================",1
    ColoreTesto 0
    Scrivi "=========================== Nove numeri per ambo e/o terno da giocare sulla ruota di Bari ============================",1
    ColoreTesto 1
    Scrivi "================================================= Si gioca per 14 colpi ===========================================",1
    ColoreTesto 0
    Scrivi "===================================== Si è applicata la regola del fuori 90 ========================================",1
    ColoreTesto 0
    Scrivi "================================ In progressione è meglio ====================================",1
    ColoreTesto 1
    Scrivi "==========================================    LISTATO BY  ELBAZ  ==================================================",1
    Scrivi
    ColoreTesto 0
    Dim rt(1),pt(3),n1(9)
    Dim nprogr(14)
    Dim Importi(2,14)
    pt(2) = 2
    pt(3) = 1
    clp = 14 'colpi di gioco
    rt(1) = 1 '1a ruota di gioco
    nprogryesno = CInt(InputBox("vuoi inserire una progressione di puntate ? - 1 : SI * 2 : NO"))
    If nprogryesno = 1 Then
        nprogr(1) = CInt(InputBox("Inserisci la puntata per il 1°colpo * 1 = 1 Euro "))
        nprogr(2) = CInt(InputBox("Inserisci la puntata per il 2°colpo * 1 = 1 Euro "))
        nprogr(3) = CInt(InputBox("Inserisci la puntata per il 3°colpo * 1 = 1 Euro "))
        nprogr(4) = CInt(InputBox("Inserisci la puntata per il 4°colpo * 1 = 1 Euro "))
        nprogr(5) = CInt(InputBox("Inserisci la puntata per il 5°colpo * 1 = 1 Euro "))
        nprogr(6) = CInt(InputBox("Inserisci la puntata per il 6°colpo * 1 = 1 Euro "))
        nprogr(7) = CInt(InputBox("Inserisci la puntata per il 7°colpo * 1 = 1 Euro "))
        nprogr(8) = CInt(InputBox("Inserisci la puntata per il 8°colpo * 1 = 1 Euro "))
        nprogr(9) = CInt(InputBox("Inserisci la puntata per il 9°colpo * 1 = 1 Euro "))
        nprogr(10) = CInt(InputBox("Inserisci la puntata per il 10°colpo * 1 = 1 Euro "))
        nprogr(11) = CInt(InputBox("Inserisci la puntata per il 11°colpo * 1 = 1 Euro "))
        nprogr(12) = CInt(InputBox("Inserisci la puntata per il 12°colpo * 1 = 1 Euro "))
        nprogr(13) = CInt(InputBox("Inserisci la puntata per il 13°colpo * 1 = 1 Euro "))
        nprogr(14) = CInt(InputBox("Inserisci la puntata per il 14°colpo * 1 = 1 Euro "))
        Importi(2,1) = nprogr(1)
        Importi(2,2) = nprogr(2)
        Importi(2,3) = nprogr(3)
        Importi(2,4) = nprogr(4)
        Importi(2,5) = nprogr(5)
        Importi(2,6) = nprogr(6)
        Importi(2,7) = nprogr(7)
        Importi(2,8) = nprogr(8)
        Importi(2,9) = nprogr(9)
        Importi(2,10) = nprogr(10)
        Importi(2,11) = nprogr(11)
        Importi(2,12) = nprogr(12)
        Importi(2,13) = nprogr(13)
        Importi(2,14) = nprogr(14)
    End If
    ini = 8321
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 1 Then '1 Estrazione del mese
            n1(01) = Fuori90(Estratto(es,1,1) + 20) ' 1 Bari
            n1(02) = Fuori90(Estratto(es,1,1) + 76) ' 1 Bari
            n1(03) = Fuori90(Estratto(es,1,1) + 50) ' 1 Bari
            n1(04) = Fuori90(Estratto(es,1,1) + 21) ' 1 Bari
            n1(05) = Fuori90(Estratto(es,1,1) + 77) ' 1 Bari
            n1(06) = Fuori90(Estratto(es,1,1) + 51) ' 1 Bari
            n1(07) = Fuori90(Estratto(es,1,1) + 19) ' 1 Bari
            n1(08) = Fuori90(Estratto(es,1,1) + 75) ' 1 Bari
            n1(09) = Fuori90(Estratto(es,1,1) + 49) ' 1 Bari
            co = co + 1
            Scrivi String(60,"=") & " Caso n° " & co,1
            ImpostaGiocata 1,n1,rt,pt,clp,2
            If nprogryesno = 1 Then' Se aggiungi questa riga qui, non ti mostra a video la progressione puntate se non richiesta
            ImpostaProgressione 1,Importi
            Scrivi "puntate eseguite " & colpi
            Scrivi " - 01 colpo - " & Importi(2,1) & " euro  x ambo "
            Scrivi " - 02 colpo - " & Importi(2,2) & " euro  x ambo"
            Scrivi " - 03 colpo - " & Importi(2,3) & " euro  x ambo"
            Scrivi " - 04 colpo - " & Importi(2,4) & " euro  x ambo"
            Scrivi " - 05 colpo - " & Importi(2,5) & " euro  x ambo"
            Scrivi " - 06 colpo - " & Importi(2,6) & " euro  x ambo"
            Scrivi " - 07 colpo - " & Importi(2,7) & " euro  x ambo"
            Scrivi " - 08 colpo - " & Importi(2,8) & " euro  x ambo"
            Scrivi " - 09 colpo - " & Importi(2,9) & " euro  x ambo"
            Scrivi " - 10 colpo - " & Importi(2,10) & " euro  x ambo"
            Scrivi " - 11 colpo - " & Importi(2,11) & " euro  x ambo"
            Scrivi " - 12 colpo - " & Importi(2,12) & " euro  x ambo"
            Scrivi " - 13 colpo - " & Importi(2,13) & " euro  x ambo"
            Scrivi " - 14 colpo - " & Importi(2,14) & " euro  x ambo"
            End If' inoltre devi anche aggiungere questa riga
            Gioca es
        End If
    Next
    Scrivi
    Scrivi "Casi Rilevati " & CInt(co)
    TestoInBandaPassante " *****   Sperate nel fattore Kappa   *****",1,4,0
    ScriviResoconto
End Sub

Tre numeri più i rispettivi laterali maggiori e minori.
Il metodo delle progressioni l'ho copiato da Baffoblu, non sono così bravo.
Grazie Baffo per il tuo lavoro.

Ciao ti ho aggiunto due righe (quelle Remmate in verde).

**franca46** · 24-02-2012, 08:01

Originariamente inviato da Baffoblu

Scusa per il ritardo nella risposta, ma non è un tread
in cui entro di frequente ultimamente.
Se postavi direttamente nell'area download principale
ti avrei letto prima....

Ad ogni modo non vedo l'utilità del listato,
dato che il pronostico è sempre fisso,
e la condizione per porlo in gioco è di una
semplicità disarmante.
Non ci sono calcoli da fare, il tutto è basato
su fondamenti statistici nella norma.
Io sono 3 anni che la pongo in essere con successo,
ma dato che la statistica in generale, è nota che
con il tempo tende ad alterarsi leggermente.....
Solo la condizione è originale e particolare,
come quasi tutte le mie idee lottistiche.

ciao

ciao baffo

si lo so , hai perfettamente ragione ,

scusa per il posto sbagliato.

alla prossima , buona giornata

**Elbaz** · 24-02-2012, 09:35

Originariamente inviato da Baffoblu

Ciao ti ho aggiunto due righe (quelle Remmate in verde).

Grazie BaffoBlu ogni aggiunta migliora la conoscenza degli script.
Questo sistema di gioco non è stato calcolato (tipo spaziometria per intenderci) ma impostato "a mano" con riferimento ottobre 2011 e come si vede ha dato esiti
anche successivi pure con terno.
Speriamo in febbraio ora.
Certo un ambo in lunghetta di nove numeri paga 6,486 nette per euro giocato mentre il terno 50,3558 nette sempre per euro giocato, non sono proprio vincite clamorose.
nettamente più interessante la quaterna ma qui si fa un po' difficile.
Credo comunque che il discorso dei laterali maggiori e minori sia piuttosto interessante ( questo concetto l'ho appreso da IB63).

Si potrebbe tentare ed ora proverò a fare lo script a giocare tre terni con questo sistema:
prendiamo in considerazione febbraio

77.43.17 impostazione base
78.44.18 laterali maggiori
76.42.16 laterali minori

ora giocati così secondo me non vanno bene occorre mischiarli tipo:

77.43.78
17.44.76
18.42.16

**Baffoblu** · 24-02-2012, 09:59

Originariamente inviato da franca46

ciao baffo

si lo so , hai perfettamente ragione ,

scusa per il posto sbagliato.

alla prossima , buona giornata

Di niente, mi dispiace solo non averti letto prima, per i motivi detti sopra

ciao

**Baffoblu** · 24-02-2012, 10:04

Originariamente inviato da Elbaz

Grazie BaffoBlu ogni aggiunta migliora la conoscenza degli script.
Questo sistema di gioco non è stato calcolato (tipo spaziometria per intenderci) ma impostato "a mano" con riferimento ottobre 2011 e come si vede ha dato esiti
anche successivi pure con terno.
Speriamo in febbraio ora.
Certo un ambo in lunghetta di nove numeri paga 6,486 nette per euro giocato mentre il terno 50,3558 nette sempre per euro giocato, non sono proprio vincite clamorose.
nettamente più interessante la quaterna ma qui si fa un po' difficile.
Credo comunque che il discorso dei laterali maggiori e minori sia piuttosto interessante ( questo concetto l'ho appreso da IB63).

Si potrebbe tentare ed ora proverò a fare lo script a giocare tre terni con questo sistema:
prendiamo in considerazione febbraio

77.43.17 impostazione base
78.44.18 laterali maggiori
76.42.16 laterali minori

ora giocati così secondo me non vanno bene occorre mischiarli tipo:

77.43.78
17.44.76
18.42.16

Aldilà di tutto, mi sento in dovere di dirti che il concetto dei "Laterali",

è frutto del sacco del Prof. Pazzaglia.

Concetto espresso già molti anni fa.

Ci tenevo a dare a Cesare quel che è di Cesare.....

**Elbaz** · 24-02-2012, 10:53

Ciao
Il discorso dei terni non funziona bene:
gli script vengono bene ma è il concetto base che non da buoni risultati.

Ti ringrazio per la precisazione in effetti mi sono espresso male, intendevo dire che qui sul forum io l'ho letto su un post di IB63.

**Blackmore** · 09-04-2012, 18:51

Ambi spia su Bari...

codice:

' Se usate L8 o lottodesk, mettere l'Apice (') prima di...Testoinbandapassante
Sub Main()
	TestoInBandaPassante "L'AMBO SPIA METTE IN GIOCO 1 AMBATA E UN AMBO SECCO",1,5,1
	TestoInBandaPassante "°°°°°°°°°° METODO E LISTATO BY BLACKMORE °°°°°°°°°°",1,5,1
	Scrivi
	Dim ruota(10)
	Dim ruote(1)
	Dim amb(2)
	Dim ambata(1)
	Dim ambo(2)
	Dim posta(1)
	Dim poste(2)
	posta(1) = 1
	poste(2) = 1
	ruo = CInt(InputBox("RUOTA DI RILEVAMENTO?",,1))
	ruo1 = CInt(InputBox("RUOTA DI GIOCO?",,1))
	ee = CInt(InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE?",,1200))
	k = CInt(InputBox("INSERISCI I COLPI DI GIOCO",,8))
	co = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - ee
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For p = 1 To 4
			For p1 = p + 1 To 5
				a = Estratto(es,ruo,p)
				b = Estratto(es,ruo,p1)
				ok = 0
				If a = 36 And b = 54 Or a = 54 And b = 36 Then
					amb(1) = Fuori90(Decina(Estratto(es,NZ_,2)) + Cadenza(Estratto(es,NZ_,2)) + Estratto(es,BA_,5) + 88)
					amb(2) = Fuori90(Decina(Estratto(es,VE_,3)) + Cadenza(Estratto(es,VE_,3)) + Estratto(es,MI_,1) + 04)
					ok = 1
				End If
				If a = 01 And b = 02 Or a = 02 And b = 01 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,BA_,1)) + Estratto(es,VE_,2) + 03)
					amb(2) = Fuori90(Vert(Estratto(es,FI_,2)) + Estratto(es,BA_,1) + 02)
					ok = 1
				End If
				If a = 01 And b = 15 Or a = 15 And b = 01 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,PA_,1)) + Estratto(es,RO_,1) + 22)
					amb(2) = Fuori90(Vert(Estratto(es,FI_,1)) + Estratto(es,BA_,1) + 01)
					ok = 1
				End If
				If a = 01 And b = 60 Or a = 60 And b = 01 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,MI_,5)) + Estratto(es,RO_,3) + 13)
					amb(2) = Fuori90(Decina(Estratto(es,GE_,5)) + Estratto(es,PA_,3) + 74)
					ok = 1
				End If
				If a = 02 And b = 48 Or a = 48 And b = 02 Then
					amb(1) = Fuori90(Cadenza(Estratto(es,PA_,3)) + Estratto(es,GE_,2) + 53)
					amb(2) = Fuori90(Decina(Estratto(es,GE_,4)) + Cadenza(Estratto(es,GE_,4)) + Estratto(es,NA_,1) + 03)
					ok = 1
				End If
				If a = 03 And b = 14 Or a = 14 And b = 03 Then
					amb(1) = Fuori90(Vert(Estratto(es,VE_,2)) + Estratto(es,PA_,2) + 81)
					amb(2) = Fuori90(90 -(Estratto(es,FI_,3)) + Estratto(es,NZ_,4) + 01)
					ok = 1
				End If
				If a = 03 And b = 62 Or a = 62 And b = 03 Then
					amb(1) = Fuori90(Cadenza(Estratto(es,TO_,4)) + Estratto(es,TO_,3) + 42)
					amb(2) = Fuori90(Diametrale(Estratto(es,MI_,3)) + Estratto(es,VE_,2) + 03)
					ok = 1
				End If
				If a = 22 And b = 57 Or a = 57 And b = 22 Then
					amb(1) = Fuori90(Decina(Estratto(es,NA_,1)) + Cadenza(Estratto(es,NA_,1)) + Estratto(es,VE_,2) + 53)
					amb(2) = Fuori90(90 -(Estratto(es,MI_,3)) + Estratto(es,CA_,2) + 01)
					ok = 1
				End If
				If a = 17 And b = 52 Or a = 52 And b = 17 Then
					amb(1) = Fuori90(Estratto(es,CA_,2) + Estratto(es,FI_,1) + 16)
					amb(2) = Fuori90(90 -(Estratto(es,TO_,5)) + Estratto(es,BA_,1) + 46)
					ok = 1
				End If
				If a = 09 And b = 28 Or a = 28 And b = 09 Then
					amb(1) = Fuori90(90 -(Estratto(es,PA_,3)) + Estratto(es,NZ_,5) + 01)
					amb(2) = Fuori90(Cadenza(Estratto(es,VE_,2)) + Decina(Estratto(es,VE_,2)) + Estratto(es,GE_,3) + 66)
					ok = 1
				End If
				If a = 35 And b = 52 Or a = 52 And b = 35 Then
					amb(1) = Fuori90(Diametrale(Estratto(es,FI_,2)) + Estratto(es,BA_,3) + 15)
					amb(2) = Fuori90(Cadenza(Estratto(es,PA_,2)) + Estratto(es,MI_,5) + 02)
					ok = 1
				End If
				If a = 44 And b = 65 Or a = 65 And b = 44 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,NA_,4)) + Estratto(es,NA_,5) + 13)
					amb(2) = Fuori90(Cadenza(Estratto(es,RO_,2)) + Decina(Estratto(es,RO_,2)) + 01)
					ok = 1
				End If
				If a = 76 And b = 81 Or a = 81 And b = 76 Then
					amb(1) = Fuori90(Estratto(es,CA_,1) + Estratto(es,PA_,5) + 08)
					amb(2) = Fuori90(Cadenza(Estratto(es,TO_,3)) + Estratto(es,MI_,5) + 01)
					ok = 1
				End If
				If a = 30 And b = 34 Or a = 34 And b = 30 Then
					amb(1) = Fuori90(90 -(Estratto(es,RO_,3)) + Estratto(es,MI_,5) + 32)
					amb(2) = Fuori90(Estratto(es,BA_,2) + Estratto(es,GE_,2) + 02)
					ok = 1
				End If
				If a = 46 And b = 82 Or a = 82 And b = 46 Then
					amb(1) = Fuori90(Estratto(es,RO_,1) + Estratto(es,RO_,1) + 12)
					amb(2) = Fuori90(Estratto(es,VE_,4) + Estratto(es,RO_,3) + 27)
					ok = 1
				End If
				If a = 38 And b = 63 Or a = 63 And b = 38 Then
					amb(1) = Fuori90(Decina(Estratto(es,TO_,4)) + Cadenza(Estratto(es,TO_,4)) + Estratto(es,RO_,2) + 14)
					amb(2) = Fuori90(DiametraleD(Estratto(es,VE_,3)) + Estratto(es,RO_,4) + 04)
					ok = 1
				End If
				If a = 24 And b = 90 Or a = 90 And b = 24 Then
					amb(1) = Fuori90(Decina(Estratto(es,MI_,5)) + Cadenza(Estratto(es,MI_,5)) + Estratto(es,MI_,3) + 78)
					amb(2) = Fuori90(Vert(Estratto(es,TO_,2)) + Estratto(es,FI_,5) + 29)
					ok = 1
				End If
				If a = 47 And b = 72 Or a = 72 And b = 47 Then
					amb(1) = Fuori90(Decina(Estratto(es,FI_,3)) + Estratto(es,FI_,2) + 16)
					amb(2) = Fuori90(Cadenza(Estratto(es,BA_,4)) + Estratto(es,FI_,4) + 01)
					ok = 1
				End If
				If a = 18 And b = 90 Or a = 90 And b = 18 Then
					amb(1) = Fuori90(DiametraleD(Estratto(es,VE_,1)) + Estratto(es,NA_,3) + 18)
					amb(2) = Fuori90(Decina(Estratto(es,FI_,3)) + Estratto(es,NA_,4) + 27)
					ok = 1
				End If
				If a = 37 And b = 70 Or a = 70 And b = 37 Then
					amb(1) = Fuori90(90 -(Estratto(es,MI_,3)) + Estratto(es,RO_,1) + 53)
					amb(2) = Fuori90(Decina(Estratto(es,FI_,3)) + Estratto(es,PA_,1) + 04)
					ok = 1
				End If
				If a = 66 And b = 89 Or a = 89 And b = 66 Then
					amb(1) = Fuori90(Figura(Estratto(es,NA_,3)) + Estratto(es,TO_,5) + 88)
					amb(2) = Fuori90(90 -(Estratto(es,CA_,1)) + Estratto(es,NZ_,4) + 01)
					ok = 1
				End If
				If a = 23 And b = 90 Or a = 90 And b = 23 Then
					amb(1) = Fuori90(Cadenza(Estratto(es,RO_,3)) + Estratto(es,VE_,4) + 13)
					amb(2) = Fuori90(Estratto(es,CA_,5) + Estratto(es,GE_,3) + 01)
					ok = 1
				End If
				If a = 64 And b = 69 Or a = 69 And b = 64 Then
					amb(1) = Fuori90(Figura(Estratto(es,RO_,1)) + Estratto(es,VE_,5) + 12)
					amb(2) = Fuori90(Figura(Estratto(es,CA_,5)) + Estratto(es,CA_,1) + 22)
					ok = 1
				End If
				If a = 22 And b = 58 Or a = 58 And b = 22 Then
					amb(1) = Fuori90(90 -(Estratto(es,BA_,4)) + Estratto(es,VE_,4) + 08)
					amb(2) = Fuori90(Cadenza(Estratto(es,RO_,2)) + Estratto(es,FI_,4) + 01)
					ok = 1
				End If
				If a = 51 And b = 71 Or a = 71 And b = 51 Then
					amb(1) = Fuori90(Estratto(es,NA_,4) + Estratto(es,RO_,4) + 27)
					amb(2) = Fuori90(Diametrale(Estratto(es,BA_,3)) + Estratto(es,FI_,5) + 14)
					ok = 1
				End If
				If a = 33 And b = 43 Or a = 43 And b = 33 Then
					amb(1) = Fuori90(Figura(Estratto(es,NA_,1)) + Estratto(es,TO_,1) + 57)
					amb(2) = Fuori90(Vert(Estratto(es,NA_,2)) + Estratto(es,GE_,3) + 02)
					ok = 1
				End If
				If ok = 1 Then
					co = co + 1
					ColoreTesto 0
					Scrivi String(106,"§") & " Caso n°" & co,1
					ColoreTesto 1
					Scrivi String(20," ") & " " & DataEstrazione(es) & "  <>  " & SiglaRuota(ruo) & "  <>  " & StringaEstratti(es,ruo) & "  <>  AMBO SPIA  <>  " & a & " - " & b,1
					ColoreTesto 0
					Scrivi String(106,"§"),1
					ruota(1) = ruo1
					cg = 0
					ambata(1) = amb(1)
					cg = cg + 1
					ImpostaGiocata cg,ambata,ruota,posta,k
					ambo(1) = amb(1)
					ambo(2) = amb(2)
					cg = cg + 1
					ImpostaGiocata cg,ambo,ruota,poste,k,2
					Gioca es
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

Discussione: MEGA RACCOLTA "SCRIPT"

LinkBack

Strumenti discussione

Ricerca discussione

Visualizza

Lunghetta su Bari per ambo e terno in 14 colpi.

Permessi di invio