property Pref : ((path to preferences folder) & ".v") as string

on run

tell application "Finder" to ¬
set ListaPNG to name of every file in desktop ¬
whose name ends with ".png"
set Risultato to button returned of (display dialog ¬

"Capture or reset counter (" & my Incremento("") & ")..." with title ¬
"DVD screen capture" buttons {"Reset", "Capture"} default button 2 with icon note)

if Risultato is "Reset" then

my Incremento(true)
return run

end if
set Nome to item 1 of ListaPNG
repeat until ListaPNG does not contain Nome

set Nome to (("dvd_" & my ConvertiContatore(my Incremento(false), 3) & ¬
".png") as string)

end repeat

do shell script "screencapture -i ~/Desktop/" & Nome

end run

on ConvertiContatore(Numero, Q)

set Numeri to "0000" & Numero
set C to length of Numeri
return (characters (C - Q + 1) thru C of Numeri) as string

end ConvertiContatore

on Incremento(Reset)

if Reset = "" then

set Riferimento to open for access file Pref
try

set N to (read Riferimento) as string

on error

set N to 1

end try
close access file Pref
return N

else if Reset then

try

set Riferimento to open for access file Pref with write permission
write (1 as string) to Riferimento
close access file Pref

on error Errore

close access file Pref

end try

else if not Reset then

try

set Riferimento to open for access file Pref
try

set N to (read Riferimento) as string

on error

set N to 1

end try
if N = "" then set N to 1
close access file Pref
set Riferimento to open for access file Pref with write permission
write (((N as integer) + 1) as string) to Riferimento
close access file Pref

on error Errore

close access file Pref
display dialog Errore
tell application "Finder" to set Esiste to exists item Pref
if not Esiste then

set Riferimento to open for access file Pref with write permission
write (1 as string) to Riferimento
set N to 1
close access file Pref

else

set N to 100

end if

end try
return N

end if

end Incremento