Randomiser les heures de début d'événement

J'ai trouvé la réponse en cherchant sur Google applescript make start time random .

J'ai utilisé le code suivant de ce fil de discussion de la communauté de soutien à la Apple :

tell application "TextEdit"
launch
repeat
delay (random number from 2 to 8)
set textToType to "text" & some item of {"hello", "goodbye"} & text
end repeat
end tell

et pour le texte :

some item of {"blue", "red"}

Voici le script final qui a fonctionné pour moi :

tell application "iCal"

    set myCal to "Scheduled tasks"
    activate
    set allEvents to every event in calendar myCal
    repeat with anEvent in allEvents
        set modTime to (random number from 0 to 30)
        display dialog modTime with title start date of anEvent as text
        set newStartTime to (start date of anEvent) + modTime * minutes
        set start date of anEvent to newStartTime
        set (end date of anEvent) to ((end date of anEvent) + modTime * minutes)
    end repeat
end tell