Gli Ambi della VIttoria di A.Gargiulo

[GioRyuKen72]

fresco fresco il 09-90 sulla Nazionale..

qui c'è lo

Anticipazione (Spoiler): script

Sub Main()
   Scrivi " GLI AMBI DELLA VITTORIA DI A.GARGIULO...Script GIORYUKEN72",1,,2,6,5,,1
   Dim rt(2),Nn(2),E1,E2,P5,P6
   Dim Terno1(3),PostaT(3),Ambata1(1),PostaA(2),Ambo1(2),Ambo2(2),PostaABT(1)
   Dim Num(3),Ambata,Abb1,Abb2,Abb3
   ex = CInt(InputBox("Quante estrazioni controllo?","Estrazioni",150))
   ini = EstrazioneFin - ex
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio es
      For R1 = 1 To 12
         'For R2 = R1 + 1 To 12
         'If R2 = 11 Then R2 = 12
         P1 = 1 : P2 = 5
         Nn(1) = Estratto(es,R1,P1) : Nn(2) = Estratto(es,R1,P2)'31-9
         If Nn(2) = Fuori90(Nn(1) + 1) Or Nn(2) = Fuori90((90 + Nn(1)) - 1) Then
            Ambata = Fuori90(Nn(1) + Nn(2))
            Abb1 = DiametraleD(Nn(1))
            Abb2 = DiametraleD(Nn(2))
            If Abb1 = Ambata Then Abb1 = Fuori90(Ambata + 13)'aggiunge 13 se numero ripetuto
            If Abb2 = Ambata Then Abb2 = Fuori90(Ambata + 13)'aggiunge 13 se numero ripetuto
            Abb3 = Fuori90(Ambata+90)-1
            rt(1) = r1
            rt(2) = RuotaGemella(r1)
            If rt(1) = 12 Then rt(2) = BA_ ' 2A RUOTA DA MODIFICARE..
            'rt(3) = TT_
            PostaABT(1) = 1
            PostaA(2) = 1
            PostaT(2) = 1
            PostaT(3) = 0.5
            k = 15
            Ambata1(1) = Ambata
            ImpostaGiocata 1,Ambata1,rt,PostaABT,k,1
            Ambo1(1) = Ambata
            Ambo1(2) = Abb1
            ImpostaGiocata 2,Ambo1,rt,PostaA,k,2
            Ambo2(1) = Ambata
            Ambo2(2) = Abb2
            ImpostaGiocata 3,Ambo2,rt,PostaA,k,2
            Terno1(1) = Abb3
            Terno1(2) = Abb1
            Terno1(3) = Abb2
            ImpostaGiocata 4,Terno1,rt,PostaT,k,2
            casi = casi + 1
            Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
            Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
            ColoreTesto 0
            Scrivi("Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
            Scrivi "  " & SiglaRuota(R1) & " ",1,0
            For P5 = 1 To 5
               E1 = Estratto(Es,R1,P5)
               If E1 = Nn(1) Or E1 = Nn(2) Then
                  ColoreTesto 2
               Else
                  ColoreTesto 0
               End If
               Scrivi Format2(E1) & " ",1,0
               ColoreTesto 0
            Next
            Scrivi
            Scrivi String(78,"-"),1
            ColoreTesto 1
            ' OrdinaMatrice Nn,1
            Scrivi "Numeri Ricercati:  " & Format2(Nn(1)) & " - " & Format2(Nn(2)),1,0
            Scrivi
            ColoreTesto 0
            Scrivi String(78,"-"),1
            Scrivi
            Gioca es,True,,1
         End If
      Next
      'Next
      'Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi
   Scrivi "Casi totali (" & casi & ")",1
   ScriviDistribuzioneEsiti(True)
   ScriviDistribuzioneCasiInCorso(True)
   ScriviResoconto
End Sub

Note:
- ho messo il +13 in caso si numero ripetuto (uguale all'ambata)..modificate a piacere
- ho messo BARI come 2a ruota della Nazionale....modificate a piacere
- per ora NON ho messo il vertibile nel caso in cui l'ambata è presente nell'estrazione di calcolo.. forse ho capito ora come fare, ma magari non funge..


Saluti, Gio.

 

[mastrogino]

Vedi l'allegato 2307238
fresco fresco il 09-90 sulla Nazionale..

qui c'è lo

Anticipazione (Spoiler): script

[CODE
[/CODE]

Saluti, Gio.

CIAO NELLO spoiler e vuoto

 

[GioRyuKen72]

CIAO NELLO spoiler e vuoto

si, stavo modificando.. ora è ok