Repeatedly toggle Skype status using AppleScript

toggler.scpt

# Not using "offline" beacuse of the wait..
set allowed_statuses to {"online", "dnd", "invisible", "away"}
set delay_time to 0.5

repeat
	repeat with status in allowed_statuses
		delay delay_time
		log "Chaning status to " & status
		tell application "Skype"
			send command "SET USERSTATUS " & status script name "Toggler"
		end tell
	end repeat
end repeat

# Go back to online
tell application "Skype" to send command "SET USERSTATUS online" script name "Toggler"