
Button 1 Label bussa
Button 2 Label Maniglia su
Button 3 Label Ripeti
Button 4 Label Performance
Button 5 Label mani trema
Button 6 Label maniglia eccitata
Button 7 Label retro murbi
Button 8 Label maniglia tic tac
Button 9 Label retro gode
Button 10 Label maniruota
Button 11 Label chiave
Load Theremino_HAL\Theremino_Hal.exe

TTS SelectVoice "ITA FEM"
TTS Speak "Il programma è avviato" 

Stop

Label EventStop
	Load CloseApps Theremino_Hal.exe
End

Label chiave
	For v4 = 1 To 15
		Slot 1 = 100
		Wait Seconds 0.1
		Slot 1 = 600
		Wait Seconds 0.1
	Next
Return


Label retro murbi
	For v4 = 1 To 4
		Slot 6 = 200
		Wait Seconds 0.5
		Slot 6 = 40
		Wait Seconds 0.5
	Next
Return

Label retro gode
	For v6 = 1 To 10
		Slot 6 = 290
		Wait Seconds 0.09
		Slot 6 = 80
		Wait Seconds 0.09
	Next
Return

'Label maniglia eccitata2
'	For v5 = 1 To 4
'		Slot 5 = 240
'		Wait Seconds 0.1
'		Slot 5 = 400
'		Wait Seconds 0.1
'	Next
'Return

Label maniglia eccitata
	For v3 = 1 To 4
		Slot 5 = 20
		Wait Seconds 0.1
		Slot 5 = 60
		Wait Seconds 0.1
		Slot 5 = 10
		Wait Seconds 0.1
		Slot 5 = 70
		Wait Seconds 0.1
	Next
Return

Label maniglia tic tac
	For v4 = 1 To 30
		Slot 5 = 350
		Wait Seconds 0.05
		Slot 5 = 600
		Wait Seconds 0.05
	Next
Return


Label bussa
	Slot 6 = 150
	Wait Seconds 0.2
	Slot 6 = 50
	Wait Seconds 0.1
Return

Label Maniglia giu
	Slot 5 = 770
	Wait Seconds 0.1
Return

Label Maniglia su
	Slot 5 = 500
	Wait Seconds 0.1
Return

Label Centro
	Slot 5 = 480
	Wait Seconds 0.1
Return

Label mani trema
	Wait Seconds 0.05
	Slot 5 = 500
	Wait Seconds 0.05
	Slot 5 = 700
	Wait Seconds 0.05
	Slot 5 = 800
	Wait Seconds 0.05
	Slot 5 = 300
	Wait Seconds 0.05
	Slot 5 = 750
	Wait Seconds 0.05
	Slot 5 = 200
Return

Label Ripeti
	For v1 = 1 To 1
		Slot 1 = 1000
		Wait Seconds 0.5
		Slot 1 = 00
		Wait Seconds 0.5
		Slot 1 = 1000
		Wait Seconds 0.2
		Slot 1 = 00
		Wait Seconds 0.5
	Next
Return

Label maniruota
	Wait Seconds 0.05
	Slot 5 = 500
	Wait Seconds 0.05
	Slot 5 = 100
	Wait Seconds 0.05
	Slot 5 = 800
	Wait Seconds 0.05
	Slot 5 = 200
	Wait Seconds 0.05
	Slot 5 = 750
	Wait Seconds 0.05
	Slot 5 = 50
Return

Label Performance
	For v2 = 1 To Infinity
		Slot 5 = 620
		Load bussa.wav
		Wait Seconds 0.1
		Gosub bussa
		Wait Seconds 0.05
		Gosub bussa
		Wait Seconds 0.05
		Gosub bussa
		Wait Seconds 0.05
		Gosub bussa
		Wait Seconds 1
		Gosub maniglia eccitata
		Wait Seconds 0.5
		Load fea disturb.wav
		Wait Seconds 1
		Gosub maniruota
		Wait Seconds 0.05
		Load ma so que.wav
		Slot 5 = 220
		Wait Seconds 0.5
		Slot 5 = 850
		Wait Seconds 0.5
		Load chiave.wav
		Wait Seconds 0.1
		Gosub Ripeti
		Slot 5 = 400
		Wait Seconds 0.5
		Load chiave.wav
		Wait Seconds 0.3
		Load door_scric.wav
		Wait Seconds 0.05
		Slot 6 = 220
		Wait Seconds 5
		Slot 6 = 0
		Wait Seconds 2
		Gosub Maniglia su
		Wait Seconds 1
		Load bussa.wav
		Gosub bussa
		Wait Seconds 0.1
		Gosub bussa
		Wait Seconds 0.1
		Gosub bussa
		Wait Seconds 0.1
		Gosub bussa
		Wait Seconds 1
		Load mi fai entrare.wav
		Wait Seconds  0.1
		Gosub retro gode
		Wait Seconds 0.1
		Slot 6 = 0
		Wait Seconds 0.1
		Load voglio vedere.wav
		Slot 6 = 250
		Wait Seconds 1.5
		Slot 6 = 210
		Wait Seconds 1
		Load bussa.wav
		Gosub bussa
		Wait Seconds 0.05
		Gosub bussa
		Wait Seconds 0.1
		Gosub bussa
		Wait Seconds 0.1
		Load ah.wav
		Wait Seconds 0.2
		Gosub mani trema
		Wait Seconds 0.5
		Slot 5 = 550
		Wait Seconds 0.5
		Load ah2.wav
		Gosub retro murbi
		Slot 6 = 260
		Load non me ne vado.wav
		Wait Seconds 0.4
		Gosub maniruota
		Wait Seconds 0.05
		Gosub mani trema
		Wait Seconds 0.5
		Gosub Ripeti
		Wait Seconds 0.5
		Slot 2 = 50
		Wait Seconds 0.5
		Slot 6 = 60
		Wait Seconds  3
		Load daii.wav
		Gosub maniglia tic tac
		Gosub chiave
		Wait Seconds  0.5
		Load hey a so a que.wav
		Wait Seconds 1
		Gosub Maniglia giu
		Wait Seconds  2
		Gosub Maniglia su
		Gosub Ripeti
		Load ti voglio bagnare.wav
		Wait Seconds 1
		Gosub retro gode
		Slot 6 = 50
		Wait Seconds  0.4
		Load fammi entrare dai.wav
		Wait Seconds  2
		Load risatina.wav
		Wait Seconds 4
		Gosub maniglia tic tac
		Wait Seconds  1
		Load ancora qui.wav
		Wait Seconds 4
	Next
Return


'BOOKMARKS 

'EDITEDLINES 57 6 49 7 146 8 17 9 12 10 

'WATCH v1
'EXEC DestX = 12
