Bluetooth Proximity Lock for Macbook

global okflag
set okflag to false
set front_app to (path to frontmost application as Unicode text) -- So we can switch back to this after running the fade
 
-- check if iTunes is running
tell application "System Events"
        if process "iTunes" exists then
                set okflag to true --iTunes is running
        end if
end tell
 
 
if okflag is true then
        try
                tell application "iTunes"
                        set currentvolume to the sound volume
                        if (player state is playing) then
                                repeat
                                        --Fade down
                                        repeat with i from currentvolume to 0 by -1 --try by -4 on slower Macs
                                                set the sound volume to i
                                                delay 0.01 -- Adjust this to change fadeout duration (delete this line on slower Macs)
                                        end repeat
                                        pause
                                        --Restore original volume
                                        set the sound volume to currentvolume
                                        exit repeat
                                end repeat
                                set comment of current track to "Proximity Paused"
                        end if
                end tell
                tell application front_app
                        activate
                end tell
        on error
                beep
        end try
end if
 
tell application "JackSMS" to set jack status to "on"
delay 1
tell application "DeskShade"
        lock
end tell
end run

tell application "ScreenSaverEngine" to quit
tell application "DeskShade"
        unlock
        quit
end tell
tell application "JackSMS"
        quit
end tell
 
global okflag
set okflag to false
set front_app to (path to frontmost application as Unicode text) -- So we can switch back to this after running the fade
 
-- check if iTunes is running
tell application "System Events"
        if process "iTunes" exists then
                set okflag to true --iTunes is running
        end if
end tell
 
if okflag is true then
        try
                tell application "iTunes"
                        set currentvolume to the sound volume
                        if comment of current track is "Proximity Paused" then
                                set comment of current track to ""
                                play
                                repeat with j from 0 to currentvolume by 2 --try by 4 on slower Macs
                                        set the sound volume to j
                                end repeat
                        end if
                end tell
                tell application front_app
                        activate
                end tell
        on error
                beep
        end try
end if