Chiedo aiuto agli scripters per una modifica ad uno script

[antoR]

Salve a tutti, vorrei se possibile il vostro aiuto per modificare uno script per il superenalotto che ho trovato. In pratica lo script trova le uscite per ambo dei numeri della lunghetta selezionata, ma li evidenzia solo sulle estrazioni, e va bene. A me servirebbe però anche la statistica finale di quanti punti 2,3,4,5,6, ha dato quella lunghetta. Le mie conoscenze sono nulle per gli script per cui mi rivolgo a voi. Allego lo script. Grazie a tutti e buona serata
Sub Main()
Dim Nn(6)
QT = InputBox("Quanti Numeri","Numeri",10)
QN = InputBox("QUANTE ESTRAZIONI",,182)
ScegliNumeri(Nn)
Ini = EstrazioniArchivioSE - QN
Fin = EstrazioniArchivioSE
Scrivi "........ Da " & GetInfoEstrazioneDL(Ini) & " a " & GetInfoEstrazioneDL(fin),1
'Scrivi
Scrivi String(100,"="),1
ColoreTesto 1
Scrivi "Evidenzia numeri giocati sulla combinazione Superenalotto ",1
ColoreTesto 0
Scrivi String(100,"-")
ColoreTesto 2
Scrivi "Numeri in gioco " & StringaNumeri(Nn),1
ColoreTesto 0
Scrivi String(44,"-"),0,0
Scrivi " JO " & "SS " & "-------------------------------------------------"
For Es = Ini To Fin
tot = 0
Scrivi FormatSpace(GetInfoEstrazioneSE(es),27),0,0
'Scrivi "[" & Es & "] ",0,0
For P = 1 To 6
ColoreTesto 1
For x = 1 To Qt
If EstrattoSE(Es,P) = Nn(x) Then
ColoreTesto 2
tot = tot + 1
End If
Next
Scrivi Format2(EstrattoSE(Es,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(qt) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena ",1,- 1,3
Else
If Tot = Int(qt - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -1 ",1
Else
If Tot = Int(qt - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -2 ",1
Else
ColoreTesto 7
If Tot <> Int(qt) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0
Next
Scrivi String(100,"-")
Scrivi
Scrivi "-------------------------------- Dettaglio ultime estrazioni scelte --------------------------------"
Call ImpostaGiocataSE(1,Nn,1,QN)
ScriviResocontoSE
End Sub

 

[antoR]

Salve, non avendo avuto nessuna risposta di un aiuto, volevo sapere se ho postato la richiesta nella sezione adatta.
Grazie e buona giornata a tutti

 

[claudio8]

Sei nella sez adatta.

 

[antoR]

Grazie Claudio8, spero che prima o poi arrivi una risposta positiva o negativa che sia...