@verb #1000:"dawn dusk" this none this rxdo #1177
@program #1000:"dawn dusk" this none this
"This verb activates all changes from dawn to dusk to dawn."
if (!$object_utils:isa(caller_perms(), $guardian))
  return E_PERM
endif
inside = {}
park = {#11}
road = children(#880)
for room in ({@park, @road})
  `room:("@cleanup")() ! ANY'
endfor
this:group_tell({@park, @road}, verb == "dawn" ? "The stars are going out one by one, as the eastern sky gets brighter." | "A cool, evening breeze is picking up.")
suspend(15)
this:group_tell({@park, @road}, verb == "dawn" ? "The sun is rising to the east." | "The sun is setting to the west, creating a spectacular sunset.")
this:group_tell(inside, verb == "dawn" ? "The sun is coming up outside." | "The sun is setting outside.")
suspend(15)
this.daytime = verb == "dawn"
fork (0)
  "Other players can have verbs called here."
  #2774:(verb)()
endfork
dobj = $housekeeper
this:group_tell({#11}, $msg:substitute(this.daytime ? "The housekeeper arrives and hoists the flags up the flag pole.  %D~S checks to make sure none are upside-down, then %d~s departs." | "The housekeeper arrives and takes the flags down from the flag pole.  %D~S folds them up carefully, then %d~s departs."))
this:group_tell(road, this.daytime ? "The streetlights overhead flicker, and then switch off." | "The streetlights overhead automatically switch on.")
suspend(15)
this:group_tell({@park, @road}, this.daytime ? "The cold night air is quickly dispelled by the warm sunlight." | "As the sunset fades away, the stars are coming out one by one.")
"Last modified by Dax (#789) on Sun Nov 24 16:17:30 2002 MST."
.