Per tutti gli scripters

[claudio8]

""cmq postare sul forum e impossibile

ovunque si clicca rimanda in publicita che capisco anche il forum e gratuito pertanto è anche giusto ma diventa impossibile accedere o scrivere o inserire immagini. ma forse e un problema solo mio

""

X I legend con questo e non avrai + tanti fastidi ......adblockplus.org.

 

[fillotto]

Ciao Legend le informazioni che chiedi sono ai num 23 e 24 di questa discussione per quanto riguarda l'agenzia penso,giustamente , che non è questa la sede dove fare pubblicità a un agenzia straniera ti invio file degli ultimi due anni (aggiornati a ieri circa 600 estrazioni)della lotteria con cui mi diverto io Vedi l'allegato LEG_PENSY0.txt
con cui potrai fare delle prove, buona domenica. Fil

 

[i legend]

Ciao Claudio grazie mille lo cerco
X filotto deduco che non si giochi in ricevitoria. Na se come ha detto silop bisogna recarsi in una struttura
Riconosciuta dallo stato che
che publicita si fa?bho.
Nwax che su internet sono riuscito a capirci qualcosa.
Grazie filotto ma avevo bisogno di uk perché ci sono più numeri . Mi serve per i tempi.
Tu dirai c è il lotto classico e la ruota . Certo ma le funzioni per il lotto sono schegge ultrasuoni. I tempi registrati sono diversi.

 

[arcor]

un saluto a tutti e un ringraziamento per quanti stanno contribuendo col loro lavoro a questo post.volevo chiedere a magia se abbiamo fatto qualche passo in avanti o no nella ricerca di trovare spunti per poter aggiornare gli archivi specie di uk49s in automatico nel programma di luigi.che mi sembra il nocciolo della questione.ciao

 

[i legend]

ciao Magia grazie per l archivio
sto rifacendo lo script troppe aggiunte a pezzettini era terribile. appena è pronto lo posto,
Scaricato la rchivio aggiornato a 20 12
dove devo salvaro ? cè un percorso corretto?
grazie mille
ciao
a dopo

 

[i legend]

ciao Magia, ti spiacerebbe darmi del tu?
Mi piace pensare che dopo tanto tempo ,un po si diventa amici
Sto cercando di fare uno script bello, ma la voglia di postare i tempi limitati e i vari acciacchi , lo script fa quello che deve ma non è elegante;(
a Dopo spero con un bel regalino

 

[i legend]

[No message]

 

[claudio8]

I legend, aspettiamo Filotto intanto appunto una previsione
GE ambate e ambo 5 .21 abbin. ad ambo 07.32.33.49.65.66 abb. a terno 06.31.32.48.64.65 .... buona notte

Colpito ed affondato domani si va in vacanza.... settimana bianca
ciao Filotto... ciao I legend

 

[i legend]

Ciao Claudio complimenti

 

[claudio8]

Grazie I legend, ma devo affinare la ricerca perchè si è speso molto per questa giocata.

 

[claudio8]

I legend, aspettiamo Filotto intanto appunto una previsione
GE ambate e ambo 5 .21 abbin. ad ambo 07.32.33.49.65.66 abb. a terno 06.31.32.48.64.65 .... buona notte

Colpito ancora con l'ambo (..... la settimana bianca si prolunga....) questa volta si è vinto una miseria.

buon anno chiuso bene.

 

[Alien.]

ciao a tutti
ecco lo script che sto facendo
ora è in fase test
non conosco il gioco quindi non so cosa si gioca estratti ambi
se i numeri sono 7 uno di questi e un numero oro?
dove sono le regole?
cosi faccio uno script alla cieca
fatemi sapere
ripeto dove mi devo recare se volessi giocarci?
alrimenti mi tornerà utile
se dovessi farmi un viaggio in u.k
Lo script e a scopo didattico

Option Explicit
' script BetaTest 0.1
'Verificare la veridicità delle statistiche
' segnalare eventuali bugs, potrebbero essercene molti
' chiedere varie implementazioni
' non conoscendo il gioco non so quali opzioni di ricerca attivare
' se avete suggerimenti e sono fattibili ;)
Sub Main
Dim sFileArchivio
Dim Inizio,Fine
Dim IdAlg
sFileArchivio = GetDirectoryAppData & "Archivio LottoUK\Lotto UK 49's.txt"
If ApriBaseDatiFT(sFileArchivio,07,",",49) Then
Inizio = GetIdEstrazioneInizio
Fine = GetIdEstrazioneFine
Call GetTabEstrazioni(Fine)
IdAlg = GetAlgoritmo
Select Case IdAlg
Case 0
GetTesto
Call AlgoritmoRipetizionePosiazioneAcolpo(Inizio,Fine,IdAlg)

Case 1
GetTesto
Call AlgoritmoRipetizioneCoppiaAcolpo(Inizio,Fine,IdAlg)

Case 2
GetTesto1
Call AlgoritmoRipetizioneSommativoPosiazioneAcolpo(Inizio,Fine,IdAlg)
Case 3
GetTesto1
Call AlgoritmoRipetizioneSommativo2EstrPosiazioneAcolpo(Inizio,Fine,IdAlg)

Case 4
Call CalcolaStatistica(Inizio,Fine,IdAlg)
End Select
End If
End Sub
Sub GetTesto
Dim aTitoli
aTitoli = Array("","POSIZIONE","RITARDO","RITARDOMAX","SCARTO_R","INCR.RITMAX","FREQ","NUMERO")
Call InitTabella(aTitoli)
End Sub
Sub GetTesto1
Dim aTitoli
aTitoli = Array("","POSIZIONE","ADAT","RITARDO","RITARDOMAX","SCARTO_R","INCR.RITMAX","FREQ","NUMERO")
Call InitTabella(aTitoli)
End Sub
Function GetAlgoritmo
Dim aTitolo
aTitolo = Array("Rip di 1 dei 7 Estratti a Colpo","Rip di 1Coppia Per Estratti a Colpo","Rip di Estr+***at a Colpo","Rip di Coppia+***at a Colpo","TabellaStatisticaFormazione")
GetAlgoritmo = ScegliOpzioneMenu(aTitolo,0,"Seleziona Tipo Analisi")
End Function
Function scriviAlgoritmo(idAlg)
Dim aTitolo
aTitolo = Array("Rip di 1 dei 7 Estratti a Colpo","Rip di 1Coppia Per Estratti a Colpo","Rip di Estr+***at a Colpo","Rip di Coppia+***at a Colpo","TabellaStatisticaFormazione")
scriviAlgoritmo = aTitolo(idAlg)
End Function
Function GetIdEstrazioneInizio
ReDim aEstr(EstrazioniArchivioFT)
Dim qEstr
Dim i
For i = 1 To UBound(aEstr)
aEstr(i) = i
Next
qEstr = EstrazioniArchivioFT - 500
GetIdEstrazioneInizio = ScegliOpzioneMenu(aEstr,qEstr,"Estrazioni: " & EstrazioniArchivioFT & " Caricate : " & 500)
End Function
Function GetIdEstrazioneFine
ReDim aEstr(EstrazioniArchivioFT)
Dim i
For i = 1 To UBound(aEstr)
aEstr(i) = i
Next
GetIdEstrazioneFine = ScegliOpzioneMenu(aEstr,EstrazioniArchivioFT,"Estrazione Fine Statistica")
End Function
Function GetPosizioneVerifica
Dim aTitolo
aTitolo = Array("P1","P2","P3","P4","P5","P6","P7","Tutte Le Pos")
GetPosizioneVerifica = ScegliOpzioneMenu(aTitolo,0,"ScegliPosizioneDiVerifica") + 1
End Function
Function ScriviPosizioneVerifica(tipoAlgoritmo)
Dim aTitolo
aTitolo = Array("P1","P2","P3","P4","P5","P6","P7","Tutte Le Pos")
ScriviPosizioneVerifica = aTitolo(tipoAlgoritmo - 1)
End Function
Function GetSorte
Dim aV
aV = Array("Estratto","Ambo")
GetSorte = ScegliOpzioneMenu(aV,0,"SelezionaSorte") + 1
End Function
Function getIntestazione(Inizio,fine,sorte,IdAlg,PosInEsame)
Scrivi "Il Gioco è vietato ai minori di anni 18,e,può comportare gravissima dipendenza patologica"
Scrivi "Giocare solo se è legale,e,dove è Legale"
Scrivi "Lo script non restituisce previsioni ma solo dati statistici"
Scrivi
Scrivi FormatSpace("Ricerca Statistica ",60),True,,RGB(254,236,107),vbBlue
Scrivi "Inizio Ricerca : " & GetInfoEstrazioneFT(Inizio)
Scrivi "Fine Ricerca : " & GetInfoEstrazioneFT(fine)
Scrivi "Calcolo su : " & fine - Inizio & " Estrazioni"
Scrivi "Algoritmo Analizzato : " & scriviAlgoritmo(IdAlg)
Scrivi "Sorte Esaminata : " & NomeSorte(sorte)
If IdAlg < 4 Then
Scrivi "Posizioni Esaminate : " & ScriviPosizioneVerifica(PosInEsame)
End If
End Function
Function Freq2EstrattiInPos(E1,E2,idEstr,tipoalgoritmo,sorte)
Dim aNum(2)
If sorte = 1 Then
Select Case tipoalgoritmo
Case 1,2,3,4,5,6,7
If PosizioneFT(idEstr,E1) = tipoalgoritmo Or PosizioneFT(idEstr,E2) = tipoalgoritmo Then
Freq2EstrattiInPos = True
Else
Freq2EstrattiInPos = False
End If
Case 8
If PosizioneFT(idEstr,E1) > 0 Or PosizioneFT(idEstr,E2) > 0 Then
Freq2EstrattiInPos = True
Else
Freq2EstrattiInPos = False
End If
End Select
ElseIf sorte = 2 Then
aNum(1) = E1
aNum(2) = E2
If SerieFreqFT(idEstr,idEstr ,aNum,sorte) > 0 Then
Freq2EstrattiInPos = True
Else
Freq2EstrattiInPos = False
End If
End If
End Function
Function PresenzaEstrattiInPos(E1,idEstr,tipoalgoritmo)
Select Case tipoalgoritmo
Case 1,2,3,4,5,6,7
If PosizioneFT(idEstr,E1) = tipoalgoritmo Then
PresenzaEstrattiInPos = True
Else
PresenzaEstrattiInPos = False
End If
Case 8
If PosizioneFT(idEstr,E1) > 0 Then
PresenzaEstrattiInPos = True
Else
PresenzaEstrattiInPos = False
End If
End Select
End Function
Sub AlgoritmoRipetizionePosiazioneAcolpo(Inizio,Fine,idalg)
Dim idEstr,nTotEstr
Dim pos,E,iAdattatore,sPos
Dim Freq,Rit,RitMax,Incr
Dim nAlg,idSviluppo
Dim uE,uNum,k,i
Dim sIncr,ScartoRit
Dim TipoAlgoritmo
Dim T1,T2
ReDim aRit(0)
ReDim aIncr(0)
nTotEstr = Fine - Inizio
nAlg = 7*((Fine - 1) - Inizio)
TipoAlgoritmo = GetPosizioneVerifica
T1 = Timer
idSviluppo = 0
For pos = 1 To 7
' azzero le variabili per ogni estratto
Rit = 0
RitMax = 0
Freq = 0
Incr = 0
k = 0
' ciclo sino alla penultima estrazione per valorizzare l ultimo ritardo a colpo
For idEstr = Inizio To Fine - 1
idSviluppo = idSviluppo + 1
If idEstr Mod Round((nTotEstr/2),0) = 0 Then
Call Messaggio("StoElaborando: " & nTotEstr & " Estr.[Alg( pos: " & pos & ")]")
Call AvanzamentoElab(1,nAlg,idSviluppo)
End If
If ScriptInterrotto Then Exit For
E = EstrattoFT(idEstr,pos)
If PresenzaEstrattiInPos(E,idEstr + 1,TipoAlgoritmo) Then
Rit = 0
Incr = 0
Freq = Freq + 1
Else
Rit = Rit + 1
If Rit > RitMax Then
RitMax = Rit
Incr = Incr + 1
End If
End If
Next
uNum = EstrattoFT(Fine,pos)
ScartoRit = RitMax - Rit
sPos = "(" & pos & ")"
If ScriptInterrotto Then Exit For
Dim aTab
Call GetTabellaLineare(aTab,sPos,Rit,RitMax,ScartoRit,Incr,Freq,uNum)
Call ***RigaTabella(aTab)
'Scrivi sIncr
'Next
Next
T2 = Timer
Call getIntestazione(Inizio,Fine,1,idalg,TipoAlgoritmo)
Call CreaTabellaOrdinabile
End Sub
Sub AlgoritmoRipetizioneCoppiaAcolpo(Inizio,Fine,idalg)
Dim idEstr,nTotEstr
Dim pos,Pos1,E,iAdattatore,sPos
Dim Freq,Rit,RitMax,Incr
Dim nAlg,idSviluppo
Dim uE,uNum,k,i,sorte
Dim sIncr,ScartoRit
Dim TipoAlgoritmo,sNum
Dim E1,E2
Dim T1,T2
ReDim aRit(0)
ReDim aIncr(0)
'ReDim aNum(2)
nTotEstr = Fine - Inizio
nAlg = 21*((Fine - 1) - Inizio)
sorte = GetSorte
If sorte = 1 Then
TipoAlgoritmo = GetPosizioneVerifica
ElseIf sorte = 2 Then
TipoAlgoritmo = 8
End If
T1 = Timer
idSviluppo = 0
For pos = 1 To 6
For Pos1 = pos + 1 To 7
' azzero le variabili per ogni estratto
Rit = 0
RitMax = 0
Freq = 0
Incr = 0
k = 0
' ciclo sino alla penultima estrazione per valorizzare l ultimo ritardo a colpo
For idEstr = Inizio To Fine - 1
idSviluppo = idSviluppo + 1
If idEstr Mod Round((nTotEstr/2),0) = 0 Then
Call Messaggio("StoElaborando: " & nTotEstr & " Estr.[Alg( pos: " & pos & ")]")
Call AvanzamentoElab(1,nAlg,idSviluppo)
End If
If ScriptInterrotto Then Exit For
E1 = EstrattoFT(idEstr,pos)
E2 = EstrattoFT(idEstr,Pos1)
If Freq2EstrattiInPos(E1,E2,idEstr + 1,TipoAlgoritmo,sorte) Then
Rit = 0
Incr = 0
Freq = Freq + 1
Else
Rit = Rit + 1
If Rit > RitMax Then
RitMax = Rit
Incr = Incr + 1
End If
End If
Next
E1 = EstrattoFT(Fine,pos)
E2 = EstrattoFT(Fine,Pos1)
sNum = Format2(E1) & "." & Format2(E2)
ScartoRit = RitMax - Rit
If ScriptInterrotto Then Exit For
Dim aTab
sPos = "(" & pos & "," & Pos1 & ")"
Call GetTabellaLineare(aTab,sPos,Rit,RitMax,ScartoRit,Incr,Freq,sNum)
Call ***RigaTabella(aTab)
'Scrivi sIncr
'Next
Next
Next
T2 = Timer
Call getIntestazione(Inizio,Fine,sorte,idalg,TipoAlgoritmo)
Call CreaTabellaOrdinabile
End Sub
Sub GetTabellaLineare(aTab,pos,Rit,RitMax,Scarto,Incr,Freq,sNum)
aTab = Array("","P_" & pos,Rit,RitMax,Scarto,Incr,Freq,sNum)
End Sub
Sub AlgoritmoRipetizioneSommativoPosiazioneAcolpo(Inizio,Fine,idalg)
Dim idEstr,nTotEstr
Dim pos,E,iAdattatore,sPos
Dim Freq,Rit,RitMax,Incr
Dim nAlg,idSviluppo
Dim uE,uNum,k,i,Som
Dim sIncr,ScartoRit
Dim TipoAlgoritmo
Dim T1,T2
ReDim aRit(0)
ReDim aIncr(0)
nTotEstr = Fine - Inizio
nAlg = 49*7*nTotEstr
TipoAlgoritmo = GetPosizioneVerifica
T1 = Timer
idSviluppo = 0
For Som = 1 To 49
For pos = 1 To 7
' azzero le variabili per ogni estratto
Rit = 0
RitMax = 0
Freq = 0
Incr = 0
k = 0
' ciclo sino alla penultima estrazione per valorizzare l ultimo ritardo a colpo
For idEstr = Inizio To Fine - 1
idSviluppo = idSviluppo + 1
If idEstr Mod Round((nTotEstr/2),0) = 0 Then
Call Messaggio("StoElaborando: " & nTotEstr & " Estr.[Alg( pos: " & pos & "+Adat:&" & Som & ")]")
Call AvanzamentoElab(1,nAlg,idSviluppo)
End If
If ScriptInterrotto Then Exit For
E = Fuori49(EstrattoFT(idEstr,pos) + Som)
If PresenzaEstrattiInPos(E,idEstr + 1,TipoAlgoritmo) Then
Rit = 0
Incr = 0
Freq = Freq + 1
Else
Rit = Rit + 1
If Rit > RitMax Then
RitMax = Rit
Incr = Incr + 1
End If
End If
Next
uNum = Fuori49(EstrattoFT(Fine,pos) + Som)
ScartoRit = RitMax - Rit
sPos = "(" & pos & ")"
If ScriptInterrotto Then Exit For
Dim aTab
Call GetTabellaLineare1(aTab,sPos,Som,Rit,RitMax,ScartoRit,Incr,Freq,uNum)
Call ***RigaTabella(aTab)
'Scrivi sIncr
'Next
Next
Next
T2 = Timer
Call getIntestazione(Inizio,Fine,1,idalg,TipoAlgoritmo)
Call CreaTabellaOrdinabile
End Sub
Sub AlgoritmoRipetizioneSommativo2EstrPosiazioneAcolpo(Inizio,Fine,idalg)
Dim idEstr,nTotEstr
Dim pos,pos1,E,iAdattatore,sPos
Dim Freq,Rit,RitMax,Incr
Dim nAlg,idSviluppo
Dim uE,uNum,k,i,Som
Dim sIncr,ScartoRit
Dim TipoAlgoritmo
Dim T1,T2
ReDim aRit(0)
ReDim aIncr(0)
nTotEstr = Fine - Inizio
nAlg = 49*21*nTotEstr
TipoAlgoritmo = GetPosizioneVerifica
T1 = Timer
idSviluppo = 0
For Som = 1 To 49
For pos = 1 To 6
For pos1 = pos + 1 To 7
' azzero le variabili per ogni estratto
Rit = 0
RitMax = 0
Freq = 0
Incr = 0
k = 0
' ciclo sino alla penultima estrazione per valorizzare l ultimo ritardo a colpo
For idEstr = Inizio To Fine - 1
idSviluppo = idSviluppo + 1
If idEstr Mod Round((nTotEstr/2),0) = 0 Then
Call Messaggio("StoElaborando: " & nTotEstr & " Estr.[Alg( pos: " & pos & "+" & pos1 & "+Adat:&" & Som & ")]")
Call AvanzamentoElab(1,nAlg,idSviluppo)
End If
If ScriptInterrotto Then Exit For
E = Fuori49(EstrattoFT(idEstr,pos) + EstrattoFT(idEstr,pos1) + Som)
If PresenzaEstrattiInPos(E,idEstr + 1,TipoAlgoritmo) Then
Rit = 0
Incr = 0
Freq = Freq + 1
Else
Rit = Rit + 1
If Rit > RitMax Then
RitMax = Rit
Incr = Incr + 1
End If
End If
Next
uNum = Fuori49(EstrattoFT(Fine,pos) + EstrattoFT(Fine,pos1) + Som)
ScartoRit = RitMax - Rit
sPos = "(" & pos & "+" & pos1 & ")"
If ScriptInterrotto Then Exit For
Dim aTab
Call GetTabellaLineare1(aTab,sPos,Som,Rit,RitMax,ScartoRit,Incr,Freq,uNum)
Call ***RigaTabella(aTab)
'Scrivi sIncr
Next
Next
Next
T2 = Timer
Call getIntestazione(Inizio,Fine,1,idalg,TipoAlgoritmo)
Call CreaTabellaOrdinabile
End Sub
Sub CalcolaStatistica(Inizio,Fine,idAlg)
Dim nClasse,nColTot,idComb,sNum
Dim sorte,Rit,RitMax,Incr,Freq,scarto
Dim CicloT,i
Dim PosInEsame :PosInEsame = ""
ReDim aNum(49)
For i = 1 To UBound(aNum)
aNum(i) = i
Next
nClasse = Int(InputBox("Inserisci un numero tra 1 e 4 ","SelezionaClasseDiSviluppo",2))
Do While nClasse > 4
MsgBox"La Classe non puo essere superiore a 4",vbCritical,vbYes
nClasse = Int(InputBox("Inserisci un numero tra 1 e 4 ","SelezionaClasseDiSviluppo",2))
Loop
sorte = Int(InputBox("Inserisci un numero tra 1 e " & nClasse,"SelezionaSorteDiVerifica",nClasse - 1))
CicloT = CicloTeorico(nClasse,sorte,,7,49)
nColTot = InitSviluppoIntegrale(aNum,nClasse)
Dim aTitoli
aTitoli = Array("","sNum","Rit","RitMax","ScartoR","Incr","Freq")
Call InitTabella(aTitoli)
idComb = 0
Do While GetCombSviluppo(aNum)
sNum = StringaNumeri(aNum,".",True)
idComb = idComb + 1
Call Messaggio("Formazione : " & sNum)
Call AvanzamentoElab(1,nColTot,idComb)
Call StatisticaFormazioneFT(aNum,sorte,Rit,RitMax,Incr,Freq,Inizio,Fine)
scarto = RitMax - Rit
Dim aTab
aTab = Array("",sNum,Rit,RitMax,scarto,Incr,Freq)
' qui si puo scrivere qualsiasi filtro si voglia
If scarto <= 9 Then Call ***RigaTabella(aTab)
If ScriptInterrotto Then Exit Do
Loop
Call getIntestazione(Inizio,Fine,sorte,idAlg,PosInEsame)
Scrivi "CicloTeoricoComb : " & CicloT

Call CreaTabellaOrdinabile()
End Sub
Sub GetTabellaLineare1(aTab,pos,Som,Rit,RitMax,ScartoRit,Incr,Freq,uNum)
aTab = Array("","P_" & pos,"+" & Som,Rit,RitMax,ScartoRit,Incr,Freq,uNum)
End Sub
Sub GetTabEstrazioni(fine)
Dim idEstr,rit
Dim aTitoli
rit = 19
aTitoli = Array("","DATA_ESTRAZIONE","ESTRATTI","RIT")
Call InitTabella(aTitoli)
For idEstr =(fine - rit) + 1 To fine
rit = rit - 1
Dim aTab
aTab = Array("",GetInfoEstrazioneFT(idEstr),StringaEstrattiFT(idEstr),rit)
Call ***RigaTabella(aTab)
Next
Scrivi FormatSpace("Ultime 19 Estrazioni",42),True,,vbBlue,vbWhite
Call CreaTabella
End Sub

ciao
a dopo
ora mi preparo la cena leggera leggera

scusa mi da errorre di sintassi Call ***RigaTabella(aTab)

 

[arcor]

grazie magia per gli aggiornamenti per i legend ti posto a grandi linee le variee opzioni di gioco di uk49.sono riferite al vecchio sito dove si scommetteva prima -ora sulla piattaforma sudafricana le regole cambiano leggermente.l'estratto con jolly incluso paga 5.5 senza jolly 6.5 auguri di un buon 2016​ Vediamo quali sono le regole essenziali e le combinazioni di gioco per il Lotto UK49's. Numeri in gioco: 49 Numeri estratti: 6 + 1 jolly Giorno d'estrazione: tutti i giorni, due volte al giorno; ore 14 ed ore 19 Combinazioni di gioco: Estratto : su 6 estratti paga 7,5 volte la posta - su 7 estratti, jolly incluso, si vince 6,5 volte la posta Numero jolly che paga 45 volte la posta Primo numero estratto che paga 45 volte la posta Primo numero estratto pari o dispari che paga 1,83 volte la posta Colore del jolly che paga 6,5 volte la posta Somma degli estratti ( somma dei primi sei estratti, jolly escluso/i ): per la somma 21 - 74 si riscuote 82 volte la posta per la somma 75 - 100 si riscuote 15 volte la posta per la somma 101 - 110 si riscuote 17 volte la posta per la somma 111 - 120 si riscuote 13 volte la posta per la somma 121 - 130 si riscuote 10 volte la posta per la somma 131 - 140 si riscuote 8,5 volte la posta per la somma 141 - 150 si riscuote 8 volte la posta per la somma 151 - 160 si riscuote 8 volte la posta per la somma 161 - 170 si riscuote 8,5 volte la posta per la somma 171 - 180 si riscuote 10 volte la posta per la somma 181 - 190 si riscuote 13 volte la posta per la somma 191 - 200 si riscuote 17 volte la posta per la somma 201 - 210 si riscuote 26 volte la posta per la somma 211 - 279 si riscuote 26 volte la posta Indovinare ogni numero se e' maggiore o minore ( del fisso 25 ), il gioco paga 53 volte la posta Combinazioni : giocare le sorti di estratto, ambo, terno, quaterna o cinquina, 1 numero nei primi 6 estratti, si vince 7,5 volte la posta, su 7 estratti, jolly incluso, si vince 6,5 volte la posta 2 numeri nei primi 6 estratti, si vince 67 volte la posta, su 7 estratti, jolly incluso, si vince 45 volte la posta 3 numeri nei primi 6 estratti, si vince 701 volte la posta, su 7 estratti, jolly incluso, si vince 441 volte la posta 4 numeri nei primi 6 estratti, si vince 10.001 volte la posta, su 7 estratti, jolly incluso, si vince 5.001 volte la posta Pari/dispari - consiste nel pronosticare se ognuno dei 6 numeri estratti sarà pari o dispari - paga 53 volte la posta

 

[arcor]

confermo l'errore di alien

 

[i legend]

ciao a tutti é un problema di scrittura del codice
la stringa é Call addRigaTabella(aTab)
allora nel nuovo script ho aggiunto la possibilita di escludere il jolly
la statistica sulle somme , l,ambo
domanda:
per il pari dispari la statistica e sul numero singolo oppure tutta la stringa?
invece per il maggioore Uguale a 25?
lo script lo riscripto daccapo appena ci sono le nuove funzioni di luigi posto tutto
anche con le nuove ricerche se capisco che devo fare
felice anno nuovo

 

[i legend]

"Call A D D RIGATABELLA"

 

[arcor]

ciao legend per il pari dispari viene preso in esame solo il primo numero estratto che determina se è pari-dispari.invece per la scommessa basso-alto diciamo così,avviene in questo modo occorre indovinare la sequenza esatta delle prime sei palline estratte dal n,1 al 24 ed al 25

al 49.esempio di gioco

prima palla scommetto under 25-quindi valgono le palline coi numeri fino al 24
seconda palla scommetto under 25-idem come sospra
terza palla scommetto il 25 o over quindi valgono dal 25 al 49
quarta palla scommetto under 25 palline dal 1-24
quinta palla scommetto 25 o over valgono dal 25 al 49
sesta palla scommetto under 25-valgono dal 1-24

buon lavoro.ci sarà sicuramente utile il tuo script

 

[silop2005]

[TABLE="border: 0, cellspacing: 0, width: 832"]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]ho aggiornato SPMT vers. 1.5.73 e relativo plug in SVP vers. 1.0.53[/TD]
[/TR]
[TR]
[TD]Ciao i legend ,[/TD]
[/TR]
[TR]
[TD]======================[/TD]
[/TR]
[TR]
[TD]dove sono le regole?[/TD]
[/TR]
[TR]
[TD]cosi faccio uno script alla cieca[/TD]
[/TR]
[TR]
[TD]fatemi sapere[/TD]
[/TR]
[TR]
[TD]======================[/TD]
[/TR]
[TR]
[TD]Oltre a quello già scritto dal bravo arcor sui premi,[/TD]
[/TR]
[TR]
[TD]potresti dare uno sguardo anche su un mio[/TD]
[/TR]
[TR]
[TD]vecchio sito personale dove sono elencate[/TD]
[/TR]
[TR]
[TD]le varie modalità di gioco e relativi premi,[/TD]
[/TR]
[TR]
[TD]che puoi trovare su internet ricercando cosi : silop/bet365/moltiplicatori[/TD]
[/TR]
[TR]
[TD]======================[/TD]
[/TR]
[TR]
[TD]Chiedo anche ad arcor di guardare le tabelle (sul mio sito) ed indicarmi gli eventuali[/TD]
[/TR]
[TR]
[TD]aggiornamenti sui premi attuali del nuovo bookmaker che rifaccio le tabelle.[/TD]
[/TR]
[TR]
[TD]======================[/TD]
[/TR]
[TR]
[TD]Le righe degli errori nello script (sopra) devono essere sostituite con :[/TD]
[/TR]
[TR]
[TD]Call ***RigaTabella(aTab)
al posto degli asterischi scrivere ( A D D)
senza le parentesi e senza spazi[/TD]
[/TR]
[TR]
[TD]e poi tutto funzionerà bene.[/TD]
[/TR]
[TR]
[TD]======================[/TD]
[/TR]
[TR]
[TD]Bravo ilegend stai facendo un buon script sulle lotterie estere.[/TD]
[/TR]
[TR]
[TD]AUGURI DI BUON ANNO 2016 a TUTTI.[/TD]
[/TR]
[TR]
[TD]

[/TD]
[/TR]
[TR]
[TD]Buona serata a tutti.[/TD]
[/TR]
[TR]
[TD]A presto[/TD]
[/TR]
[TR]
[TD]Silop [/TD]
[/TR]
[/TABLE]

 

[arcor]

ciao silop ecco i parametri principali sul sito sudafricano con jolly compreso
esratto-5.5
ambo-52
terno-450
quaterna-5000
la scommessa senza jolly è prevista solo per l'estratto che paga-6.5
la scommessa sui 7 colori paga 5.5
la giocata solo jolly-47
1 Number 5.5
2 Number 52
3 Number 450
4 Number 5000
Bonus Ball Lo - Hi 1
Bonus Ball Single 4.25
Bonus Ball 47

ti informo che sono in contatto con un altro book sudafricano dove è previsto che entro (si spera)la prossima primavera sarà possibile l'iscrizione anche ai non residenti sudafricani-il sito propone quasi tutte le scommesse che aveva il vecchio bet.quindi ci sono anche 1 estratto somme etc.quando sarà attivo ti informo sicuramente.
​

 

[i legend]

Ciao a tutti purtroppo le informazioni sono contr***ittorie , aspettando le nuove funzioni implementate da luigi posto il nuovo script
Controllare se quello che fa ogni routine è sufficiente o se fa troppo . se fa troppo si potrebbe snellire e velocizzare .
Non cancellare il disclaimer