AppleEvent timed out

wrap everything in a timeout:
with timeout of 6000 seconds
– your script here.
end timeout
You can alter the number pretty high, but I"m not sure what the limit is. Just add enough to allow for your copy.
HI, DAN!
T.J.

Can’t totally test on my end, of course, but here’s a good start, Dan. You’ll notice I’ve streamlined your copy functions so you don’t have to keep selecting something you want to duplicate.

property theMonths : {January, February, March, April, May, June, July, August, September, October, November, December}
set theDate to current date
set theDay to the day of theDate
set theYear to the year of theDate
set theMonth to the month of theDate
repeat with x from 1 to 12
	if theMonth = (item x of theMonths) then
		set theMonth to x
		exit repeat
	end if
end repeat
set theName to theMonth & theDay & theYear as text --"1302002"  
with timeout of 6000 seconds
	tell application "Finder"
		activate
		duplicate folder "libraryworld" of folder "Headquaters" of folder "Documents" of startup disk to folder "Backup" of folder "Documents" of startup disk
		set name of folder "libraryworld" of folder "Backup" of folder "Documents" of startup disk to theName
	end tell
end timeout