set this_time to -2880

tell application "iCal"
    repeat with this_calendar in calendars
        tell calendar this_calendar
            set all_events to every event of this_calendar
            repeat with this_event in all_events
                tell this_event
                    delete every sound alarm
                    delete every mail alarm
                    make new sound alarm at end with properties {trigger interval:this_time}
                    make new mail alarm at end with properties {trigger interval:this_time}
                end tell
            end repeat
        end tell
    end repeat
end tell