@verb #12:"@timezone @tz" any any any rdo #8084
@program #12:"@timezone @tz" any any any
if (player != this)
  return $msg:mtell("huh")
endif
player:tell("Your current time zone is ", this.timezone_spec, " (", this:ctime(), ").")
if (!argstr)
  return player:tell("Type '", verb, " list' to get a list of all valid time zones.")
elseif (argstr == "list")
  return player:tell({"", "Valid time zones:", @$su:columnize($time_utils.zoneinfo_zones, 3), "", tostr("Type '", verb, " [timezone]' to set your time zone.")})
endif
if (x = listassoc(argstr, $time_utils.timezone_aliases))
  player:tell(x[1], " is an alias for ", x[2], ".")
  argstr = x[2]
endif
if (!(argstr in $time_utils.zoneinfo_zones))
  return player:tell("That's not a valid time zone.  Type '", verb, " list' to get a list of all valid time zones.")
endif
"Ensure proper capitalization."
argstr = $time_utils.zoneinfo_zones[argstr in $time_utils.zoneinfo_zones]
this.timezone_spec = argstr
player:tell("Your new time zone is ", this.timezone_spec, " (", this:ctime(), ").")
"Last modified by Dax (#789) on Sat Feb 22 12:35:53 2003 MST."
.