

Label Loop
	'
	s1 = SlotText(99)
	'
	If s1 <> s2
		s2 = s1
		Select s2
			Case "SuonoA"
				Load "A.mp4"
			'Load Play "Theremino_MediaPlayer\Slot (20) = 1"
				Wait Seconds 5
			'Load Hide
			Case "SuonoB"
				Load "b.mp4"
				Wait Seconds 5
			Case "SuonoC"
				Load "c.mp4"
				Wait Seconds 5
			Case "SuonoD"
				Load "d.mp4"
				Wait Seconds 5
			Case "SuonoE"
				Load "e.mp4"
				Wait Seconds 5
			Case "SuonoF"
				Load "f.mp4"
				Wait Seconds 5
			Case "SuonoG"
				Load "g.mp4"
				Wait Seconds 5
			Case "SuonoH"
				Load "h.mp4"
				Wait Seconds 5
			Case "SuonoI"
				Load "i.mp4"
				Wait Seconds 5
			Case "SuonoL"
				Load "l.mp4"
				Wait Seconds 5
			Case "SuonoM"
				Load "m.mp4"
				Wait Seconds 5
			Case "SuonoN"
				Load "n.mp4"
				Wait Seconds 5
			Case "SuonoO"
				Load "o.mp4"
				Wait Seconds 5
			Case "SuonoP"
				Load "p.mp4"
				Wait Seconds 5
			Case "SuonoQ"
				Load "q.mp4"
				Wait Seconds 5
			Case "SuonoR"
				Load "r.mp4"
				Wait Seconds 5
			Case "SuonoS"
				Load "s.mp4"
				Wait Seconds 5
			Case "SuonoT"
				Load "t.mp4"
				Wait Seconds 5
			Case "SuonoU"
				Load "u.mp4"
				Wait Seconds 5
			Case "SuonoV"
				Load "v.mp4"
				Wait Seconds 5
			Case "SuonoZ"
				Load "z.mp4"
				Wait Seconds 5
			Case "sonetto"
			   'Load "sound\sonetto.mp4"
			   'Wait Seconds 5
				SuoniRandom_NonRipetuti
		EndSelect
	EndIf
	'
	Wait Seconds 0.1
	'
Goto Loop


' =================================================================
'  Suona 14 file casuali presi tra 00.wav e 21.wav
' =================================================================

Label SuoniRandom_NonRipetuti
	s92 = ""
	For v91 = 1 To 14
		For v92 = 0 To Infinity
			s91 = Str(Rnd * 21, "00") + ".wav"
			If Not StringContains(s92, s91)
				Exit
			EndIf
		Next
		s92 = s92 + s91 + " "
		Print s91
		Load s91
		Wait Not MediaPlaying
	Next
	Print s92
Return

Label SuoniRandom
	For v91 = 1 To 14
		s91 = Str(Rnd * 21, "00") + ".wav"
		s92 = s92 + s91 + " "
		Print s91
		Load s91
		Wait Not MediaPlaying
	Next
	Print s92
Return



