Sub Main()
' terno di salvozac su bari
Dim ruota(2),posta(3)
Dim n1(3),n2(3),n3(3),n4(3)
ruota(1) = 1
posta(2) = 2
posta(3) = 1
ee = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",200))
k = CInt(InputBox("Per quante estrazioni deve durare il gioco ?","Colpi di gioco",10))
Scrivi String(120,"=")
Scrivi " *********** terzine x ambo by salvozac *************** Listed by Mike58 ********** created 15-9-2012 ",1,- 1,6
Scrivi String(120,"=")
fin = EstrazioneFin
ini = fin - ee
For es = ini To fin
If IndiceMensile(es) = 7 Then
Messaggio "elab. n° " & es & " del " & DataEstrazione(es) & " [ by Mike58 ]"
'-------------------------------------
n1(1) = Fuori90(Estratto(es,BA_,2) +(Estratto(es,NZ_,4) + 71))
n1(2) = Fuori90(Estratto(es,NA_,3) +(Estratto(es,PA_,1) + 90))
aa = Fuori90(Estratto(es,PA_,3) +(Estratto(es,VE_,1) + 30))
n1(3) = Vert(aa)
n2(1) = Fuori90(Estratto(es,GE_,1) +(Estratto(es,PA_,2) + 58))
bb = Fuori90(Estratto(es,GE_,1) +(Estratto(es,NZ_,3) + 23))
cc = Fuori90(Estratto(es,RO_,1) +(Estratto(es,VE_,3) + 78))
n2(2) = Vert(bb)
n2(3) = Vert(cc)
n3(1) = Fuori90(Estratto(es,FI_,4) +(Estratto(es,GE_,4) + 23))
n3(2) = Fuori90(Estratto(es,GE_,1) +(Estratto(es,PA_,2) + 58))
dd = Fuori90(Estratto(es,PA_,3) +(Estratto(es,VE_,1) + 30))
n3(3) = Vert(dd)
n4(1) = Fuori90(Estratto(es,BA_,2) +(Estratto(es,NZ_,4) + 71))
n4(2) = Fuori90(Estratto(es,FI_,4) +(Estratto(es,GE_,4) + 23))
ee = Fuori90(Estratto(es,RO_,1) +(Estratto(es,VE_,2) + 78))
n4(3) = Vert(ee)
ImpostaGiocata 1,n1,ruota,posta,k
ImpostaGiocata 2,n2,ruota,posta,k
ImpostaGiocata 3,n3,ruota,posta,k
ImpostaGiocata 4,n4,ruota,posta,k
For x = 1 To 4
For xx = 1 To 4
ImpostaInterruzioni x,xx,2
Next
Next
Gioca es
Scrivi "Spesa....." & GetSpesa(True),1
ColoreTesto 2
Scrivi "Vincita..." & GetVincita(True),1
ColoreTesto 1
Scrivi "Guadagno.." & GetGuadagno(True),1
ColoreTesto 0
Scrivi String(120,"=")
End If
Next
Scrivi String(120,"=")
Scrivi"----------------------------- Resoconto totale ----------------------------------------"
ScriviResoconto
End Sub