list[1]="Normal sound"
list[2]="Mute sound"
list[3]="-----------------------------"
list[4]="Normal in 15 minutes"
list[5]="Normal in 30 minutes"
list[6]="Normal in 1 hour"
list[7]="Normal in 1,5 hour"
list[8]="Normal in 2 hours"

Choice( "Settings","Choose option:",list)
	Case( 1 )
		Run("\Storage Card\My Mortscripts\scripts\MuteOff.mscr")
	Case( 2 )
		Run("\Storage Card\My Mortscripts\scripts\MuteOn.mscr")
	Case( 3 )
		Exit		
	Case( 4 )
		Run("\Storage Card\My Mortscripts\scripts\MuteOn.mscr")
    utime = TimeStamp()+900
    RunAt( utime, "\Storage Card\My Mortscripts\scripts\MuteOff.mscr" )
	Case( 5 )
		Run("\Storage Card\My Mortscripts\scripts\MuteOn.mscr")
    utime = TimeStamp()+1800
    RunAt( utime, "\Storage Card\My Mortscripts\scripts\MuteOff.mscr" )
	Case( 6 )
		Run("\Storage Card\My Mortscripts\scripts\MuteOn.mscr")
    utime = TimeStamp()+3600
    RunAt( utime, "\Storage Card\My Mortscripts\scripts\MuteOff.mscr" )        
	Case( 7 )
		Run("\Storage Card\My Mortscripts\scripts\MuteOn.mscr")
    utime = TimeStamp()+5400
    RunAt( utime, "\Storage Card\My Mortscripts\scripts\MuteOff.mscr" )
	Case( 8 )
		Run("\Storage Card\My Mortscripts\scripts\MuteOn.mscr")
    utime = TimeStamp()+7200
    RunAt( utime, "\Storage Card\My Mortscripts\scripts\MuteOff.mscr" )
	Case( 0 )
		Exit
EndChoice