MEGA RACCOLTA "SCRIPT"

[Blackmore]

Apro questo Topic con l'intento di
riunire più Script possibili, e,
per tutti i gusti

OGNI CONTRIBUTO è BEN ACCETTO


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

Blackmore

[Blackmore]

Scrivi : Scrivi"QUESTO SCRIPT CALCOLA DOPO L'USCITA DI UN AMBO SPIA, LE AMBATE E GLI AMBI PIù FREQUENTI SU RUOTA E SU TUTTE (Con InputBox)"

Sub main()
Dim ru(2),ru1(10),r,nt(90,2),nrr(90,2),ambrr(4005,5),n r(2),rt(1)
Dim n(90,2),ambi(4005,5),nn(2),ambi1(4005,5),nn1(2)
n1=CInt(InputBox("QUAL'E' IL PRIMO NUMERO ?","SPIA n° 1^",1))
n2=CInt(InputBox("QUAL'E' IL SECONDO NUMERO ?","SPIA n° 2^",3))
r=CInt(InputBox("La Ruota scelta ? (Dove son sortite le Spie)","RUOTA",3))
rut=CInt (InputBox ("Che Ruota vuoi Esaminare con i frequenti?","SCELTA RUOTA",3))
rt(1)=rut
ee=CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO A RITROSO?","ESTRAZIONI",2000))
clp=CInt(InputBox("QUANTI COLPI?","COLPI di GIOCO",10))
ru1(1)=11
fin=EstrazioneFin
ini=EstrazioneFin-ee
For cc=1 To 90
For w=1 To 2
n(cc,w)=0 : nt(cc,w)=0 : nrr(cc,w)=0
Next
Next
co=0 : casi=0
For es=ini To fin
Messaggio " Spia: "&n1&"-"&n2&" Estrazione : "&es
If (Posizione(es,r,n1)>0 And Posizione(es,r,n2)>0)Then
Scrivi DataEstrazione (es)&" "& SiglaRuota (r)&" "& StringaEstratti (es,r)&" "& n1&"_"& n2
casi=casi+1
ess=es+clp
If ess>fin Then ess=fin End If
For x=es+1 To ess
cc=0
For pp=1 To 5
d=Estratto(x,r,pp)
e=Estratto(x,rut,pp)
n(d,1)=d
nrr(e,1)=e
n(d,2)=n(d,2)+1
nrr(e,2)=nrr(e,2)+1 '<<<
Next
For rr=1 To 10
For p1=1 To 5
g=Estratto (x,rr,p1)
nt(g,1)=g
nt(g,2)=nt(g,2)+1
Next
Next
Next
co=0
For x=1 To 90
For y=x+1 To 90
co=co+1
nn(1)=x : nn(2)=y : ru(1)=r
ambi(co,1)=co : ambi(co,2)=x : ambi(co,3)=y
yy=SerieFreq(es+1,ess,nn,ru,2)
ambi(co,4)=ambi(co,4)+ yy
If yy>0 Then
ambi(co,5)=ambi(co,5)+ 1
Else
ambi(co,5)=ambi(co,5)
End If
nn1(1)=x : nn1(2)=y
ambi1(co,1)=co : ambi1(co,2)=x : ambi1(co,3)=y
xx=SerieFreq(es+1,ess,nn1,ru1,2)
ambi1(co,4)=ambi1(co,4)+ xx
If xx>0 Then
ambi1(co,5)=ambi1(co,5)+ 1
Else
ambi1(co,5)=ambi1(co,5)
End If
nr(1)=x : nr(2)=y
ambrr(co,1)=co : ambrr(co,2)=x : ambrr(co,3)=y
kk=SerieFreq(es+1,ess,nr,rt,2)
ambrr(co,4)=ambrr(co,4)+ kk
If kk>0 Then
ambrr(co,5)=ambrr(co,5)+ 1
Else
ambrr(co,5)=ambrr(co,5)
End If
Next
Next
End If
Next
Scrivi
Scrivi "Analisi dal "& DataEstrazione(ini)&" al "& DataEstrazione(EstrazioneFin),1
Scrivi
Scrivi "AMBO SPIA "&Cint(n1)&" e " &cint (n2)& " Su Ruota Unica" ,1
Scrivi
Scrivi NomeRuota (r),1
Scrivi "N° casi: "&Cint(casi),1 : Scrivi
Scrivi " Frequenti nei "&clp&" colpi successivi",1
OrdinaMatrice n,-1,2
OrdinaMatrice ambi,-1,5
OrdinaMatrice ambi1,-1,5
OrdinaMatrice nt,-1,2
OrdinaMatrice nrr,-1,2
OrdinaMatrice ambrr,-1,5
ColoreTesto 2
Scrivi
Scrivi "Nu.Ruota |Ambi a Ruota|Ambi Tutte| Nu. Tutte "
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq | Ambo Fr | N°. Fr "
ColoreTesto 0
For x=1 To 10
riga=" "& Format2(n(x,1))&"..."& Format2(n(x,2))&" | "&Format2(ambi(x,2))&"-"&_
Format2(ambi(x,3))&"..."& Format2(ambi(x,5))&" | "&_
Format2(ambi1(x,2))&"-"& Format2(ambi1(x,3))&"..."&ambi1(x,5)&" | "& Format2(nt(x,1))&"..."&_
Format2 (nt(x,2))
Scrivi riga
riga=""
Next
Scrivi String (65,"*")
ColoreTesto 1
Scrivi "SELEZIONE RUOTA di "& NomeRuota (rt(1))
Scrivi "Nu.Ruota | Ambi a Ruota"
ColoreTesto 2
Scrivi " N° Fr | Ambo Freq "
ColoreTesto 0
For x=1 To 10
rige=" "& Format2(nrr(x,1))&"..."& Format2(nrr(x,2))&" | "& Format2(ambrr(x,2))&"-"&_
Format2(ambrr(x,3))&"..."& Format2(ambrr(x,5))
Scrivi rige
rige=""
Next
Scrivi String (65,"*")
End Sub



Blackmore

[Blackmore]

Scrivi : Scrivi "QUESTO SCRIPT RICAVA 1 AMBATA SULLA NAZIONALE, SIA SEMPLICE CHE DETERMINATA ALL'ULTIMA ESTRAZIONE DEL MESE"

Sub main()
Dim pt(10),rt(1),nn(1),pta(1)
pt(1)=1
pt(6)=1
pt(7)=1
pt(8)=1
pt(9)=1
pt(10)=1
pta(1)=1

clp=9 'colpi di gioco
rt(1)=12 '1a ruota di gioco

ini=EstrazioneFin -120
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])

a=Estratto(es,3,5)' 5°di Firenze

'------------------------------Ambata
nn(1)=Fuori90 (a+47)

ImpostaGiocata 1,nn,rt,pta,clp,1

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore

[Blackmore]

Scrivi : Scrivi "QUESTO SCRIPT RICAVA I 1O NUMERI PIù FREQUENTI DOPO L'USCITA DI UN QUALSIASI NUMERO (CON InputBox Per Ruota e Colpi)"

Sub main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
r=InputBox("Su quale ruota?",,1)
colpi=InputBox("Quanti colpi?",,10)
ruote(1)=r
ini=7000
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i "&colpi&" colpi",1
For sp=1 To 90
Messaggio " Spia: "&sp
For i=1 To 90
num(i,1)=0 : num(i,2)=0
Next
co=0
For es=ini To fin
If Posizione(es,r,sp)>0 Then
co=co+1
ess=es+colpi+1
If ess>fin Then ess=fin End If
For a=es+1 To ess
For v=1 To 90
uscito(v,2)=0
Next
For e=1 To 5
n=Estratto(a,r,e)
num(n,1)=n
num(n,2)=num(n,2)+1
uscito(n,1)=n
uscito(n,2)=uscito(n,2)+1
If uscito(n,2)>1 Then
num(n,2)=num(n,2)-1
uscito(n,2)=1
End If
Next
Next
End If
Next
OrdinaMatrice num, -1, 2
per=Int((co/100)*65)
Scrivi "_________________________________________________ ________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&" colpi "& colpi
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Next
End Sub



Blackmore

[Blackmore]

Scrivi : Scrivi "QUESTO SCRIPT CALCOLA UNA QUARTINA SU BARI ALLA 12°ESTRAZIONE DEL MESE"

Sub main()
Dim rt(1),pt(4),n1(4)

pt(2)=1
pt(3)=1
pt(4)=1

clp=9 'colpi di gioco
rt(1)=1 '1a ruota di gioco


ini=EstrazioneFin -140
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=12 Then '12 Estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,5)

'------------------------------Quartina
n1(1)=Fuori90 (a+9)
n1(2)=Fuori90 (a+17)
n1(3)=Fuori90 (a+18)
n1(4)=Fuori90 (a+25)

ImpostaGiocata 2,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore

[Blackmore]

Scrivi : Scrivi "QUESTO SCRIPT CALCOLA 2 AMBATE SU ROMA ALLA 10°ESTRAZIONE DEL MESE"

Sub main()
Dim pt(1),rt(1),nn(2),pta(1)
pt(1)=1
pta(1)=1

clp=9 'colpi di gioco
rt(1)=8 '1a ruota di gioco
ini=EstrazioneFin -310
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=10 Then '10° estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,1,3)'<<--- questo è il 3^estr. di Bari!!!

'------------------------------Ambate
nn(1)=Fuori90 (a+46)
nn(2)=Fuori90 (a+84)
ImpostaGiocata 1,nn,rt,pta,clp,1

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore

[Blackmore]

Scrivi : Scrivi "QUESTO SCRIPT CALCOLA 3 AMBI SECCHI SU TUTTE LE RUOTE ALL'ULTIMA ESTRAZIONE DEL MESE"

Sub main()
Dim n1(3),n2(3),n3(3),pt(2),rt(1),pta(2)

pt(2)=1
pta(2)=1

clp=8 'colpi di gioco
rt(1)=11 '1a ruota di gioco

ini=EstrazioneFin -260
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then 'Ultima estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,10,3)


'------------------------------1^ Ambo
n1(1)=Fuori90 (a+10)
n1(2)=Fuori90 (a+40)
'------------------------------2^ Ambo
n2(1)=Fuori90 (a+10)
n2(2)=Fuori90 (a+78)
'------------------------------3^ Ambo
n3(1)=Fuori90 (a+40)
n3(2)=Fuori90 (a+78)


ImpostaGiocata 1,n1,rt,pt,clp,2
ImpostaGiocata 2,n2,rt,pt,clp,4
ImpostaGiocata 3,n3,rt,pt,clp,4


Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore

[Blackmore]

Scrivi : Scrivi "QUESTO SCRIPT CALCOLA 1 AMBO SECCO SU RUOTA ALLA 9°ESTRAZIONE DEL MESE"

Sub main()
Dim pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2

clp=10 'colpi di gioco
rt(1)=6 '1a ruota di gioco

ini=EstrazioneFin -60
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=9 Then '1a estrazione del mese

co=co+1
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,9,1)
'------------------------------Ambo
nn(1)=Fuori90 (a+19)
nn(2)=Fuori90 (a+79)
ImpostaGiocata 1,nn,rt,pta,clp,2

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub



Blackmore

[Blackmore]

Scrivi : Scrivi"QUESTO SCRIPT TROVA 1 AMBATA SU RUOTA E CALCOLA QUANTE VOLTE è USCITA (Con InputBox Per Ruota Percentuale,colpi etc..)"

Sub main()
Dim ambi(4500,6),nn(10),ruota(10)
nru1=InputBox("ruota : ",,1)
nes=InputBox("Inserisci 0 ultima, 1 prima, ....",,1)
ne=InputBox("Numero estrazioni:",,200)
perc=InputBox("Percentuale minima (60-99%):",,95)
ncg=InputBox("Numero colpi di gioco",,8)
ruota(1)=eval(nru1)
casi=0
ini=EstrazioneFin-ne
fin=EstrazioneFin
For x=1 To 4500
ambi(x,1)=0 : ambi(x,2)=0 : ambi(x,3)=0 : ambi(x,4)=0 : ambi(x,5)=0 : ambi(x,6)=0
Next
For es=ini To fin
If eval(nes)=0 Then
If IndiceMensile(es+1)=1 Then
casi=casi+1
co=0
For r=1 To 10
For p=1 To 5
For nu=1 To 90
co=co+1
c=0
a=Estratto(es,r,p)
b=Fuori90(a*nu)
nn(1)=b
esncg=es+eval(ncg)
If esncg>EstrazioneFin Then esncg=EstrazioneFin End If
c=SerieFreq(es+1,esncg,nn,ruota,1)
If c>0 Then
ambi(co,1)=co
ambi(co,2)=r
ambi(co,3)=p
ambi(co,4)=nu
ambi(co,5)=ambi(co,5)+1
ambi(co,6)=ambi(co,6)+c
End If
Next
Next
Next
End If
Else
If IndiceMensile(es)=eval(nes) Then
casi=casi+1
co=0
For r=1 To 10
For p=1 To 5
For nu=1 To 90
co=co+1
c=0
a=Estratto(es,r,p)
b=Fuori90(a*nu)
nn(1)=b : nn(2)=Vert(b)
esncg=es+eval(ncg)
If esncg>EstrazioneFin Then esncg=EstrazioneFin End If
c=SerieFreq(es+1,esncg,nn,ruota,1)
If c>0 Then
ambi(co,1)=co
ambi(co,2)=r
ambi(co,3)=p
ambi(co,4)=nu
ambi(co,5)=ambi(co,5)+1
ambi(co,6)=ambi(co,6)+c
End If
Next
Next
Next
End If
End If
Next
ca=0
ColoreTesto 1
Scrivi "ANALISI Dal "& DataEstrazione(ini)&" al "& DataEstrazione(fin),1
Scrivi
If eval(nes)=0 Then
Scrivi "ESTRAZIONE DI CALCOLO : "& "Ultima del mese",1
Else
Scrivi "ESTRAZIONE DI CALCOLO : "& eval(nes)&"° del mese",1
End If
Scrivi "RUOTE DI GIOCO : "& NomeRuota(nru1)& " - "& NomeRuota(nru2),1
Scrivi "COLPI DI GIOCO : "& ncg,1
Scrivi "CASI ANALIZZATI : "& casi,1
Scrivi : ColoreTesto 0
per=Int((casi/100)*perc)
For ca=1 To 4500
If eval(ambi(ca,5))=>per Then
Scrivi eval(ambi(ca,3))& "°" & Left(NomeRuota(eval(ambi(ca,2))),2)&" * "&_
Format2(ambi(ca,4))&" su "& NomeRuota(nru1)&"-"& NomeRuota(nru2)&_
" è uscito "& FormatSpace(ambi(ca,5),3)&" su "&FormatSpace(casi,3) &" casi - AMBATE TOTALI: "&_
FormatSpace(ambi(ca,6),3)
End If
Next
End Sub


Blackmore

[Blackmore]

Scrivi "QUESTO SCRIPT ALL'USCITA DI UN AMBO SPIA CALCOLA UNA CINQUINA SU RUOTA (Con InputBox)"

Sub main()
Dim rt(1),nu(2),ru(2),n5(5),ptt(5),rtt(1),rut(1)
ptt(2)=1 : ptt(3)=0.50 : ptt(4)=0.25 : ptt(5)=0.25
rtt(1)=11 : rut(1)=12

aa=InputBox("Digita Ambo Spia (separato da un punto)","AMBO SPIA","25.52")
aa="0."&aa
s=Split(aa,".")
nu(1)=CInt(s(1)) : nu(2)=CInt(s(2))

r1=CInt(InputBox ("Su che Ruota è uscito l'Ambo?","RUOTA",8))
rt(1)=r1

rr=InputBox ("Digita le due ruote dove giocare la terzina(1=BA,2=CA...12=NZ)","RUOTE GIOCO","8")
rr="0."&rr
q=Split(rr,".")
ru(1)=CInt (q(1))

ts=CInt (InputBox ("Vuoi il gioco a TUTTE ? (1=SI ; 0=NO)","TUTTE",0))

clp=CInt (InputBox ("Per quanti colpi di gioco?","COLPI di GIOCO",9))

ww=InputBox ("Digita la Posizione e la Ruota su cui applicare i fissi sommativi!(ES: 3.1= 3^estr.di BA)","POS.-RUOTA","5.8")
ww="0."&ww
y=Split(ww,".")
p=CInt (y(1)) : r=CInt (y(2))

ff=InputBox ("Digita i 5 Fissi da sommare all'estratto scelto","FISSI","20.23.46.50.51")
ff="0."&ff
h=Split(ff,".")
f1=CInt (h(1)) : f2=CInt (h(2)) : f3=CInt (h(3)) : f4=CInt (h(4)) : f5=CInt (h(5))
co=0
For es=3200 To EstrazioneFin 'qui' inserire da che estrazione vogliamo controllare
Messaggio es
If SerieFreq (es,es,nu,rt,2)>0 Then
co=co+1
a=Estratto (es,r,p)
n5(1)=Fuori90(a+f1) : n5(2)=Fuori90(a+f2) : n5(3)=Fuori90(a+f3) : n5(4)=Fuori90(a+f4) : n5(5)=Fuori90(a+f5)
Scrivi String (65,"=")&" Caso n°"&co
Scrivi DataEstrazione (es)&" "& SiglaRuota (rt(1))&" "& StringaEstratti (es,rt(1))&" Ambo Spia "& StringaNumeri (nu)
Scrivi "Sommiamo "&f1&","&f2&","&f3&","&f4&","&f5&" al "&p&"^ estr. di "& SiglaRuota (r)&"["&a&"]"
Scrivi "Giochiamo su "& SiglaRuota (ru(1))&" per "&clp&" colpi"
ImpostaGiocata 1,n5,ru,ptt,clp
If ts=1 Then
'ImpostaGiocata 1,n5,rtt,ptt,clp ' se vogliamo giocare a tutte togliere apice
'ImpostaGiocata 10,n5,rut,ptt,clp ' se vogliamo giocare sulla Nazionale togliere apice
End If
Gioca es
End If
Next
ScriviResoconto
End Sub



Blackmore