OS X Connection Monitor (AppleScript) -- Requires AnyBar

connection-monitor.scpt

use AppleScript version "2.4" -- Yosemite (10.10) or later
use scripting additions

property imageName : "red"
property delayValue : 20
property googleURL : "http://www.google.com"

on run
	set imageName to "white"
end run

on idle
	if (count (get ((googleURL as URL)'s host & {dotted decimal form:""})'s dotted decimal form)) > 0 then
		set imageName to "black"
	else
		if imageName is "black" then
			set imageName to "question"
			set delayValue to 2
		else if imageName is "question" then
			set imageName to "white"
			set delayValue to 60
		end if
	end if
	tell application "AnyBar" to set image name to imageName
	return delayValue
end idle