cercasi script per ambata

[membro cancellato]

cerco script che scaturisce un ambata a ruota fissa da giocare per l'estazione successiva per ogni ruota, chi mi può aiutare????grazie a chi collaborerà

 

[hettro]

Molto vaga come richiesta.

Spiega meglio, Hettro

 

[membro cancellato]

ciao hettro, cerco uno script come quello che stai usando tu per le ambate....

 

[hettro]

Ci sono MILIONI di metodi x AMBATA.

Quale metodo vorresti?

Ciao

Prova questo. (script di cinzia)

'STORICO 16 X AMBATA a TUTTE

Sub main()
Scrivi "Ritardi alla sortita di estratti da ruota sulle altre ruote scritto da Cinzia"
Dim n(1),ru(1),rur(1)
rr=InputBox("Ruota di Calcolo ",,1)
rur(1)=InputBox("Ruota di Gioco ",,1)
	For es=EstrazioneFin-18 To EstrazioneFin-1
	For p=1 To 5
	n(1)=Estratto(es,rr,p)
		If SerieFreq(es+1,EstrazioneFin,n,rur,1)=0 Then
		Scrivi  es&" ",0,0
		For r=1 To 10
		ru(1)=r
			If SerieFreq(es+1,EstrazioneFin,n,ru,1)=0 Then
				If SerieFreq(EstrazioneFin+1,EstrazioneFin+1,n,ru,1)>0 Then
				ColoreTesto 1
				Scrivi SiglaRuota(r)&" ",1,0
				Else
				ColoreTesto 0
				Scrivi SiglaRuota(r)&" ",0,0
				ColoreTesto 0
				End If
				ColoreTesto 0
				nn=n(1)
			End If
		Next
		Scrivi Format2(nn)&" ",1
		ri= FormatSpace(" rit  ",2,1)&"  "&Formatspace(EstrazioneFin-es,4,1)
		ColoreTesto 0
		End If
		Next
	ColoreTesto 2
	Scrivi ri
	ColoreTesto 0
	Next
Scrivi EstrazioneFin &" "&SiglaRuota(rr)&" "&stringaestratti(EstrazioneFin,rr),1
Scrivi String(37,"_"),1
End Sub

Sarebbe bello se fosse eseguibile.