Mi servirebbe un aiuto per uno script

[gorilla81]

Salve ragazzi! Mi servirebbe un aiuto per questo script:

Sub Main()
Dim rt(2),pt(4)
Dim n1(4)
pt(1) = 1

clp = 13 'colpi di gioco
rt(1) = 7 'la ruota di gioco

ini = EstrazioneFin - 120
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then 'ultima estrazione del mese
Scrivi String(60,"=")
co = co + 1
a = Estratto(es,2,3)


'------------------------------Numeri in gioco
n1(1) = Fuori90(a + 33)
n1(2) = Fuori90(a + 82)

ImpostaGiocata 2,n1,rt,pt,clp


Gioca es
End If
Next
ScriviResoconto
End Sub



Non riesco ad inserire la stringa per farlo fermare al primo risultato utile. Sareste così gentili da farmi vedere come si fa??? Ho letto la guida per farlo da solo ma non ci riesco. Grazie mille a chi mi sarà d'aiuto!!!

 

[Baffoblu]

Salve ragazzi! Mi servirebbe un aiuto per questo script:

Sub Main()
Dim rt(2),pt(4)
Dim n1(4)
pt(1) = 1

clp = 13 'colpi di gioco
rt(1) = 7 'la ruota di gioco

ini = EstrazioneFin - 120
fin = EstrazioneFin
co = 0
For es = ini To fin
Messaggio(es)
If IndiceMensile(es) = 12 Then 'ultima estrazione del mese
Scrivi String(60,"=")
co = co + 1
a = Estratto(es,2,3)


'------------------------------Numeri in gioco
n1(1) = Fuori90(a + 33)
n1(2) = Fuori90(a + 82)

ImpostaGiocata 2,n1,rt,pt,clp


Gioca es
End If
Next
ScriviResoconto
End Sub



Non riesco ad inserire la stringa per farlo fermare al primo risultato utile. Sareste così gentili da farmi vedere come si fa??? Ho letto la guida per farlo da solo ma non ci riesco. Grazie mille a chi mi sarà d'aiuto!!!

Nella guida è spiegato..........

ad ogni modo

Sub Main()
    Dim rt(1)'numero di ruote interessate
    Dim pt(1)'tipo di puntata
    Dim n1(2)'quantita di numeri in gioco
    pt(1) = 1'puntata per ambata
    clp = 13 'colpi di gioco
    rt(1) = 7 'la ruota di gioco
    ini = EstrazioneFin - 120
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        Messaggio(es)
        If IndiceMensile(es) = 12 Then 'ultima estrazione del mese
            '-----------------------------------------------------------
            '-----------------------------------------------------------
            ' il gioco si svolve alla 12° estrazione del mese che non sempre corrisponde all'ultima
            '-----------------------------------------------------------
            Scrivi String(60,"=")
            co = co + 1
            a = Estratto(es,2,3)
            '------------------------------Numeri in gioco
            n1(1) = Fuori90(a + 33)
            n1(2) = Fuori90(a + 82)
            ImpostaGiocata 1,n1,rt,pt,clp,1'qui il numero 1 serve per far fermare al primo esito raggiunto
            Gioca es
        End If
    Next
    ScriviResoconto
End Sub

 

[gorilla81]

Grazie mille Baffoblu! Adesso avrei un'altra domanda da fare...perchè me ne ero dimenticato... invece di una posta fissa si potrebbe inserire una progressione di gioco?
Scusa ancora per il disturbo!

 

[LuigiB]

ciao con l'installazione vengono forniti numerosi script di esempio uno di questi si chiama Test_Progressione.ls aprilo con l'apposita
icona per aprire gli script si trova nella directory script\test
parti da quello e vedi cio che non ti è chiaro nell'help dello script

 

[gorilla81]

Io uso la versione 1.3.17 e questo qui non lo vedo...devo per forza scaricare l'ultima versione?

 

[Roby]

Io uso la versione 1.3.17 e questo qui non lo vedo...devo per forza scaricare l'ultima versione?

E' sempre meglio avere l'ultima versione, comunque l'esempio che dice Luigi c'è anche nella versione che hai tu
Si trova negli Script, cartella TEST (il listato si chiama, Test_progressione)
Ciao


http://img515.imageshack.us/img515/6590/testprogressione.jpg