Mori entry to iCal Event

This script is a very simple one. Highlight an entry in Mori. The entry should have standard columns Title and Due Date activated.

tell application "Mori"
set theDate to due date of current entry
set theName to name of current entry
set theNote to note of current entry
end tell
tell application "iCal"
tell calendar "MyCalendar" -- the user should specify the name of the target calendar here
set theEvent to make new event at end with properties {description:theNote, summary:theName, start date:theDate, allday event:true}
tell theEvent
make new display alarm at end with properties {trigger date:theDate}
end tell
end tell
end tell