animate.scpt

-- convert -coalesce image.gif ~/Documents/cin/img%02d.png

set i to 0
set wallpaper_folder to (path to home folder as string) & "Documents:cin" as alias
tell application "Finder"
	set fileList to (every file of folder wallpaper_folder) as alias list
end tell

tell application "System Events"
	repeat
		set i to i + 1
		set current_index to i mod (count fileList) + 1
		set thisPOSIXPath to (the POSIX path of (item current_index of fileList))
		tell current desktop
			set picture to thisPOSIXPath
			delay 0.07
		end tell
	end repeat
end tell