16 lines
374 B
AppleScript
16 lines
374 B
AppleScript
repeat
|
|
set {hours:h, minutes:m} to (current date)
|
|
if {0, 30} contains m then
|
|
set bells to (h mod 4) * 2 + (m div 30)
|
|
if bells is 0 then set bells to 4
|
|
set pairs to bells div 2
|
|
repeat pairs times
|
|
say "ding dong" using "Bells"
|
|
end repeat
|
|
if (bells mod 2) is 1 then
|
|
say "dong" using "Bells"
|
|
end if
|
|
end if
|
|
delay 60
|
|
end repeat
|