Based on http://www.marco.org/2015/10/30/automatic-social-discipline

antisocial.scpt

set quitlist to {"Tweetbot", "Calendar", "Messages", "Skitch"}
set exceptionTriggerList to {"Skype"}

tell application "System Events"
	set activeAppName to name of the first process whose frontmost is true
end tell

set exceptionRunning to false
repeat with exceptionName in exceptionTriggerList
	if exceptionRunning is false and application exceptionName is running then
		set exceptionRunning to true
	end if
end repeat

if exceptionRunning is false then
	repeat with appName in quitlist
		set hasOpenWindow to false
		tell application "System Events"
			if exists (window 1 of process appName) then
				#display dialog (appName as string)
				set hasOpenWindow to true
			end if
		end tell
		if (activeAppName as string) is not (appName as string) and application appName is running and hasOpenWindow is not true then
			tell application appName to quit
		end if
	end repeat
end if