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

This script enables the automatic profile change regarding to day and time. The script is set to change profile to mute everyday from Monday to Friday at 9 p.m., and automatically returns back to normal mode at 5 a.m. (weekend is set: from 9 p.m. to 8:30 a.m.). The whole idea is more than easy. There are 3 files included (AutoProfile.mscr, MuteOn.mscr and MuteOff.mscr).

1. autoprofile.mscr is script, which define the day and time to change the profile.
2. muteon.mscr is script, which changes the profile to mute mode.
3. muteoff.mscr is script, which changes the profile to normal mode.

The best of all is the fact, it only changes the ring tones. That means, I have real and mute ring tones on my storage card, and the scripts copies them to \\windows depending on profile mode. The whole thing is then controlled by PPC ring tones set up.

– AutoProfile.mscr – START ————————————-
Sleep (10000)
Vibrate (500)

GetTime(hour,min,sec,day,month,year)
Den = FormatTime(“w”, TimeStamp())
Hodina = FormatTime(“H”, TimeStamp())

script = SystemPath(“ScriptPath”)\”AutoProfile.mscr”
RemoveNotifications(script)

If (Den >= 0 AND Den <= 4)
If (Hodina >= 5 and Hodina <= 20)
Run(“\Storage Card\My Mortscripts\scripts\MuteOff.mscr”)
RunAt( year, month, day, 21, 0, script )
Exit
Else
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
xYear = FormatTime(“Y”, TimeStamp()+86400)
xMonth = FormatTime(“m”, TimeStamp()+86400)
xDay = FormatTime(“d”, TimeStamp()+86400)
#message (xYear & xMonth & xDay)
RunAt( xYear, xMonth, xDay, 5, 0, script )
Exit
EndIf
Else
If (Hodina >= 5 and Hodina <= 20)
Run(“\Storage Card\My Mortscripts\scripts\MuteOff.mscr”)
RunAt( year, month, day, 21, 0, script )
Exit
Else
Run(“\Storage Card\My Mortscripts\scripts\MuteOn.mscr”)
xYear = FormatTime(“Y”, TimeStamp()+86400)
xMonth = FormatTime(“m”, TimeStamp()+86400)
xDay = FormatTime(“d”, TimeStamp()+86400)
#message (xYear & xMonth & xDay)
RunAt( xYear, xMonth, xDay, 8, 30, script )
Exit
EndIf
EndIf
– AutoProfile.mscr – END ————————————-

– MuteOn.mscr – START ————————————-
#mute
copy “\\Storage Card\\My Ringtones\\MTmute.wav”, “\\Windows\\Rings\\A_ring.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTmute.wav”, “\\Windows\\A_sms.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTmute.wav”, “\\Windows\\A_notify.wav”, 1
RegWriteString(“HKCU”, “\\Software\\tampiss\\”, “Profil”, “Mute”)
– MuteOn.mscr – END —————————————–

– MuteOff.mscr – START ————————————–
#normal
copy “\\Storage Card\\My Ringtones\\MTring.wav”, “\\Windows\\Rings\\A_ring.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTsms.wav”, “\\Windows\\A_sms.wav”, 1
copy “\\Storage Card\\My Ringtones\\MTnotify.wav”, “\\Windows\\A_notify.wav”, 1
RegWriteString(“HKCU”, “\\Software\\tampiss\\”, “Profil”, “Ring”)
– MuteOff.mscr – END —————————————–

I believe, this solution would come handy to many off you.
tampiss