@verb #1000:"tick_noon" this none this rxdo #1177
@program #1000:"tick_noon" this none this
"This verb is supposed to be executed every day at arround noon."
"It figures out when the next sunset and sunrise will be, then runs two tasks that will trigger each event."
caller_perms():isa($guardian) || caller_perms():controls(this) || raise(E_PERM)
magic = this:sunset_sunrise(this:date_to_days(ctime()))
suspend(0)
now = (ctime()[27] == "D" ? -3630 | -30) + $time_utils:to_seconds($player:ctime(time(), "Canada/Eastern")[12..19])
$clock:schedule(#1000, "dusk", {}, 0, 0, 86400 + magic[1] - now)
$clock:schedule(#1000, "dawn", {}, 0, 0, 86400 + magic[2] - now)
"Last modified by DT_Mayor (#1177) on Fri Nov 29 19:56:32 2002 MST."
.