23

[Alien.]

Ciao possibile un semplice script per provare se funziona ancora , grazie

 

[Sakti]

Ma il 34 per l'abbinamento da dove viene?.
33.60.22.30.86 su BA CA per Ambo,Terno
Questi sono i numeri calcolati.. in data 13-11-2007.
Sai che i miei script fanno paura,(in senso negativo), ma è in linea con la Tua richiesta..

Anticipazione (Spoiler): Script

Scrivi " SE ESCE SPIA 23 su Bari",1
Scrivi String(70,"-"),1
Sub Main()
Dim poste(5),ruota(12),n(2),n1(8),posta(1)
Dim am(10),amb(10),cinq(10),abb(8)
posta(1) = 1
poste(2) = 0.50
poste(3) = 0.50
co = 0
k = 6 '.......................COLPI DI GIOCO
ini = EstrazioneFin - 1280
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio es
ruota(1) = 1 '..............RUOTA DI RICERCA
For p = 1 To 5 '..........POSIZIONE ESTRATTO SPIA
a = Estratto(es,1,p)
If a = 23 Then '.......NUMERO SPIA
co = co + 1
'---
abb(1) = Fuori90(23 *(Estratto(es,9,1)))
abb(2) = Fuori90((Estratto(es,2,4)) *(Estratto(es,12,2)))
abb(3) = Fuori90((Estratto(es,8,1)) -(Estratto(es,4,5)))
abb(4) = 30
abb(5) = 86
abb(6) = (Estratto(es,5,3))
'---
conto = conto + 1
Scrivi : ColoreTesto 1:Scrivi String(100,"=")
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1) & " < " & NomeRuota(r) & " " & StringaEstratti(es,r),1
'---
n(1) = abb(1)
'---
n1(1) = abb(1)
n1(2) = abb(2)
n1(3) = abb(3)
n1(4) = abb(4)
n1(5) = abb(5)
'---
ruota(1) = 1
ruota(2) = 2
'---
ImpostaGiocata 1,n,ruota,posta,k
ImpostaGiocata 2,n1,ruota,poste,k
Gioca es,1
End If
Next
Next
ScriviResoconto
End Sub

 

[Alien.]

Ciao toon ,grazie è stato postato qua su lotto ced è del 2007 dice che ancora funziona volevo verificare.