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