pfca |
|
| Ciao cascoblu, questo è lo script che chiedi: CODICE 'Somma BA-CA-TO-VE realizzato per cascoblu da pfca
Sub Main
Dim num(5)
Dim ruota(5)
Dim ruote(5)
Dim posta(3)
posta(1) = 0 ' < - - - posta per estratto
posta(2) = 2 ' < - - - posta per ambo
posta(3) = 1 ' < - - - posta per terno
ruota(1) = 1
ruota(2) = 11
ruota(3) = 12
k = 12 ' < - - - Colpi di gioco
ini = EstrazioneFin - 100
es = InputBox("Inserisci 0 ultima, 1 prima, ....:",,0)
For n = ini To EstrazioneFin ' < - - - - Numero estrazioni
If(((eval(es) = 0)And(n = ultest))Or((IndiceMensile(n) = eval(es)And(eval(es) > 0))Or((IndiceMensile(n + 1) = 1)And(eval(es) = 0)))) Then
num(1) = Fuori90(SommaEstratti(n,1))
num(2) = Fuori90(SommaEstratti(n,2))
num(3) = Fuori90(SommaEstratti(n,9))
num(4) = Fuori90(SommaEstratti(n,10))
ColoreTesto 1
Scrivi FormatSpace(DataEstrazione(n),10) & " Somme: " & FormatSpace(num(1),2)&" - "& FormatSpace(num(2),2)&" - "& FormatSpace(num(3),2)&" - "& FormatSpace(num(4),2),1
ColoreTesto 0
ImpostaGiocata 1,num,ruota,posta,k,2
Gioca n
End If
Next
ColoreTesto 1
Scrivi ""
Scrivi " • pfca • ",1
Scrivi ""
ColoreTesto 0
ScriviResoconto
End Sub Francesco |
| | |
