Auto-advance a Deckset presentation 15-seconds per slide

Blitz Talk.scpt

tell application "Deckset"
	set doc to first document
	set ind to 0
	set slideIndex of doc to ind
	set delaySeconds to 15
	
	--set question to display dialog "Start presentation?" buttons {"OK", "Cancel"} default button 1
	--set answer to button returned of question
	
	--if answer is equal to "OK" then
	repeat (number of slides in doc) times
		delay (delaySeconds)
		set ind to ind + 1
		set slideIndex of doc to ind
	end repeat
	--end if
end tell