A volte basta uno script facile per tutti.

[apepazza]

Buongiorno a tutti , volevo sapere se c'è qualche previsione data da una spia attiva dal programma :Non mollate mai il Futuro.
Grazie.

 

[KEN]

Buongiorno a tutti , volevo sapere se c'è qualche previsione data da una spia attiva dal programma :Non mollate mai il Futuro.
Grazie.

Aguzza la vista post 1.804

 

[Codicebinario]

Buongiorno ragazzacci,Batters,Toon e a tutti gli "abitanti del 3d"...
Ieri non sono riuscito ad aggiornare...stav m'briac...(ohhh ma quanto "pesa" l'Aglianico del Vulture"...13,5 gradi...)

"by the way" ecco che e' successo ieri

post N° 1764 NZ AMBO in riunita e ambata
post N° 1767 CA 54 colpita e affondata
post N° 1806 MI 81.25 Ambo in quartina e lunghetta a TT (ma questa non fa' testo perche avevo detto di osservare e non giocare ....solo studio....)

 

[Bepy78]

Capita anche a noi.Complimenti

Grazie mille!
In effetti la Lottomatica che è disgraziata.
Comunque grazie ancora per l'impegno e buona giornata a tutti
A presto
Bepy

 

[Missione Impossibile.]

Non mollate mai il Futuro.
Vedi l'allegato 2283666

Ora per farvi capire la differenza delle due immagini dopo le spie 27-28 uscite il 9/5/2024
dopo la spia 28 il numero 88 ha 7 presenze ed il 47 solo 4 presenze l 88 esce al 1°colpo e il 47 al 2° colpo con l 88 in ambo non ci credevo ma sono usciti insieme peccato.

Ora per farvi capire dopo la spia 27 il 47 aveva 9 presenze uscito con l 88 ieri.Se si osservano queste piccolezze con presenze alte si puo' vincere anche l'ambo,basti osservare. Con questo vi lascio con le coppie al 100 quelle con ritardo 7/10.
Saluti e buona domenica a tutti.

 

[Codicebinario]

Oggi e' la festa della mamma...sono andato a trovarla...al suo ultimo domicilio...e confesso a Voi tutti...una lacrima è scappata...a LEI vorrei dedicare uno scritto di Erri De luca...partenopeo come me:

ERRI DE LUCA​

A mia madre​

In te sono stato albume, uovo, pesce,
le ere sconfinate della terra
ho attraversato nella tua placenta,
fuori di te sono contato a giorni.

In te sono passato da cellula a scheletro
un milione di volte mi sono ingrandito,
fuori di te l’accrescimento è stato immensamente meno.

Sono sgusciato dalla tua pienezza
senza lasciarti vuota perché il vuoto
l’ho portato con me.

Sono venuto nudo, mi hai coperto
così ho imparato nudità e pudore
il latte e la sua assenza.

Mi hai messo in bocca tutte le parole
a cucchiaini, tranne una: mamma.
Quella l’inventa il figlio sbattendo le due labbra
quella l’insegna il figlio.

Da te ho preso le voci del mio luogo,
le canzoni, le ingiurie, gli scongiuri,
da te ho ascoltato il primo libro
dietro la febbre della scarlattina.

Ti ho dato aiuto a vomitare, a friggere le pizze,
a scrivere una lettera, ad accendere un fuoco,
a finire parole crociate, ti ho versato del vino
e ho macchiato la tavola,
non ti ho messo un nipote sulle gambe
non ti ho fatto bussare a una prigione
non ancora,
da te ho imparato il lutto e l’ora di finirlo,
a tuo padre somiglio, a tuo fratello,
non sono stato figlio.
Da te ho preso gli occhi chiari
Non il loro peso
A te ho nascosto tutto.

Ho promesso di bruciare il tuo corpo
di non darlo alla terra. Ti darò al fuoco
fratello del vulcano che ci orientava il sonno.

Ti spargerò nell’aria dopo l’acquazzone
all’ora dell’arcobaleno
che ti faceva spalancare gli occhi.

Ciao Mà.

Scusate tutti per lo sfogo.

 

[Codicebinario]

La parola “madre” è nascosta nel cuore
e sale sulle labbra
nei momenti di dolore e di felicità,
come il profumo sale dal cuore della rosa
e si mescola
all’aria chiara e all’aria nuvolosa.

Chudo qui "l'escursus" che nulla a che vedere con numeri e numerelli.Scusatemi tutti.

 

[toon]

Mission, Codice e Tutto il 3D Buona settimana, Mission, sono rientrato molto tardi, lo script te lo faccio al più presto, ma con i nmeri che hai messo, con ricerca per ogni estrazione ecc..

 

[Missione Impossibile.]

Mission, Codice e Tutto il 3D Buona settimana, Mission, sono rientrato molto tardi, lo script te lo faccio al più presto, ma con i nmeri che hai messo, con ricerca per ogni estrazione ecc..

Mensile oppure a scelta grazie

 

[Missione Impossibile.]

L'ambata SECCA 55 su 3 ruote e posizioni o semplice. BA'NA'VE.

BARI: 55 Pos. 2^ 3^
Napoli: 55 pos. 2^ 3^ 4^
Venezia: 55 pos.2^ 3^ 5^
Scegliete la vostra ruota preferita e le vostre convergenze solo 7 colpi! Moderazione sempre.

 

[Serpico 90]

Un regalo a Tutti gli amanti dell'Ambata...
Buona Domenica a Codice , Missione e Tutti quelli che ci seguono..

Anticipazione (Spoiler)

Option Explicit
Sub Main
'Ambata su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a
Dim Nu(20),Num(10),poste(5),R1,R3
poste(1) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
EliminaRipetuti Num
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),1
'--
ImpostaGiocata 1,Num,R,poste,18
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub

Buon giorno Toon e a tutti quelli che leggono....
Chiedo una cortesia se ti viene possibile
su questo script si potrebbe aggiungere con Impt Box l'inserimento di due numeri a mio piacimento di volta in volta?
In modo che vado a formare una quartina per ambo da giocare sempre sulle ruote indicate del tuo OTTIMO Script.
Questa mia richiesta mi allieverebbe tanto nella ricerca poichè la mia vista non mi aiuta più come quando ero giovane.
Scusa se ti ho scritto qui ma non sono tanto pratico.
In attesa di una gradita risposta positiva VI invio cordiali saluti
Serpico

 

[[Andrei]]

Oggi e' la festa della mamma...sono andato a trovarla...al suo ultimo domicilio...e confesso a Voi tutti...una lacrima è scappata...a LEI vorrei dedicare uno scritto di Erri De luca...partenopeo come me:

ERRI DE LUCA​

A mia madre​

In te sono stato albume, uovo, pesce,
le ere sconfinate della terra
ho attraversato nella tua placenta,
fuori di te sono contato a giorni.

In te sono passato da cellula a scheletro
un milione di volte mi sono ingrandito,
fuori di te l’accrescimento è stato immensamente meno.

Sono sgusciato dalla tua pienezza
senza lasciarti vuota perché il vuoto
l’ho portato con me.

Sono venuto nudo, mi hai coperto
così ho imparato nudità e pudore
il latte e la sua assenza.

Mi hai messo in bocca tutte le parole
a cucchiaini, tranne una: mamma.
Quella l’inventa il figlio sbattendo le due labbra
quella l’insegna il figlio.

Da te ho preso le voci del mio luogo,
le canzoni, le ingiurie, gli scongiuri,
da te ho ascoltato il primo libro
dietro la febbre della scarlattina.

Ti ho dato aiuto a vomitare, a friggere le pizze,
a scrivere una lettera, ad accendere un fuoco,
a finire parole crociate, ti ho versato del vino
e ho macchiato la tavola,
non ti ho messo un nipote sulle gambe
non ti ho fatto bussare a una prigione
non ancora,
da te ho imparato il lutto e l’ora di finirlo,
a tuo padre somiglio, a tuo fratello,
non sono stato figlio.
Da te ho preso gli occhi chiari
Non il loro peso
A te ho nascosto tutto.

Ho promesso di bruciare il tuo corpo
di non darlo alla terra. Ti darò al fuoco
fratello del vulcano che ci orientava il sonno.

Ti spargerò nell’aria dopo l’acquazzone
all’ora dell’arcobaleno
che ti faceva spalancare gli occhi.

Ciao Mà.

Scusate tutti per lo sfogo.

non credo c'è bisogno di scusarsi , sono io a scusarmi con te, ignoriamo sempre la bellezza delle persone nel loro stato d'animo, diviso da un monitor ed una tastiera , sembra quasi non aver mai il tempo da dedicare alla profondità di esse e a quanto possono in realtà regalarci arricchirci è necessario tornare indietro; a quei semplici gesti di un tempo , il semplice ascolto ,una parola di un amico sincero ,un abbraccio la condivisione di un dolore per alleggerire il peso ,ignoravo la bellezza di questa poesia del grande Scrittore ed Uomo Erri de luca,
meravigliosa meravigliosa ..c'è un detto" puoi avere tutta la cultura e la conoscenza del mondo ,ma se ti mancano quelle due /tre cose che ti insegna tua Madre fin da piccolo non vi è modo alcuno di essere una persona migliore verso il tuo prossimo".
anch'io saluto la mia cara Mamma e la tua cara Mamma.

 

[Codicebinario]

Grazie Andrei per le tue bellissime parole.Semplicemente Grazie

 

[Codicebinario]

X Batters e Toon e per tutti "gli a bitanti del 3d",Fra le migliaia di script sparsi fra chiavette e pc ho scovato queso ad opera di BEPPIGNELLO ,un grande appassionato di statistica e del gioco del lotto(che saluto con immensa stima e doveroso rispetto ,casomai dovesse passare di qua). Batters prova un po'......

 

[toon]

Perdonami Serpico 90 ma se ti aggiungo l'imput di due numeri esce una terzina non una quartina, se vuoi un'altro numero fammi sapere... Se va bene la terzina, dammene conferma..

 

[Serpico 90]

Perdonami Serpico 90 ma se ti aggiungo l'imput di due numeri esce una terzina non una quartina, se vuoi un'altro numero fammi sapere... Se va bene la terzina, dammene conferma..

Intanto Grazie per aver risposto.
molto probabilmente mi sono espresso male.
Io desidero abbinare ai tuoi numeri che escono dalla previsione DUE MIEI NUMERI CHE DIVENTATO CAPI GIOCO e quindi formo una quartina. Due numeri dello script e due numeri da mia ricerca che saranno fissi .
Poi quando ci sarà una nuova previsione avrò i NUOVI TUOI DUE NUMERI CON I MIEI NUOVI NUMERI CHE SARANNO SEMPRE FISSI.
Io non sono pratico di script credo che occorre fare una modifica aggiungendo la richiesta di due numeri che non vengono fuori dalla tua ricerca ma da mie previsioni per quelle ruotei.
Mi permetto di fare un esempio
Ambata Settenaria
30.03.2024 Spia 39 Ambata 57
Estrazione generatrice del pronostico 10414 [ 52 - 30/03/2024]
G 0001 Numeri in gioco : 39 su BA CA NA per Estratto
G:0002 Numeri gioco 39.57.3375

V N. [39 ] [CA] [.. 39 .. .. ..] C. 1 Estratto 10415 [ 53 - 02/04/2024]
V N. [39 ] [CA] [.. .. .. 39 ..] C. 5 Estratto 10419 [ 57 - 09/04/2024]
V N. [39 ] [CA] [.. .. .. 39 ..] C. 9 Estratto 10423 [ 61 - 16/04/2024]
V N. [39 ] [BA] [.. 39 .. .. ..] C. 10 Estratto 10424 [ 62 - 18/04/2024]
V N. [39 ] [BA] [39 .. .. .. ..] C. 11 Estratto 10425 [ 63 - 19/04/2024]
Interrotta per raggiunta durata
Ai tuoi due numeri 39-57.....
aggiungo 33 75.......
la quartina in gioco diventa 39.57.33.75 per BA:CA:NA.
come si puo fare per aggiungere i mie due numeri e poi vedere l'esito ?.


---------------------------------------------------------------------------------------------------------
30.04.2024 Spia 8 Ambata 14
Estrazione generatrice del pronostico 10431 [ 69 - 30/04/2024]
G 0001 Numeri in gioco : 08 su BA CA NA per Estratto
G.0002 Nuneri in gioco 8.14.9.54
aggiungo 9.54
la quartina in gioco diventa 8.14.9.54
V N. [08 ] [BA] [.. .. 08 .. ..] C. 2 Estratto 10433 [ 71 - 03/05/2024]

In corso per altre 11 estrazioni

 

[Baciccia4251]

X Batters e Toon e per tutti "gli a bitanti del 3d",Fra le migliaia di script sparsi fra chiavette e pc ho scovato queso ad opera di BEPPIGNELLO ,un grande appassionato di statistica e del gioco del lotto(che saluto con immensa stima e doveroso rispetto ,casomai dovesse passare di qua). Batters prova un po'......

Scusi se la disturbo. Ho provato lo script ma mi da errore di Overfloe.
Linea 97 col. 8
Errore di runtime di vbscript

 

[[Andrei]]

Scusi se la disturbo. Ho provato lo script ma mi da errore di Overfloe.
Linea 97 col. 8
Errore di runtime di vbscript

testato e funziona bene, devi copiarlo per bene ,apri il file di testo e fai ctrl A al fine di selezionarlo in ogni sua parte

 

[[Andrei]]

X Batters e Toon e per tutti "gli a bitanti del 3d",Fra le migliaia di script sparsi fra chiavette e pc ho scovato queso ad opera di BEPPIGNELLO ,un grande appassionato di statistica e del gioco del lotto(che saluto con immensa stima e doveroso rispetto ,casomai dovesse passare di qua). Batters prova un po'......

ringrazio per questo splendido gioiello , sono script di alto Livello non tutti riescono a comprenderne l'utilizzo ,ne ho diversi anche io facendo fatica a comprenderli se fa piacere posso postare quello che ho ,ma non vorrei invadere un 3d deviando l'interesse principale .
se puo' essere di interesse li posto attendo vostre.
ps. qualcuno è pratico con python?

 

[toon]

Ti ho aggiunto il secondo numero, perchè dal listato usciva solo l'ambata, vedi se ti va bene...

Anticipazione (Spoiler)

Option Explicit
Sub Main
'Ambata su Settenarie Ultima del Mese 1° Estratto di Bari by Toon
Dim Ini,Fin,Es,R(5),K,R2,x,f,i,p1,a,Serpico90
Dim Nu(20),Num(10),poste(5),R1,R3,x1,x2
x1 = CInt(InputBox("Inserisci 1° Numero a Tua scelta",Serpico90,1))'
x2 = CInt(InputBox("Inserisci 2° Numero a Tua scelta",Serpico90,2))'
poste(1) = 1
R1 = 1
p1 = 1
R2 = 2
R3 = 6
'---
Ini = EstrazioneFin - 400
Fin = EstrazioneFin
Scrivi "Ambata Settenaria",1,,,1,3,,1
For Es = Ini To Fin
If IsUltimaDelMese(Es) Then
' If IndiceMensile(Es) = 1 Then
'-----------------------------------
a = Estratto(Es,R1,p1)
K = K + 1
Nu(1) = a
'---
If Nu(1) = 1 Then
Nu(2) = 13
End If : If Nu(1) = 2 Then
Nu(2) = 26
End If : If Nu(1) = 3 Then
Nu(2) = 39
End If : If Nu(1) = 4 Then
Nu(2) = 52
End If : If Nu(1) = 5 Then
Nu(2) = 65
End If : If Nu(1) = 6 Then
Nu(2) = 78
End If : If Nu(1) = 7 Then
Nu(2) = 01
End If : If Nu(1) = 8 Then
Nu(2) = 14
End If : If Nu(1) = 9 Then
Nu(2) = 27
End If : If Nu(1) = 10 Then
Nu(2) = 40
End If : If Nu(1) = 11 Then
Nu(2) = 53
End If : If Nu(1) = 12 Then
Nu(2) = 66
End If : If Nu(1) = 13 Then
Nu(2) = 79
End If : If Nu(1) = 14 Then
Nu(2) = 02
End If : If Nu(1) = 15 Then
Nu(2) = 15
End If : If Nu(1) = 16 Then
Nu(2) = 28
End If : If Nu(1) = 17 Then
Nu(2) = 41
End If : If Nu(1) = 18 Then
Nu(2) = 54
End If : If Nu(1) = 19 Then
Nu(2) = 67
End If : If Nu(1) = 20 Then
Nu(2) = 80
End If : If Nu(1) = 21 Then
Nu(2) = 03
End If : If Nu(1) = 22 Then
Nu(2) = 16
End If : If Nu(1) = 23 Then
Nu(2) = 29
End If : If Nu(1) = 24 Then
Nu(2) = 42
End If : If Nu(1) = 25 Then
Nu(2) = 55
End If : If Nu(1) = 26 Then
Nu(2) = 68
End If : If Nu(1) = 27 Then
Nu(2) = 81
End If : If Nu(1) = 28 Then
Nu(2) = 04
End If : If Nu(1) = 29 Then
Nu(2) = 17
End If : If Nu(1) = 30 Then
Nu(2) = 30
End If : If Nu(1) = 31 Then
Nu(2) = 43
End If : If Nu(1) = 32 Then
Nu(2) = 56
End If : If Nu(1) = 33 Then
Nu(2) = 69
End If : If Nu(1) = 34 Then
Nu(2) = 82
End If : If Nu(1) = 35 Then
Nu(2) = 05
End If : If Nu(1) = 36 Then
Nu(2) = 18
End If : If Nu(1) = 37 Then
Nu(2) = 31
End If : If Nu(1) = 38 Then
Nu(2) = 44
End If : If Nu(1) = 39 Then
Nu(2) = 57
End If : If Nu(1) = 40 Then
Nu(2) = 70
End If : If Nu(1) = 41 Then
Nu(2) = 83
End If : If Nu(1) = 42 Then
Nu(2) = 06
End If : If Nu(1) = 43 Then
Nu(2) = 19
End If : If Nu(1) = 44 Then
Nu(2) = 32
End If : If Nu(1) = 45 Then
Nu(2) = 45
End If : If Nu(1) = 46 Then
Nu(2) = 58
End If : If Nu(1) = 47 Then
Nu(2) = 71
End If : If Nu(1) = 48 Then
Nu(2) = 84
End If : If Nu(1) = 49 Then
Nu(2) = 07
End If : If Nu(1) = 50 Then
Nu(2) = 20
End If : If Nu(1) = 51 Then
Nu(2) = 33
End If : If Nu(1) = 52 Then
Nu(2) = 46
End If : If Nu(1) = 53 Then
Nu(2) = 59
End If : If Nu(1) = 54 Then
Nu(2) = 72
End If : If Nu(1) = 55 Then
Nu(2) = 85
End If : If Nu(1) = 56 Then
Nu(2) = 08
End If : If Nu(1) = 57 Then
Nu(2) = 21
End If : If Nu(1) = 58 Then
Nu(2) = 34
End If : If Nu(1) = 59 Then
Nu(2) = 47
End If : If Nu(1) = 60 Then
Nu(2) = 60
End If : If Nu(1) = 61 Then
Nu(2) = 73
End If : If Nu(1) = 62 Then
Nu(2) = 86
End If : If Nu(1) = 63 Then
Nu(2) = 09
End If : If Nu(1) = 64 Then
Nu(2) = 22
End If : If Nu(1) = 65 Then
Nu(2) = 35
End If : If Nu(1) = 66 Then
Nu(2) = 48
End If : If Nu(1) = 67 Then
Nu(2) = 61
End If : If Nu(1) = 68 Then
Nu(2) = 74
End If : If Nu(1) = 69 Then
Nu(2) = 87
End If : If Nu(1) = 70 Then
Nu(2) = 10
End If : If Nu(1) = 71 Then
Nu(2) = 23
End If : If Nu(1) = 72 Then
Nu(2) = 36
End If : If Nu(1) = 73 Then
Nu(2) = 49
End If : If Nu(1) = 74 Then
Nu(2) = 62
End If : If Nu(1) = 75 Then
Nu(2) = 75
End If : If Nu(1) = 76 Then
Nu(2) = 88
End If : If Nu(1) = 77 Then
Nu(2) = 11
End If : If Nu(1) = 78 Then
Nu(2) = 24
End If : If Nu(1) = 79 Then
Nu(2) = 37
End If : If Nu(1) = 80 Then
Nu(2) = 50
End If : If Nu(1) = 81 Then
Nu(2) = 63
End If : If Nu(1) = 82 Then
Nu(2) = 76
End If : If Nu(1) = 83 Then
Nu(2) = 89
End If : If Nu(1) = 84 Then
Nu(2) = 12
End If : If Nu(1) = 85 Then
Nu(2) = 25
End If : If Nu(1) = 86 Then
Nu(2) = 38
End If : If Nu(1) = 87 Then
Nu(2) = 51
End If : If Nu(1) = 88 Then
Nu(2) = 64
End If : If Nu(1) = 89 Then
Nu(2) = 77
End If : If Nu(1) = 90 Then
Nu(2) = 90
End If
'----
R(1) = R1
R(2) = R2
R(3) = R3
'---
Num(1) = Nu(1)
Num(2) = 90 - Num(1)
Num(3) = x1
Num(4) = x2
EliminaRipetuti Num
'---
Scrivi DataEstrazione(Es) & " Spia " & Nu(1) & " Ambata " & Nu(2),1
'--
ImpostaGiocata 1,Num,R,poste,18
Gioca Es,1
Scrivi String(105,"-") : ColoreTesto 1
K = 0
End If
Next
ColoreTesto(0)
ScriviResoconto
ColoreTesto(1)
End Sub