-- Script to Take and Save Screenshots on macOS

-- Set the output directory
set outDir to "/path/to/output/directory"

-- Check if the directory exists
if not exists outDir then
    mkdir outDir
end if

-- Number of minutes between screenshots
set intervalInMinutes to 5

-- Time Interval in Epoch ms
set millisecondsInterval to intervalInMinutes * 60 * 1000

-- Repeat every <intervalInMinutes> minutes
on run repeat
    -- Create a Date object
    set timeNow to current date

    -- Format the filename with the current timestamp
    set filename to timeNow & " " & timeNow's seconds
    set filename to filename & ".png"

    set outputFile to (outDir & filename) as alias

    -- Silence any GUI elements or prompts
    tell application "System Events"
        set everyProcess's suppressMessages to true
        set current application's suppressMessages to true
        set oldVisibility to visible of every process
        set visible of every process to false
    end tell

    -- Capture and save the screenshot
    tell application "Screenshot"
        activate

        -- Capture the screenshot
        set bounds to {whole pixels, frontmost, true}
        set myImage to screenshot bounds

        -- Save the screenshot
        myImage's PNG file |put| outputFile
    end tell

    -- Restore System Event settings
    tell application "System Events"
        set everyProcess's suppressMessages to false
        set current application's suppressMessages to false
        set visible of every process to oldVisibility
    end tell

    -- Loop again
    script.run repeat after (millisecondsInterval / 1000)
end run repeat

-- Start the Repeat Loop
run repeat

-- Set the time interval between screenshots (in minutes)
set interval to 5

-- Set the save location for screenshots
set saveLocation to "~/Desktop/Screenshots"

-- Put the script in the background and prevent it from showing up in the Dock
tell application "System Events" to tell current application
    set the visible of it to false
    set the bnd dis of it to true
end tell

-- Loop continuously, taking screenshots and saving them
repeat
    -- Get the current time as a string
    set currentTime to (current date) as string

    -- Replace spaces in the time string with underscores
    set currentTime to text items of currentTime
    set currentTime to text 1 thru -1 of currentTime as string
    set currentTime to currentTime's contents
    set currentTime to current times's contents
    set replacedTime to currentTime

    -- Take a screenshot and save it to the specified location
    tell application "System Events"
        -- Hide the menu bar
        set visible of menu bar to false
        -- Hide the Dock
        set visible of dock to false
        -- Take a screenshot of the entire screen
        set screenshot to screenshot of screen
        -- Show the menu bar and Dock again
        set visible of menu bar to true
        set visible of dock to true
        -- Save the screenshot to a file
        save screenshot to file saveLocation & "/" & replacedTime & ".png"
    end tell
    -- Wait for the specified time interval
    delay interval * 60
end repeat

-- Global variable to store the save path for screenshots
property savePath : POSIX path ((path to desktop from user domain) & "Screenshots")

-- Create the save path if it doesn't exist
tell application "System Events"
    try
        set folderExists to ¬
            (exists folder savePath) -- Attempt to check for the folder's existence
    on error
        -- Folder doesn't exist, create it
        make new folder at savePath with properties {name:"Screenshots"}
        folderExists to true
    end try
end tell

-- Check if the folder exists, if not ask the user to create it
if folderExists is false then
    display dialog "The folder 'Screenshots' doesn't exist on your desktop. Please create it and re-run the script."
    script quit
end if

try
    -- Define the screen size and the location of the screenshots
    set {width, height} to {720, 1280} -- Adjust these values to your preferred screenshot size
    -- Create an alias that saves the screenshot to the 'Screenshots' folder with a timestamped name
    set screenshotName to (current date) & "-" & (current time) & ".png" -- Adjust the filename format as desired
    alias screenshotDestination to POSIX file savePath & screenshotName

    -- Start a loop to capture screenshots at regular intervals
    while false
        -- Capture a screenshot and save it to the destination
        copy screen to screenshotDestination
        -- Log the saved screenshot for reference
        log ("Screenshot saved to " & screenshotDestination)
        -- Delay the next screenshot by 300 seconds, adjust as needed
        delay 300

    end while
on error
    -- In case of any errors, display an alert and end the script
    display alert "An error occurred while capturing the screenshot." message ¬
        "Please check the script and try again."
end try

-- Set the interval in minutes
set intervalMinutes to 5

-- Get the current desktop resolution
set desktopSize to current desktop's pixelSize

-- Create a folder to store the screenshots
set folderPath to "/Users/USERNAME/Desktop/Screenshots/"
do shell script "mkdir -p " & folderPath

-- Define the screenshot function
on takeScreenshot()
    -- Get the current date and time
    set currentDate to (current date)
    set currentTime to (time string of currentDate)
    set formattedDate to "" & (day of currentDate) & "-" & (month of currentDate) & "-" & (year of currentDate)
    set formattedTime to "" & (hours of currentTime) & "-" & (minutes of currentTime) & "-" & (seconds of currentTime)

    -- Create the filename
    set filename to "" & folderPath & formattedDate & " - " & formattedTime & ".png"

    -- Take the screenshot
    set screenshot to screen capture {window -1}
    set myJPEG to JPEG picture from picture screenshot's data as JPEG

    -- Save the screenshot
    save myJPEG to filename

    -- Log the saved screenshot
    log "-- Screenshot saved: " & filename
end takeScreenshot

-- Schedule the screenshot task
repeat
    takeScreenshot()
    delay intervalMinutes * 60
end repeat

-- Set the interval in minutes between screenshots
set interval to 5

-- Set the destination folder for screenshots
set destinationFolder to "~/Desktop/screenshots"

-- Create the destination folder if it doesn't exist
if not exists destinationFolder then
    tell application "Finder"
        make new folder at destinationFolder
    end tell
end if

-- Define the script to take a screenshot
on takeScreenshot()
    set outputFile to destinationFolder & ":" & current date & ".png"
    tell application "System Events"
        set screenshot to screenshot screen
        set PNGS to class PNGS of current application
        set myPNGFile to outputFile as alias
        PNGS's writePNGFile:screenshot to:myPNGFile withProperties:{class:PNGS's class PNG file type, compression:PNGS's compression no compression}
    end tell
end takeScreenshot

-- Schedule the screenshot task
set timer to current application's NSTimer's scheduledTimerWithTimeInterval:interval target:(missing value) selector:"takeScreenshot" userInfo:nil repeats:true

-- Run the script in the background
return