Script su Metodi Cabalistici, Ciclometrici & C.

[EVERITA C]

 

[EVERITA C]

Ciao Salvo ecco un'altro metodo da scriptare.

Spero sia fattibile.

Quando puoi. Grazie infinite di cuore.

 

[salvo50]

Non è fattibile

Primo perchè la prima immagine si vede malissimo e se la ingrandisco è peggio
secondo perché appaiono dei quadretti tipo A, B, C, ecc... con dei numeri
che non spiega come li ha ottenuti, presumo dato che come dice il titolo

Metodo che vince non si cambia

abbia già spiegato i numeri dei quadretti, nell'articolo prima di questo

 

[EVERITA C]

Ciao Salvo grazie ugualmente.

Non importa hai gia' fatto abbastanza se ho altri metodi cartacei li postero'.

 

[EVERITA C]

'METODO CHE VINCE NON SI CAMBIA + giocata

'07/06/2022

ColoreTesto 2

Scrivi String(37,32) & "METODO CHE VINCE NON SI CAMBIA + giocata",1

Scrivi String(45,32) & "List.by DjNomade",1

ColoreTesto 0

Sub Main()

Dim nu1(10),nu2(10),nu3(10),nu4(10)

Dim ruote(10),ruota(10)

Dim poste1(5),poste2(5),poste3(5),poste4(5),poste5(5),poste6(5),poste7(5),poste8(5),poste9(5),poste10(5)

Dim poste11(5),poste12(5),poste13(5),poste14(5),poste15(5),poste16(5),poste17(5),poste18(5),poste19(5),poste20(5)

Dim poste21(5),poste22(5),poste23(5),poste24(5),poste25(5),poste26(5),poste27(5),poste28(5),poste29(5),poste30(5)

Dim poste31(5),poste32(5)





y = CInt (InputBox("QUANTE ESTRAZIONE VUOI CONTROLLARE ?","",10))

fin = EstrazioneFin

ini = EstrazioneFin-y 'fin - 30 '6501 BA-VE' esempio****6496 GE-MI' esempio****6538 MI-NA' esempio

For es = ini To fin

AvanzamentoElab ini,fin,es

For r1 = 1 To 10

For p1 = 1 To 4

For p2 = p1 + 1 To 5

n1 = Estratto(es,r1,p1)'6

n2 = Estratto(es,r1,p2)'75

For r2 = r1 + 1 To 11

If r2 = 11 Then r2 = 12

For p3 = 1 To 4

For p4 = p3 + 1 To 5

n3 = Estratto(es,r2,p3)'

n4 = Estratto(es,r2,p4)'

n5 = Distanza(Minimo(n1,n2),Massimo(n3,n4))'distanza diag

n6 = Distanza(Massimo(n1,n2),Minimo(n3,n4))'distanza diag

n7 = Distanza(n1,n2)'distanza orizz

n8 = Distanza(n3,n4)'distanza orizz

n9 = Distanza(Minimo(n1,n2),Minimo(n3,n4))'Distanza vert

n10 =Distanza(Massimo(n1,n2),Massimo(n3,n4))'Distanza vert

n11 = Fuori90(Massimo(n1,n2)+Minimo(n3,n4))'somma diag

n12 =Fuori90(Minimo(n1,n2)+Massimo(n3,n4))'somma diag

If n7=n8 And (n5=n7 Or n6=n7) And n9 = n10 And n11 = n12 And n1<>n3 And n1<>n4 And n2<>n3 And n2<>n4 Then

so1=Fuori90(n7+n9) '14+28=42

nn1=Fuori90(Minimo(n1,n2)+so1)' 2+42=44

nn2=Fuori90(Massimo(n1,n2)+so1)'16+42=58

nn3=Fuori90(Minimo(n3,n4)+so1)' 64+42=16

nn4=Fuori90(Massimo(n3,n4)+so1) '78+42=30

mm1=Fuori90(nn1+nn2):mm2=Fuori90(nn2+nn4):mm3=Fuori90(nn3+nn4):mm4=Fuori90(nn1+nn3)

ss1=Fuori90(nn1+nn4):ss2=Fuori90(nn2+nn3):ss3=Fuori90(mm1+mm3):ss4=Fuori90(mm2+mm4)



'************************************

so2=Fuori90(n7+90-n9) '14+(90-28)=76

nn11=Fuori90(Minimo(n1,n2)+so2)' 2+76=78

nn22=Fuori90(Massimo(n1,n2)+so2)'16+76=02

nn33=Fuori90(Minimo(n3,n4)+so2)' 64+76=50

nn44=Fuori90(Massimo(n3,n4)+so2) '78+76=64

mm11=Fuori90(nn11+nn22):mm22=Fuori90(nn22+nn44):mm33=Fuori90(nn33+nn44):mm44=Fuori90(nn11+nn33)

ss11=Fuori90(nn11+nn44):ss22=Fuori90(nn22+nn33):ss33=Fuori90(mm11+mm33):ss44=Fuori90(mm22+mm44)

'************************************

so3=Fuori90(n7+n7) '14+14)=28

nn111=Fuori90(Minimo(n1,n2)+so3)' 2+28=30

nn222=Fuori90(Massimo(n1,n2)+so3)'16+28=44

nn333=Fuori90(Minimo(n3,n4)+so3)' 64+2802

nn444=Fuori90(Massimo(n3,n4)+so3) '78+28=16

mm111=Fuori90(nn111+nn222):mm222=Fuori90(nn222+nn444):mm333=Fuori90(nn333+nn444):mm444=Fuori90(nn111+nn333)

ss111=Fuori90(nn111+nn444):ss222=Fuori90(nn222+nn333):ss333=Fuori90(mm111+mm333):ss444=Fuori90(mm222+mm444)







'************************************************

' A1

so4=Fuori90(90-n7+n9) '90-14+28=14

nn1111=Fuori90(Minimo(n1,n2)+so4)' 2+14=16

nn2222=Fuori90(Massimo(n1,n2)+so4)'16+14=30

nn3333=Fuori90(Minimo(n3,n4)+so4)' 64+14=78

nn4444=Fuori90(Massimo(n3,n4)+so4) '78+14=02

mm1111=Fuori90(nn1111+nn2222):mm2222=Fuori90(nn2222+nn4444):mm3333=Fuori90(nn3333+nn4444):mm4444=Fuori90(nn1111+nn3333)

ss1111=Fuori90(nn1111+nn4444):ss2222=Fuori90(nn2222+nn3333):ss3333=Fuori90(mm1111+mm3333):ss4444=Fuori90(mm2222+mm4444)



'************************************

' B1

so5=Fuori90(90-n7+90-n9) '90-14+(90-28)=48

nn11111=Fuori90(Minimo(n1,n2)+so5)' 2+48=78

nn22222=Fuori90(Massimo(n1,n2)+so5)'16+48=02

nn33333=Fuori90(Minimo(n3,n4)+so5)' 64+48=50

nn44444=Fuori90(Massimo(n3,n4)+so5) '78+48=64

mm11111=Fuori90(nn11111+nn22222):mm22222=Fuori90(nn22222+nn44444):mm33333=Fuori90(nn33333+nn44444):mm44444=Fuori90(nn11111+nn33333)

ss11111=Fuori90(nn11111+nn44444):ss22222=Fuori90(nn22222+nn33333):ss33333=Fuori90(mm11111+mm33333):ss44444=Fuori90(mm22222+mm44444)

'************************************

' C1

so6=Fuori90(90-n7+90-n7) '76+76)=62

nn111111=Fuori90(Minimo(n1,n2)+so6)' 2+62=64

nn222222=Fuori90(Massimo(n1,n2)+so6)'16+62=78

nn333333=Fuori90(Minimo(n3,n4)+so6)' 64+62=36

nn444444=Fuori90(Massimo(n3,n4)+so6) '78+62=50

mm111111=Fuori90(nn111111+nn222222):mm222222=Fuori90(nn222222+nn444444):mm333333=Fuori90(nn333333+nn444444):mm444444=Fuori90(nn111111+nn333333)

ss111111=Fuori90(nn111111+nn444444):ss222222=Fuori90(nn222222+nn333333):ss333333=Fuori90(mm111111+mm333333):ss444444=Fuori90(mm222222+mm444444)



If ss111+nn111=90_

Or ss111+nn222=90_

Or ss111+nn333=90_

Or ss111+nn444=90_

Or ss111+mm111=90_

Or ss111+mm222=90_

Or ss111+mm333=90_

Or ss111+mm444=90_

Or ss333+nn111=90_

Or ss333+nn222=90_

Or ss333+nn333=90_

Or ss333+nn444=90_

Or ss333+mm111=90_

Or ss333+mm222=90_

Or ss333+mm333=90_

Or ss333+mm444=90_

Or ss111111+nn111111=90_

Or ss111111+nn222222=90_

Or ss111111+nn333333=90_

Or ss111111+nn444444=90_

Or ss111111+mm111111=90_

Or ss111111+mm222222=90_

Or ss111111+mm333333=90_

Or ss111111+mm444444=90_

Or ss333333+nn111111=90_

Or ss333333+nn222222=90_

Or ss333333+nn333333=90_

Or ss333333+nn444444=90_

Or ss333333+mm111111=90_

Or ss333333+mm222222=90_

Or ss333333+mm333333=90_

Or ss333333+mm444444=90 Then











casi = casi + 1

Scrivi

Scrivi String(75,"=") & " caso n° " &(casi),1

Scrivi es & " < " &DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _

" > Ambo " & Format2(n1) & "." & Format2(n2) & " >",1

Scrivi es & " < " &DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _

" > Ambo " & Format2(n3) & "." & Format2(n4) & " >",1

Scrivi

Scrivi" " &Format2( Minimo(n1,n2))& "." &Format2(Massimo(n1,n2)),1

Scrivi" " &Format2(Minimo(n3,n4))& "." &Format2(Massimo(n3,n4)),1

Scrivi



Scrivi " >Distanze Orizzontali "& Format2(n7) & " - " & Format2(n8),1

Scrivi " >Distanze Verticali "& Format2(n9) & " - " & Format2(n10),1

Scrivi " >Distanze Diagonali "& Format2(n5) & " - " & Format2(n6),1

Scrivi " >Somme Diagonali "& Format2(n11) & " - " & Format2(n12),1

Scrivi

Scrivi " A B C ",1

Scrivi ""& Format2(nn1) &" "& Format2(nn2) &"|"& Format2(mm1) &" "& Format2(mm2)&" "& Format2(nn11) &" "& Format2(nn22) &"|"& Format2(mm11) &" "& Format2(mm22)&" "& Format2(nn111) &" "& Format2(nn222) &"|"& Format2(mm111) &" "& Format2(mm222),1

Scrivi ""& Format2(nn4) &" "& Format2(nn3) &"|"& Format2(mm3) &" "& Format2(mm4)&" "& Format2(nn44) &" "& Format2(nn33) &"|"& Format2(mm33) &" "& Format2(mm44)&" "& Format2(nn444) &" "& Format2(nn333) &"|"& Format2(mm333) &" "& Format2(mm444),1

Scrivi "---------- ----------- ------------",1

Scrivi " "& Format2(ss1) &" | "& Format2(ss3) &" "& Format2(ss11) & " | "& Format2(ss33) &" "& Format2(ss111) &" | "& Format2(ss333) ,1

Scrivi

Scrivi

ColoreTesto 2

poste1(2)=0

'Erase poste1

ambo1=0:ambo2=0:ambo3=0:ambo4=0:ambo5=0:ambo6=0:ambo7=0:ambo8=0:ambo9=0:ambo10=0

ambo11=0:ambo12=0:ambo13=0:ambo14=0:ambo15=0:ambo16=0:ambo17=0:ambo18=0:ambo19=0:ambo20=0

ambo21=0:ambo22=0:ambo23=0:ambo24=0:ambo25=0:ambo26=0:ambo27=0:ambo28=0:ambo29=0:ambo30=0

ambo31=0:ambo32=0:ambo33=0:ambo34=0:ambo35=0:ambo36=0:ambo37=0:ambo38=0:ambo39=0:ambo40=0

ambo41=0:ambo42=0:ambo43=0:ambo44=0:ambo45=0:ambo46=0:ambo47=0:ambo48=0:ambo49=0:ambo50=0

ambo51=0:ambo52=0:ambo53=0:ambo54=0:ambo55=0:ambo56=0:ambo57=0:ambo58=0:ambo59=0:ambo60=0

ambo61=0:ambo62=0:ambo63=0:ambo64=0

If ss111+nn111=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn111)&" =90",1 :ambo1=ss111: ambo2=nn111oste1(2) = 1 Else poste1(2) = 0

If ss111+nn222=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn222)&" =90",1 :ambo3=ss111: ambo4=nn222oste2(2) = 1 Else poste2(2) = 0

If ss111+nn333=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn333)&" =90",1 :ambo5=ss111: ambo6=nn333oste3(2) = 1 Else poste3(2) = 0

If ss111+nn444=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(nn444)&" =90",1 :ambo7=ss111: ambo8=nn444oste4(2) = 1 Else poste4(2) = 0

If ss111+mm111=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm111)&" =90",1 :ambo9=ss111: ambo10=mm111oste5(2) = 1 Else poste5(2) = 0

If ss111+mm222=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm222)&" =90",1 :ambo11=ss111: ambo12=mm222oste6(2) = 1 Else poste6(2) = 0

If ss111+mm333=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm333)&" =90",1 :ambo13=ss111: ambo14=mm333oste7(2) = 1 Else poste7(2) = 0

If ss111+mm444=90 Then Scrivi " "& Format2(ss111) &" + "& Format2(mm444)&" =90",1 :ambo15=ss111: ambo16=mm444oste8(2) = 1 Else poste8(2) = 0

If ss333+nn111=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn111)&" =90",1 :ambo17=ss333: ambo18=nn111oste9(2) = 1 Else poste9(2) = 0

If ss333+nn222=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn222)&" =90",1 :ambo19=ss333: ambo20=nn222oste10(2) = 1 Else poste10(2) = 0

If ss333+nn333=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn333)&" =90",1 :ambo21=ss333: ambo22=nn333oste11(2) = 1 Else poste11(2) = 0

If ss333+nn444=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(nn444)&" =90",1 :ambo23=ss333: ambo24=nn444oste12(2) = 1 Else poste12(2) = 0

If ss333+mm111=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm111)&" =90",1 :ambo25=ss333: ambo26=mm111oste13(2) = 1 Else poste13(2) = 0

If ss333+mm222=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm222)&" =90",1 :ambo27=ss333: ambo28=mm222oste14(2) = 1 Else poste14(2) = 0

If ss333+mm333=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm333)&" =90",1 :ambo29=ss333: ambo30=mm333oste15(2) = 1 Else poste15(2) = 0

If ss333+mm444=90 Then Scrivi " "& Format2(ss333) &" + "& Format2(mm444)&" =90",1 :ambo31=ss333: ambo32=mm444oste16(2) = 1 Else poste16(2) = 0



ColoreTesto 0

Scrivi

Scrivi " A1 B1 C1 ",1

Scrivi ""& Format2(nn1111) &" "& Format2(nn2222) &"|"& Format2(mm1111) &" "& Format2(mm2222)&" "& Format2(nn11111) &" "& Format2(nn22222) &"|"& Format2(mm11111) &" "& Format2(mm22222)&" "& Format2(nn111111) &" "& Format2(nn222222) &"|"& Format2(mm111111) &" "& Format2(mm222222),1

Scrivi ""& Format2(nn4444) &" "& Format2(nn3333) &"|"& Format2(mm3333) &" "& Format2(mm4444)&" "& Format2(nn44444) &" "& Format2(nn33333) &"|"& Format2(mm33333) &" "& Format2(mm44444)&" "& Format2(nn444444) &" "& Format2(nn333333) &"|"& Format2(mm333333) &" "& Format2(mm444444),1

Scrivi "---------- ----------- ------------",1

Scrivi " "& Format2(ss1111) &" | "& Format2(ss3333) &" "& Format2(ss11111) & " | "& Format2(ss33333) &" "& Format2(ss111111) &" | "& Format2(ss333333) ,1

Scrivi

Scrivi

ColoreTesto 2

If ss111111+nn111111=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn111111)&" =90",1 :ambo33=ss111111: ambo34=nn111111oste17(2) = 1 Else poste17(2) = 0

If ss111111+nn222222=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn222222)&" =90",1 :ambo35=ss111111: ambo36=nn222222oste18(2) = 1 Else poste18(2) = 0

If ss111111+nn333333=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn333333)&" =90",1 :ambo37=ss111111: ambo38=nn333333oste19(2) = 1 Else poste19(2) = 0

If ss111111+nn444444=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(nn444444)&" =90",1 :ambo39=ss111111: ambo40=nn444444oste20(2) = 1 Else poste20(2) = 0

If ss111111+mm111111=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm111111)&" =90",1 :ambo41=ss111111: ambo42=mm111111oste21(2) = 1 Else poste21(2) = 0

If ss111111+mm222222=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm222222)&" =90",1 :ambo43=ss111111: ambo44=mm222222oste22(2) = 1 Else poste22(2) = 0

If ss111111+mm333333=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm333333)&" =90",1 :ambo45=ss111111: ambo46=mm333333oste23(2) = 1 Else poste23(2) = 0

If ss111111+mm444444=90 Then Scrivi " "& Format2(ss111111) &" + "& Format2(mm444444)&" =90",1 :ambo47=ss111111: ambo48=mm444444oste24(2) = 1 Else poste24(2) = 0

If ss333333+nn111111=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn111111)&" =90",1 :ambo49=ss333333: ambo50=nn111111oste25(2) = 1 Else poste25(2) = 0

If ss333333+nn222222=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn222222)&" =90",1 :ambo51=ss333333: ambo52=nn222222oste26(2) = 1 Else poste26(2) = 0

If ss333333+nn333333=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn333333)&" =90",1 :ambo53=ss333333: ambo54=nn333333oste27(2) = 1 Else poste27(2) = 0

If ss333333+nn444444=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(nn444444)&" =90",1 :ambo55=ss333333: ambo56=nn444444oste28(2) = 1 Else poste28(2) = 0

If ss333333+mm111111=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm111111)&" =90",1 :ambo57=ss333333: ambo58=mm111111oste29(2) = 1 Else poste29(2) = 0

If ss333333+mm222222=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm222222)&" =90",1 :ambo59=ss333333: ambo60=mm222222oste30(2) = 1 Else poste30(2) = 0

If ss333333+mm333333=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm333333)&" =90",1 :ambo61=ss333333: ambo62=mm333333oste31(2) = 1 Else poste31(2) = 0

If ss333333+mm444444=90 Then Scrivi " "& Format2(ss333333) &" + "& Format2(mm444444)&" =90",1 :ambo63=ss333333: ambo64=mm444444oste32(2) = 1 Else poste32(2) = 0

ColoreTesto 0

Scrivi

ruote(1) = r1

ruote(2) = r2

ruote(3) = 11

k = 12

co = 0







nu1(1) = ambo1

nu1(2) = ambo2

co=co+1

ImpostaGiocata co,nu1,ruote,poste1,k

nu1(1) = ambo3

nu1(2) = ambo4

co=co+1

ImpostaGiocata co,nu1,ruote,poste2,k

nu1(1) = ambo5

nu1(2) = ambo6

co=co+1

ImpostaGiocata co,nu1,ruote,poste3,k

nu1(1) = ambo7

nu1(2) = ambo8

co=co+1

ImpostaGiocata co,nu1,ruote,poste4,k

nu1(1) = ambo9

nu1(2) = ambo10

co=co+1

ImpostaGiocata co,nu1,ruote,poste5,k

nu1(1) = ambo11

nu1(2) = ambo12

co=co+1

ImpostaGiocata co,nu1,ruote,poste6,k

nu1(1) = ambo13

nu1(2) = ambo14

co=co+1

ImpostaGiocata co,nu1,ruote,poste7,k

nu1(1) = ambo15

nu1(2) = ambo16

co=co+1

ImpostaGiocata co,nu1,ruote,poste8,k

nu1(1) = ambo17

nu1(2) = ambo18

co=co+1

ImpostaGiocata co,nu1,ruote,poste9,k

nu1(1) = ambo19

nu1(2) = ambo20

co=co+1

ImpostaGiocata co,nu1,ruote,poste10,k

nu1(1) = ambo21

nu1(2) = ambo22

co=co+1

ImpostaGiocata co,nu1,ruote,poste11,k

nu1(1) = ambo23

nu1(2) = ambo24

co=co+1

ImpostaGiocata co,nu1,ruote,poste12,k

nu1(1) = ambo25

nu1(2) = ambo26

co=co+1

ImpostaGiocata co,nu1,ruote,poste13,k

nu1(1) = ambo27

nu1(2) = ambo28

co=co+1

ImpostaGiocata co,nu1,ruote,poste14,k

nu1(1) = ambo29

nu1(2) = ambo30

co=co+1

ImpostaGiocata co,nu1,ruote,poste15,k

nu1(1) = ambo31

nu1(2) = ambo32

co=co+1

ImpostaGiocata co,nu1,ruote,poste16,k

nu1(1) = ambo33

nu1(2) = ambo34

co=co+1

ImpostaGiocata co,nu1,ruote,poste17,k

nu1(1) = ambo35

nu1(2) = ambo36

co=co+1

ImpostaGiocata co,nu1,ruote,poste18,k

nu1(1) = ambo37

nu1(2) = ambo38

co=co+1

ImpostaGiocata co,nu1,ruote,poste19,k

nu1(1) = ambo39

nu1(2) = ambo40

co=co+1

ImpostaGiocata co,nu1,ruote,poste20,k

nu1(1) = ambo41

nu1(2) = ambo42

co=co+1

ImpostaGiocata co,nu1,ruote,poste21,k

nu1(1) = ambo43

nu1(2) = ambo44

co=co+1

ImpostaGiocata co,nu1,ruote,poste22,k

nu1(1) = ambo45

nu1(2) = ambo46

co=co+1

ImpostaGiocata co,nu1,ruote,poste23,k

nu1(1) = ambo47

nu1(2) = ambo48

co=co+1

ImpostaGiocata co,nu1,ruote,poste24,k

nu1(1) = ambo49

nu1(2) = ambo50

co=co+1

ImpostaGiocata co,nu1,ruote,poste25,k

nu1(1) = ambo51

nu1(2) = ambo52

co=co+1

ImpostaGiocata co,nu1,ruote,poste26,k

nu1(1) = ambo53

nu1(2) = ambo54

co=co+1

ImpostaGiocata co,nu1,ruote,poste27,k

nu1(1) = ambo55

nu1(2) = ambo56

co=co+1

ImpostaGiocata co,nu1,ruote,poste28,k

nu1(1) = ambo57

nu1(2) = ambo58

co=co+1

ImpostaGiocata co,nu1,ruote,poste29,k

nu1(1) = ambo59

nu1(2) = ambo60

co=co+1

ImpostaGiocata co,nu1,ruote,poste30,k

nu1(1) = ambo61

nu1(2) = ambo62

co=co+1

ImpostaGiocata co,nu1,ruote,poste31,k

nu1(1) = ambo63

nu1(2) = ambo64

co=co+1

ImpostaGiocata co,nu1,ruote,poste32,k

Gioca es

End If

End If

Next

Next

Next

Next

Next

Next

Next

ScriviResoconto

ColoreTesto 2

Scrivi String(37,32) & "METODO CHE VINCE NON SI CAMBIA + giocata",1

Scrivi String(45,32) & "List. by DjNomade",1

ColoreTesto 0

End Sub

 

[EVERITA C]

Ciao Salvo scusami ma mi sono ricordata di avere uno script che mi fece DJ nomade qualche anno fa.

E' possibile modificarlo come da metodo inserito?

Grazie infinite.