@verb #7171:"@clock" any any any rxdo #7407
@program #7171:"@clock" any any any
caller_perms() == player || raise(E_PERM)
if (!argstr)
  m = player
  tz = player.timezone_spec
elseif (match(argstr, "^[A-Z ]+$", 1) && listassoc(argstr, $time_utils.timezones))
  m = player
  tz = argstr
elseif ($cmd_utils:player_match_failed(m = $su:match_player(argstr), argstr))
  return
else
  tz = m.timezone_spec
endif
player:tell("It is currently ", m:ctime(time(), tz), " in ", m:title(), "'s timezone.")
"Last modified by Cecil (#7407) on Sun May 26 13:14:38 2002 MDT."
.