Regarding to my last post (Set AutoProfile on WM6) , I was thinking of writing a new script (mortscript) for manual profile change.
The whole idea is same as in previous version of script, yet now you are allowed to change the profile manually.

After assigning the script file to a specific (software / hardware key), it will pop up the options screen, where you are able to select either normal or mute profile mode. You may also set the mute mode on, which will automatically change after specific time period (15 / 30 minutes or 1 / 1,5 / 2 hours) back to normal. This function is very usefull while attending meeting.

There are 3 script files included.

1. manualprofile.mscr - the main script, defining wether to set mute on / off
2. muteon.mscr - script that changes needed tones to mute mode
3. muteoff.mscr - script that changes needed tones to normal mode

For more information on how to use (MuteOn.mscr and MuteOff.mscr), please see post Set AutoProfile on WM6.

– ManualProfile.mscr - START ———————————————–
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
– ManualProfile.mscr - END ——————————————————–

I will appriciate any comments.

tampiss

Previous post / Next post