BaffoBlù
Advanced Member >PLATINUM<
Codice:
Sub main()
Dim n,t,r1,r2,n1,n2,n3,n4
Dim am(10)
Dim ab(10)
Dim at(10)
Dim ruota(10)
Dim posta(5)
Dim poste(5)
Dim posto(5)
posto(2)=1.6
posto(3)=0.4
posta(1)=1
poste(2)=1
ini= 7000
For n=ini To EstrazioneFin
Messaggio DataEstrazione (n)
t=1
Do While RAD30(n,t,r1,r2,n1,n2,n3,n4)=True
Scrivi "**************************************************************"
ColoreTesto 2
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r1),2)&" "& StringaEstratti(n,r1)
Scrivi DataEstrazione(n)& " "& Left(NomeRuota(r2),2)&" "& StringaEstratti(n,r2)
Scrivi
ColoreTesto 0
ruota(1)=r1
ruota(2)=r2
am(1)=Fuori90(n1+n2+n4+30)
ImpostaGiocata 1,am,ruota,posta,9,1
ab(1)=am(1)
ab(2)=Fuori90(n4*2)
ImpostaGiocata 2,ab,ruota,poste,9,2
at(1)=am(1)
at(2)=ab(2)
at(3)=n1
ImpostaGiocata 3,at,ruota,posto,9,2
at(1)=am(1)
at(2)=ab(2)
at(3)=n2
ImpostaGiocata 4,at,ruota,posto,9,2
at(1)=am(1)
at(2)=ab(2)
at(3)=n3
ImpostaGiocata 5,at,ruota,posto,9,2
For x=2 To 5
For xx=2 To 5
ImpostaInterruzioni x,xx,2
ImpostaInterruzioni x,1,1
ImpostaInterruzioni 1,x,2
Next
Next
Gioca n
t=t+1
Loop
Next
ScriviResoconto
End Sub
Function RAD30(estrazione, tentativo, byref ruota1, byref ruota2, byref numero1, byref numero2, byref numero3, byref numero4)
Dim trovati,r,i,j
trovati=0
For r= 1 To 10
For i= 1 To 3
j=i+2
a=Estratto (estrazione,r,i)
b=Estratto(estrazione,r,j)
If Distanza(a,b)=30 Then
For rr=1 To 10
c=Estratto(estrazione,rr,i+1)
If c=(Fuori90(a+30) And c<>b) Or c=(Fuori90(a+60) And c<>b) Then
trovati=trovati+1
If trovati=tentativo Then
numero1=Estratto(estrazione,r,i)
numero2=Estratto(estrazione,r,j)
numero3=Estratto(estrazione,rr,i+1)
numero4=Estratto(estrazione,r,i+1)
ruota1=r
ruota2=rr
RAD30=True
Exit Function
End If
End If
Next
End If
Next
Next
RAD30=False
End Function
