Regalo per gli amanti delle ambate.

[Y10]

Per gli amanti delle ambate , voglio regalarvi questo script trovato tempo fa in questa sezione , mi pare fosse del buon Blackmore. Spero avervi fatto cosa gradita , questo metodo si stà comportando egregiamente.

Sub Main()
Dim n(1),ruota(2),posta(1)
posta(1) = 1
ruota(1) = 9
ruota(2) = 10
ini = EstrazioneIni
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab ini,fin,es
If IndiceMensile(es) = 13 Then
a = Estratto(es,9,4)
n(1) = Fuori90(a + 41)
ImpostaGiocata 1,n,ruota,posta,13,1
Gioca es,True,,1
End If
Next
ScriviResoconto
End Sub