Script

[DjNomade]

 

[Alien.]

Me lo stavo a chiedere ma quanta pazienza ha ?

DA VENDERE 🤣

 

[DjNomade]

Solo questo.......

ColoreTesto 1
Scrivi String(37,32) & " 14° del mese ROMA by Salvo Badessa  ",1
Scrivi

ColoreTesto 0

Sub main()
Dim ruota(10),ruote(10),amb(4)
Dim numeri1(10),numeri3(10),numeri2(10),numeri5(10)
Dim postee(5),poste(5),posta(5)
postee(3)=1
postee(2)=1
posta(1)=1
poste(2)=1

cp=13'InputBox("Per quanti colpi vuoi giocare?",,7)
ruota(1)=8
ruote(1)=8
ruote(2)=11


ini=10376
fin=EstrazioneFin
For n=ini To fin
If Indicemensile(n)=14 Then
Messaggio DataEstrazione (n)


amb(1)=Abs(Estratto(n,4,1)-Estratto(n,7,4))

amb(2)=52

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 1
For y = x + 1 To 2
If amb(X) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula





ColoreTesto 2 :Scrivi "-- 14° estrazione del mese---------------------------",1
co=0


numeri1(1)=amb(1)
co=co+1
ImpostaGiocata co,numeri1,ruota,posta,eval(cp)

numeri2(1)=amb(1)
numeri2(2)=amb(2)
co=co+1
ImpostaGiocata co,numeri2,ruote,poste,eval(cp)



Gioca n
End If
Next
Scrivi

ScriviResoconto
ColoreTesto 2

End Sub