MEGA RACCOLTA "SCRIPT"

[codicebinario]

DISTANZA 12 - 24 del Prof.M.PALUMBO con spiegazioni e modificabile.







Submain()
Dim ruote(2)
Dim lg(6)
Dim poste1(3)
poste1(2)=.50
poste1(3)=.50
s=InputBox("Quante estrazioni vuoi controllare?",,100)
For es = EstrazioneFin - s To EstrazioneFin
For r1=1 To 9
For p=1 To 4
For pp=p+1 To 5
a1=Estratto(es,r1,p)
a2=Estratto(es,r1,pp)
d1=Distanza(a1,a2)
If d1=24 Then '<---Controlla se la distanza è =24
For r2=r1+1 To 10
b1=Estratto(es,r2,p)
b2=Estratto(es,r2,pp)
d2=Distanza(b1,b2)
If d2=12 Then '<---Controlla se l'altra distanza è = 12
If a1<>b1 And a1<>b2 And a2<>b1 And a2<>b2 Then '<--Controlla che le coppie siano diverse.
'Quadratura Somme Verticali e Diagonali
sv1=Fuori90(a1+b1)
sv2=Fuori90(a2+b2)
sd1=Fuori90(a1+b2)
sd2=Fuori90(a2+b1)
'Distanze Somme.....
dv=Distanza (sv1,sv2)
dd=Distanza (sd1,sd2)
If dv=12 Or dd=12 Then '<--- Se la distanza di una Somma è = 12 , Continua...altrimenti salta
If dv=12 Then s1=sv1 : s2=sv2 : df=Abs (sv1-sv2)
If dd=12 Then s1=sd1 : s2=sd2 : df=Abs (sd1-sd2)
pm1=(s1+s2)/2 '<--- Punto Medio delle somme trovate.
pm2=Diametrale (pm1)'<----Diametrale del P.M.
'Chiusure con la Distanza = 6
If s1<s2 And df=12 Then n1=Fuori90((s1+90)-6) : n2=Fuori90(s2+6)
If s1<s2 And df=78 Then n1=(s1+6) : n2=(s2-6)
If s1>s2 And df=12 Then n1=Fuori90(s1+6) : n2=Fuori90((s2+90)-6)
If s1>s2 And df=78 Then n1=(s1-6) : n2=(s2+6)
'Previsione : è stato messo in gioco solo la Sestina per A.T.
'Modificare per altre soluzioni di gioco.
lg(1)=pm1 : lg(2)=pm2 : lg(3)=n1 : lg(4)=s1 : lg(5)=s2 : lg(6)=n2
ruote(1)=r1
ruote(2)=r2
Scrivi "----------------------------------------"
Scrivi DataEstrazione (es)&" "& SiglaRuota (r1)&" "& Format2 (a1)&" "& Format2 (a2)&" Dist. "& Format2 (d1)& Chr (10)&_
Space (11)& SiglaRuota (r2)&" "& Format2 (b1)&" "& Format2 (b2)&" Dist. "& Format2 (d2)& Chr (10)&_
"Somma 1 : "& Format2 (s1)&" Dif. "& Format2(df)&" "& Format2 (n1)&" P.M. "& Format2 (pm1)& Chr (10)&_
"Somma 2 : "& Format2 (s2)&" "& Format2 (n2)&" P.M.D. "& Format2 (pm2),1
Scrivi "----------------------------------------"
ImpostaGiocata 1,lg,ruote,poste1,18,3
ImpostaInterruzioni 1,1,2
Gioca es

End If
End If
End If
Next
End If
Next
Next
Next
Next
ScriviResoconto
Endsub

SUERTE !!!!

[Blackmore]

Scrivi "QUESTO SCRIPT TROVA UN AMBO RIPETUTO SULLA STESSA RUOTA IN DUE ESTRAZIONI CONSECUTIVE"

Sub main()
rs=InputBox("Quante estrazioni vuoi controllare?",,100)
fin=EstrazioneFin
ini=fin-rs
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto (es,r,p1)
b=Estratto (es,r,p2)
If es < EstrazioneFin Then
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto (es+1,r,p3)
d=Estratto (es+1,r,p4)
If (a=c And b=d) Or (a=d And b=c) Then
Scrivi "-----------------------"
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r),2) & " "& Format2(a)&"-"& Format2(b)
Scrivi DataEstrazione(es+1) &" "& Left(NomeRuota(r),2) & " "& Format2(c)&"-"& Format2(d)
Scrivi "-----------------------"
'
' eventuali conteggi e giocate si mettono qui
'
End If
Next
Next
End If
Next
Next
Next
Next
End Sub


Blackmore

[Blackmore]

Scrivi"QUESTO SCRIPT TROVA 2 NUMERI DI SOMMA 90 SU RUOTA UNICA E SU 2 RUOTE DIVERSE,IN QUALSIASI POSIZIONE (ISOTOPA,VERTICALE,DIAGONALE ETC...)IN TUTTE LE ESTRAZIONI"

Sub main()
Dim ruota(2)
Dim posta(5)
Dim num(10)
posta(1)=1
For n= 8200 To EstrazioneFin
For r=1 To 9
For p=1 To 5
For r1=2 To 10
For p1=1 To 5
a=Estratto(n,r,p)
b=Estratto(n,r1,p1)
If (a+b)=90 Then
s=DataEstrazione(n)&" "&FormatSpace(NomeRuota(r),10)& Format2(a)
s=s+" + "&FormatSpace(NomeRuota(r1),10)& Format2(b)&" = 90"
Scrivi s
End If
Next
Next
Next
Next
Scrivi "------------------------------------------"
Next
End Sub


Blackmore

[Thauk]

Lo script calcola 2 ambate sulle ruote gemelle e diametrali (nell'output sono alternate) all'ultima estrazione del mese.
Ottime per convergenze e/o capigioco.
NB: le ruote Firenze-Roma sono sia gemelle che diametrali.

Sub main()
Dim rt(2),pt(1),am(2)

est=CInt(InputBox("Quante estrazioni controllo?","Estrazioni",15))
clp=CInt(InputBox("Quanti colpi di gioco?","Colpi",8))
ini=EstrazioneFin-est
fin=EstrazioneFin

For es=ini To fin
If IndiceMensile(es+1)=1 Then	'Or es=EstrazioneFin Then
Messaggio es

For r1=1 To 5
a=Estratto(es,r1,1)
For r2=1 To 10
b=Estratto(es,r2,5)
If r2=r1+5 Or r2=11-r1 Then
c=Fuori90(a+b)

rt(1)=r1
rt(2)=r2
pt(1)=1

am(1)=91-c
am(2)=Diametrale(c)
If am(1)=am(2) Then am(2)=Fuori90(am(2)+1)
ImpostaGiocata 1,am,rt,pt,clp,1

casi=casi+1
Scrivi String (70,"=")&" Caso nr."&casi,1
Scrivi

Gioca es
End If
Next
Next
End If
Next
ScriviResoconto 			
End Sub

Fortuna non omnibus aeque.

[codicebinario]

SPIA 5 SU BARI e CAGLIARI nella stessa estrazione.
Lo script al presentarsi della condizione mette in gioco tre ambi.



Scrivi
Scrivi
ColoreTesto 2
Scrivi "•----------------------------------------------------------DjNomade•",1
ColoreTesto 1
Scrivi String(20," ")&"************* Se esce spia 05 su BARI-CAGLIARI....by MARCOLOTT1 ************ ",1
ColoreTesto 0

Scrivi
Scrivi
Sub main()
Dim numero(10),numero1(10)
Dim posta(5),poste(5),poste1(5),ruote(10),ruota(10)
posta(1)=1
poste(2)=1
poste1(2)=1
poste1(3)=1
fin=EstrazioneFin
ini=fin-3000
For es=ini To fin
AvanzamentoElab ini,fin,es-1
For r=1 To 1
For p1=1 To 5
'For p2=p1+1 To 5
a=Estratto (es,r,p1)
For r1=2 To 2
For p2=1 To 5
b=Estratto (es,r1,p2)
If a=5 And b=5 Then 'CONDIZIONE DA RILEVARE :
Scrivi
ColoreTesto 7
Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r) & " " & Format2(a)
Scrivi DataEstrazione(es)&" RILEVATO SU........ "& NomeRuota(r1) & " " & Format2(b)
ruota(1)=1
ruota(2)=2

Scrivi

numero(1)=90

ImpostaGiocata 1,numero,ruota,posta,10


numero1(1)=90
numero1(2)=Fuori90(72-Estratto(es,7,1))
If Estratto(es,7,1)>72 Then numero1(2)=Fuori90(72+90-Estratto(es,7,1))

ImpostaGiocata 2,numero1,ruota,poste,10

numero1(1)=90
numero1(2)=Fuori90(Estratto(es,5,4)+75+90)

ImpostaGiocata 3,numero1,ruota,poste,10

numero1(1)=90
numero1(2)=Fuori90(Estratto(es,5,3)-Estratto(es,4,2))
If Estratto(es,4,2)>Estratto(es,5,3) Then numero1(2)=Fuori90(Estratto(es,5,3)+90-Estratto(es,4,2))

ImpostaGiocata 4,numero1,ruota,poste,10





Gioca es
Scrivi
Scrivi"============Se esce spia 05 su BARI-CAGLIARI....by MARCOLOTT1============"
End If
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 2
Scrivi "•----------------------------------------------------------DjNomade•",1
ColoreTesto 1
Scrivi String(20," ")&"************* Se esce spia 05 su BARI-CAGLIARI....by MARCOLOTT1 ************ ",1
ColoreTesto 0
End Sub


SUERTE !!!!

[imported_n/a]

Ambo Killer (Romeo Torti)

Sub main()

Dim numeri(10)
Dim ruote(10)
Dim poste(5)
Dim n


For n =EstrazioneFin -20 To EstrazioneFin
For r=1 To 9
For r1=r+1 To 10
For d=1 To 4
For d1=d+1 To 5
k=Distanza (Estratto (n,r,d),Estratto (n,r1,d))
If k>45 Then k=90-k
k1=Distanza (Estratto (n,r,d1),Estratto (n,r1,d1))
If k1>45 Then k1=90-k1
If k=k1 Then
numeri(1)=Fuori90 (Estratto (n,r,d)+Estratto (n,r1,d1))
numeri(2)=Fuori90 (Estratto (n,r1,d1)*2)
ruote(1)=r
ruote(2)=r1
poste(1)=1
poste(2)=1
ImpostaGiocata 1,numeri,ruote,poste,5
Gioca n
End If
numeri(1)=""
numeri(2)=""
Next
Next
Next
Next
Next
ScriviResoconto

End Sub


Entertainment Group

[daniel]

Raccolta script by Danilo CSI
Di tutto di più, tanti che non servono, alcuni che potrebbero funzionare ancora, dritte per compilazioni nuovi script ecc. ecc.
Ciao

http://www.megaupload.com/?d=NHS9MLKZ

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

[Blackmore]

VI SAREI GRATO SE IN QUESTO TOPIC, NON CI FOSSERO COMMENTI E/O RICHIESTE DI NESSUN TIPO...
... MA SOLO SCRIPT, GRAZIE


Blackmore

[Blackmore]

Scrivi "QUESTO SCRIPT CALCOLA E TROVA LA DISTANZA TRA DUE ESTRATTI SU DUE RUOTE DIVERSE IN OGNI ESTRAZIONE (SI PUò CAMBIARE LA DISTANZA A PROPRIO PIACIMENTO)"

Sub main()
Dim ruote(2)
di=27 '<--------per cambiare distanza, sostituire il n°27
fin=EstrazioneFin
ini=fin-100
For es = ini To fin
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
For p1 = 1 To 5

a = Estratto (es,r1,p1)

If Distanza (a,b)=di Then
For r2 =r1+1 To 10
For p2 = 1 To 5

b= Estratto (es,r2,p2)

If Distanza (a,b)=di Then
Scrivi
Scrivi DataEstrazione(es)&" "& Left(NomeRuota(r1),2) & " " & Format2(a)
Scrivi Space(11)& Left(NomeRuota(r2),2) & " " & Format2(b)
End If : Next : Next
End If : Next : Next : Next : End Sub


Blackmore

[esselotto]

TRA TANTI DEI MIEI HO SCELTO QUESTO.
GIA' POSTATO IN QUEST'AREA

Scrivi String (75,"*")
Scrivi String (25," ")& "Ambo Complementare autore LAI",1
Scrivi String (15," ")& "programmato da °°°esselotto°°° per LottoCed",1
Scrivi String (75,"*")

 
Sub main()
Dim ruote(1)
Dim n(4)
Dim rt(3),posta(1),poste(5),postet(5)
Dim nu(2),na(6),na1(6),na2(6),na3(6),ns1(6),ns2(6),ns3(6),ns4(6),ns5(6)
posta(1)=1 : poste(2)=1 : poste(3)=1   
ruote(1)=11
co=0
indietro=CInt(InputBox ("Quante Estrazioni vuoi esaminare ?..","com  90",400))
If indietro= False Then Exit Sub
clp=CInt(InputBox ("Colpi in gioco ?..","com  90",14))
If clp= False Then Exit Sub


ini=EstrazioneFin -indietro
fin=EstrazioneFin 
For es=ini To fin 

       For r=1 To 9
          rt(1)=r
          For p=1 To 4
            For pp =p+1 To 5  
               n(1)=Estratto (es,r,p)
               n(2)=Estratto (es,r,pp)
               'controllo che sia un Aambo diametrale
                con=Distanza(n(1),n(3))
                If con=45 Then 
                ' trovo il complemento di 90 dei due
                 co1=(90-n(1)):co2=(90-n(2))
                 ' devo trovare uno dei due in posizione isotopa            
                    Npos=0
                    For  rr=r+ 1 To 10 
                      rt(2)=rr
                      n(3)=Estratto (es,rr,p)
                      n(4)=Estratto (es,rr,pp)
                     si=0    
                     If co1=n(3) Or co1=n(4) Then trov=co1: man=co2 :Si=1:Npos=p
                     If co2=n(3) Or co2=n(4) Then trov=co2: man=co1:si=1 :Npos=pp 
                     
                     If si=1 Then 
                     
                     diad=DiametraleD (man)
                     am=Fuori90 (man+diad)
                     'am=(90-am)
                     ' troviamo l'ambo somma90 tra a b e trov
                     so90=Fuori90 (n(1)+trov)
                     If so90=90 Then dif=Abs(n(1)-trov): am1=Fuori90 (dif+n(2))
                     so90=Fuori90 (n(2)+trov)
                     If so90=90 Then dif=Abs(b-trov): am1=Fuori90 (dif+n(2))
                     am2=Diametrale (am1)
                      
                      co=co+1
Scrivi String (75 ,"=") ,1
Scrivi String (65 ,"°")& "Caso Nr "& co,1
Scrivi DataEstrazione (es)&"  "& SiglaRuota (r)&"  "& StringaEstratti (es,r)
Scrivi DataEstrazione (es)&"  "& SiglaRuota (rr)&"  "& StringaEstratti (es,rr)
Scrivi "Numeri rilevati --->"& Space(10)&"("&  Format2 (n(1)) &"  "& Format2(n(2)) &" ) pos "& p &"° "& pp &"° " 
Scrivi "complemento "& Space(18)&"("&  Format2(trov) & "     ) pos "& npos &"°"
Scrivi
nu(1)=am
ImpostaGiocata 1,nu,rt,posta,clp,1 'ambata
na(1)=am
na(2)=am1
'ImpostaGiocata 2,na,rt,poste,clp ,2 ' imposta giocata ambo
na1(1)=am          
na1(2)=am2
'ImpostaGiocata 3,na1,rt,poste,clp,2  ' imposta giocata ambo
na2(1)=am         
na2(2)=am1
na2(3)=am2
ImpostaGiocata 4,na2,ruote,poste,clp,2  ' imposta giocata ambo terno Tutte



Gioca es
 
End If
Next
End If
Next 
Next
Next 
Next 
ScriviResoconto 


ColoreTesto 1
Scrivi "°°°esselotto°°°",1


End Sub