SERVE SCRIPT SPIDER

[Alien.]

metodo spia "SPIDER" ruota unica!!! [REGALO PER gli APPASSIONATI/E DEL FORUM LOTTOCED]

Questi due numeri 3 e 87 sono legati al numero 75 e viceversa.Tra di loro c'è una stabiltà di sortita pazzesca..sono intrappolati nella ragnatela (come da disegno per rendere bene l'idea)...Vediamo se il futuro sarà come il passato... se nei controlli che farete a ritroso vi potrà sembrare di...

forum.lottoced.com

GRAZIE.

 

[lotto_tom75]

metodo spia "SPIDER" ruota unica!!! [REGALO PER gli APPASSIONATI/E DEL FORUM LOTTOCED]

Questi due numeri 3 e 87 sono legati al numero 75 e viceversa.Tra di loro c'è una stabiltà di sortita pazzesca..sono intrappolati nella ragnatela (come da disegno per rendere bene l'idea)...Vediamo se il futuro sarà come il passato... se nei controlli che farete a ritroso vi potrà sembrare di...

forum.lottoced.com

GRAZIE.

Option Explicit

Sub Main

'Script by Lotto_tom75 x verifica ed eventuali ottimizzazioni del metodo Spider 'di TigerSuite. Script richiesto da Alien. Nessuna Certezza Solo Poca Probabilità; 'Controllate sempre che non vi siano possibili errori. Good luck

   Dim idEstr,k,e,nSpia
 
   Dim EstrazioneIniz
   EstrazioneIniz = EstrazioneFin - 300
 
   Dim nEntroColpi
   Dim aFrzSpia(4)

   Dim p
 
   Dim ambata(4)
 
   aFrzSpia(1) = 3
   aFrzSpia(2) = 40
   aFrzSpia(3) = 75
   aFrzSpia(4) = 87
 
   Dim Rt(1)
 
   Rt(1) = BA_
   nEntroColpi = 13
 
   Dim nPuntiMinSuFrz(1)
 
   nPuntiMinSuFrz(1) =1
 
   Dim pos
 
   'ReDim aPresenze(90)
   For idEstr = EstrazioneIniz To EstrazioneFin
   'For pos = 1 To 5
      p = 0
    
      For e = 1 To UBound(aFrzSpia)
         If IsNumeroPresenteInEstrazione(idEstr,Rt(1),aFrzSpia(e),0) Then
            p = p + 1
         End If
      Next


     If p >= nPuntiMinSuFrz(1) Then


      ambata(1) = 3
      ambata(2) = 40
      ambata(3) = 75
      ambata(4) = 87   

    
      Call ImpostaGiocata(1,ambata,Rt,nPuntiMinSuFrz,nEntroColpi,1)                 
    
    
      Call Gioca(idEstr) ',False,False,0,0,False)
    
      Scrivi "verifica ok..."
    
      End If
    
      Call AvanzamentoElab(EstrazioneFin - 300,EstrazioneFin,idEstr)
      If ScriptInterrotto Then Exit For

   'Next
   Next


ScriviResoconto

End Sub

Ciao

 

[Alien.]

Ciao ,grazie si trova sempre un 'Anima gentile.