raccolta script ambo a tutte

[keeper]

bravo black pensa che sono rimasto fregato avevo utilizzato quello all'ultima del mese

 

[Roby]

Grazie Keeper, purtroppo capita spesso di scegliere una previsione o un metodo e poi ne esce un altro, pensa che io non li ho nemmeno giocati (avevo già troppe previsioni in gioco)
Ps capita anche che quando li giochi "se escono" lo fanno negli ultimi 2 ,3 colpi, quando non li giochi escono al 1 o 2 colpo, ma va.......

Blackmore

 

[antonino]

Ho apprezzato molto i tuoi script, e li sto studiando per provare a capirli.
Io sono interessato a uno script che mi dia per un ambo uguale uscito su ruota i numeri più frequenti presenti nell'estrazione con l'ambo in questione.Non sono ancora riuscito a predisporre il modo di impostare la ricerca, se mi puoi aiutare, ti ringrazio anticipatamente,
nino

nino

 

[Roby]

Keeper, questo è lo script del terno a tutte della sezione metodi

Scrivi : ColoreTesto 0 : Scrivi "ALLA 4°DEL MESE GIOCHIAMO 1 TERNO SECCO SU TUTTE LE RUOTE""By Blackmore"
Sub main()
Dim pt(3),rt(1),nn(3),pta(3)
pt(3)=1
pta(3)=1
clp=6 'colpi di gioco
rt(1)=11 '1a ruota di gioco
ini=EstrazioneFin -50
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=4 Then '4 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,7,3)'<<--- questo è il 3^estr. di Palermo!!!
'------------------------------ Terno
nn(1)=Fuori90 (a+15)
nn(2)=Fuori90 (a+36)
nn(3)=Fuori90 (a+61)
ImpostaGiocata 1,nn,rt,pta,clp


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


End Sub

Blackmore