raccolta script ambo a tutte

[Roby]

Scrivi : Scrivi " Alla 10°estrazione del mese giochiamo 1 Ambo Secco su TUTTE le Ruote "

Sub main()
Dim n1(2),n2(2),pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=9 'colpi di gioco
rt(1)=11 '1a ruota di gioco
ini=EstrazioneFin -110
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=10 Then '1a estrazione del mese
Scrivi String (60,"=")
co=co+1
'<<-- (help)Sintassi Estratto(estrazione, ruota, Posizione,[tipogioco=0])
a=Estratto(es,8,3)'<<--- questo è il 3^estr. di Roma!!!
'------------------------------Ambo
nn(1)=Fuori90 (a+3)
nn(2)=Fuori90 (a+23)
ImpostaGiocata 1,nn,rt,pt,clp,2

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

End Sub


Blackmore

 

[Roby]

Scrivi : Scrivi " All'Ultima estrazione del mese giochiamo 1 Ambo Secco su TUTTE le Ruote "

Sub main()
Dim n1(2),n2(2),pt(2),rt(2),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=9 'colpi di gioco
rt(1)=11 '1a ruota di gioco
ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then '1a 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,10,2)'<<--- questo è il 2^estr. di Venezia!!!
'------------------------------Ambo
nn(1)=Fuori90 (a+38)
nn(2)=Fuori90 (a+45)
ImpostaGiocata 1,nn,rt,pt,clp,2

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

End Sub


Blackmore

 

[keeper]

grazie blackmore

 

[Roby]

Scrivi : Scrivi "Alla 4° Estrazione del Mese 2°di Torino + 47;82; = 1 Ambo Secco su TUTTE""By Blackmore"

Sub main()
Dim pt(2),rt(1),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=8 'colpi di gioco
rt(1)=11 '1a ruota di gioco

ini=EstrazioneFin -130
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=4 Then '1a 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,9,2)

'------------------------------Ambo
nn(1)=Fuori90 (a+47)
nn(2)=Fuori90 (a+82)

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

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

End Sub


Blackmore

 

[Roby]

Scrivi : Scrivi "All'Ultima del Mese 1°di Venezia + 38;45; = 1 Ambo Secco su TUTTE""By Blackmore"

Sub main()
Dim pt(2),rt(1),nn(2),pta(2)
pt(2)=2
pta(2)=2
clp=7 'colpi di gioco
rt(1)=11 '1a ruota di gioco

ini=EstrazioneFin -100
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es+1)=1 Then '1a 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,10,2)
'------------------------------Ambo
nn(1)=Fuori90 (a+38)
nn(2)=Fuori90 (a+45)

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

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

End Sub


Blackmore

 

[keeper]

buona sera black ti stai scatenando con questi script cmq ottimi

 

[keeper]

buona sera black ti stai scatenando con questi script cmq ottimi

 

[Roby]

Ciao Keeper, ne avevo un pò nel pc che ho voluto "condividere" con voi,
Ps: chi copia questi ed altri script è gentilmente pregato di lasciare un saluto (non dico un grazie, non m'interessa) ma almeno un saluto tanto per capire se la cosa è gradita (visto che ho in mente un mega Topic di script con ambate, ambi spia, terzine, quartine etc..etc...)
Finora più di 1100 visite........ E nessun saluto???..........spioniiiiiiiii fatevi avantiiiiii

Blackmore

 

[keeper]

Sai perchè tutte ste visite? xchè invece degli script posti i numeri sono tutti in agguato e poi quando capita che qualche ambata o ambo sortisce ti scambiano x il veggente di turno E sapessi quando mì urta sto fatto. non capiscono che per noi il lotto è anche altro, x il tuo mega post io ci sto anche io ne vorrei aprire un altro coìnvolgendo rubìno claudio8 e altri scripter x delle lezioni ed esercitazioni sempre se dìsponibili

 

[FREK50]

Blackmore

Grazie ne avevo bisogno, mi ai dato una bella mano grazie ancora

 

[ghigga]

CIAO BLACK, NON CI CAPISCO MOLTO :-( MA TRA TANTI MI DAI UNO ANCORA IN CORSO? OVVIAMENTE AMBO A TUTTE.

BACI GRAZIE

Dolce Bimba Ghigga

 

[keeper]

quote:Originally posted by Blackmore

quote:Originally posted by ghigga

CIAO BLACK, NON CI CAPISCO MOLTO :-( MA TRA TANTI MI DAI UNO ANCORA IN CORSO? OVVIAMENTE AMBO A TUTTE.

BACI GRAZIE

Dolce Bimba Ghigga

Ciao Ghigga, Un ambo ancora in corso è 16-90 su TUTTE (consigliato anche a Bari), i colpi non li ricordo ma credo 7 o 8, domani controllo meglio
Ciao Freki


Blackmore

ciao blackmore per favore non postare previsioni altrimenti ci richiama il moderatore in quanto vanno postate in altre sezioni grazie.keep

 

[keeper]

Sub main()
Dim nr1(2),nr2(4),ruota(1),posta(1),poste(4)
posta(1)=3oste(2)=3oste(3)=1.3oste(4)=0.7
ini=8100
fin=EstrazioneFin
For es=ini To EstrazioneFin
r1=1
a=Estratto(es,r1,4)
b=Estratto(es,r1,5)
n1=a:n2=b:n3=Fuori90(b+1):n4=Abs(b-1)
n5=a:n6=Vert(b):n7=Fuori90(n6+1):n8=Abs(n6-1)
casi=casi+1:Scrivi String(70,"="),1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&_
StringaEstratti(es,r1)&" ]":Scrivi String(70,"-")
ruota(1)=r1:k=14
nr1(1)=n1:nr1(2)=n2
ImpostaGiocata 1,nr1,ruota,posta,k,0
nr2(1)=n1:nr2(2)=n2:nr2(3)=n3:nr2(4)=n4
ImpostaGiocata 2,nr2,ruota,poste,k,0
nr2(1)=n5:nr2(2)=n6:nr2(3)=n7:nr2(4)=n8
ImpostaGiocata 3,nr2,ruota,poste,k,0
Gioca es
Next
ScriviResoconto
End Sub

 

[Roby]

Keeper l'ho cancellato, cancella anche il quote così siamo a posto

Ps tra un pò parto con il nuovo Topic dedicato agli script
Blackmore

 

[keeper]

Ok blackmore appeni lo posti io ci sarò apportando il mio piccolo contributo

 

[Roby]

Ciao Ritchie(BLACKMORE),ottima idea la tua,ma come pensi di organizzarlo?mi spiego...dividerai in sommativi,di ricerca,a ruota,a tutte e ancora, tutti potranno inserire?Credo che la cosa migliore sia creare un post dove non si debba quotare o commentare(tipo quello di LUIGGIONE MACROSOFT sugli aggiornamenti di spaziometria)e lasciare le spiegazioni nella sezione metodi.Colgo l'occasione per ringraziaTi per tutto il tuo lavoro messo a disposizione di tutti .
Ciao.


SUERTE !!!!

 

[Roby]

quote:Originally posted by artemisio

Ciao Ritchie(BLACKMORE),ottima idea la tua,ma come pensi di organizzarlo?mi spiego...dividerai in sommativi,di ricerca,a ruota,a tutte e ancora, tutti potranno inserire?Credo che la cosa migliore sia creare un post dove non si debba quotare o commentare(tipo quello di LUIGGIONE MACROSOFT sugli aggiornamenti di spaziometria)e lasciare le spiegazioni nella sezione metodi.Colgo l'occasione per ringraziaTi per tutto il tuo lavoro messo a disposizione di tutti .
Ciao.


SUERTE !!!!

Ciao Arte.. no non ho diviso i sommativi dagli altri, ho fatto un TOPIC UNIVERSALE, CON SCRITTO QUALE FUNZIONE SVOLGE OGNI SINGOLO SCRIPT,
Sono daccordo, NIEINTE QUOTE, NIENTE COMMENTI, SOLO SCRIPT


Blackmore

 

[keeper]

sarebbe bello se oltre ai vari script di ricerca venissero inseriti anche script di esempio per far capire come si arriva a quel risultato
utilizzabili come dei tutorial ma bisognerebbe coinvolgere utenti del calibro del prof. rubino oppure claudio8

 

[Roby]

Lo script del titolo qui sotto (postato nel topic Mega raccolta script) questa sera ha dato l'ambo in quartina su ruota ...... al 2 colpo

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

Auguri a chi l'ha messo in gioco e ha vinto

Blackmore

 

[Roby]

Anche questo metodo (postato sempre nel Topic mega raccolta Script) stasera al 1 colpo ha dato l'ambo secco su tutte

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

Auguri a chi l'ha giocato e vinto


Blackmore