AppleScript to pick a random macOS accent color

CycleAccentColor.scpt

-- https://apple.stackexchange.com/a/338355/13458

tell application "System Preferences"
	reveal anchor "Main" of pane id "com.apple.preference.general"
end tell

tell application "System Events"
	
	repeat until exists of checkbox "Dark" of window "General" of application process "System Preferences"
		delay 0.1
	end repeat
	
	set accentColors to {"Blue", "Purple", "Pink", "Red", "Orange", "Yellow", "Green", "Graphite"}
	repeat with a from 1 to 5
		set randIndex to random number from 1 to count of accentColors
		set theColor to item randIndex of accentColors
		set isColorSelected to value of checkbox theColor of window "General" of application process "System Preferences"
		if isColorSelected is 0 then
			click checkbox theColor of window "General" of application process "System Preferences"
			exit repeat
		end if
	end repeat
end tell

tell application "System Preferences" to quit