
Option Speed 9

Button 1 Text PlayCasualVideo
Button 1 Slot 10
Key Space Gosub PlayCasualVideo

' ------------------------------------ Video da utilizzare
'Load Pfatisch Taglio.avi
'Load 768.avi
Load Video5.mov

Load Pause

VideoTotalSeconds = 15
VideoFragmentSeconds = 5

Window FullScreen

Stop

Label EventStop
	Load Hide
	Window Sizable
End



' -------------------------------------------
'  Variables
' -------------------------------------------
Variable Numeric VideoTotalSeconds
Variable Numeric VideoFragmentSeconds

' -------------------------------------------
'  Functions
' -------------------------------------------
Label PlayCasualVideo
	v1 = Rnd * (VideoTotalSeconds - VideoFragmentSeconds)
	Load Position v1
	Load Play
	Wait Seconds VideoFragmentSeconds
	Load Pause
Return


'WATCH Speed
'WATCH Wait Seconds 2
'WATCH Wait Seconds 2
'WATCH Wait Seconds 2
'WATCH Wait Seconds 2
'WATCH Wait Seconds 2
'EXEC Slot(2) = 0
