Begin A1_DAT_SRT_MusicBox

Short State
Short ControlVar
Short Button


If ( MenuMode == 1 ) 
	Return
Endif

If ( OnActivate == 1 )
	If (GetPCSneaking == 0 )
		Activate
		Return
	ElseIf ( GetPCSneaking == 1 )
		If ( State == 0 )
			Set State to 1
		Endif
  	EndIf
EndIf


If ( State == 1 )
	If ( ControlVar == 0 )
		MessageBox "What song shall you play?", "Song 1", "Song 2", "Song 3", "Song 4",  "Song 5", "Song 6", "Song 7", "Song 8", "Cancel"
      Set ControlVar to 1
	EndIf
EndIf
  

If ( ControlVar == 1 )
	Set Button to GetButtonPressed
	
If ( Button == -1 )
		Return
	ElseIf ( Button == 0)
		StreamMusic "DAT_SRT\Song1a.mp3"
		Set ControlVar to 0
		Set State to 0 
			
	ElseIf ( Button == 1 )
		StreamMusic "DAT_SRT\Song1b.mp3"
		Set ControlVar to 0
		Set State to 0 

	ElseIf ( Button == 2 )
		StreamMusic "DAT_SRT\Song1c.mp3"
		Set ControlVar to 0
		Set State to 0 
	
	ElseIf ( Button == 3 ) 
		StreamMusic "DAT_SRT\Song1d.mp3"
		Set ControlVar to 0
		Set State to 0 

	ElseIf ( Button == 4 ) 
		StreamMusic "DAT_SRT\Song1e.mp3"
		Set ControlVar to 0
		Set State to 0 

	ElseIf ( Button == 5 ) 
		StreamMusic "DAT_SRT\Song1f.mp3"
		Set ControlVar to 0
		Set State to 0 

	ElseIf ( Button == 6 ) 
		StreamMusic "DAT_SRT\Song1g.mp3"
		Set ControlVar to 0
		Set State to 0 

	ElseIf ( Button == 7 ) 
		StreamMusic "DAT_SRT\Song1h.mp3"
		Set ControlVar to 0
		Set State to 0
 
	ElseIf ( Button == 8 ) 
		StreamMusic "DAT_SRT\Cancel.mp3"
		Set ControlVar to 0
		Set State to 0


	EndIf
EndIf

End