: ferry
	prog "_ferry" getpropstr atoi dbref
;
: ferry_notify
	ferry #-1 rot notify_except
;
: dock_notify
	ferry "_dock" getpropstr atoi dbref
	#-1 rot notify_except
;
: minsleep
	dup 20 < if pop 20 then
;
: notifysleep
	( dup intostr me @ swap notify ) sleep
;
: main
	1 sleep
   ferry "_dock1" getpropstr
   ferry "_dock" rot 0 addprop
	1 begin dup while
		90 sleep
		"A horn blows as the ship gets ready to sail."
		dup dock_notify ferry_notify
			15 notifysleep
		"The ship pulls out of the harbor onto the open sea."
			ferry_notify
		"You watch as the ship pulls out of harbor and sets sail."
			dock_notify
		ferry "_dock" "open_water" 0 addprop
		1 begin "_msg" over intostr strcat ferry swap
		getpropstr dup while
			15 sleep
			ferry_notify 1 + loop
		pop pop
		15 notifysleep
		1 + dup intostr "_dock" swap strcat
		ferry swap getpropstr not if
			pop 1
		then
		dup intostr "_dock" swap strcat
		ferry swap getpropstr ferry "_dock"
		rot 0 addprop
		"The ship pulls slowly into port and comes to rest."
			ferry_notify
		"You watch the ship pull slowly into port and come to rest."
			dock_notify
		5 notifysleep
		"The ship's horn blows announcing its arrival."
			dock_notify
		ferry "_dock" getpropstr atoi dbref name
		"The ship's horn blows announcing its arrival at "
		swap strcat "." strcat ferry_notify
	loop
;