@verb #9090:"@zone" none none none rdo #7446
@program #9090:"@zone" none none none
if (!(player in this.ppl))
  return E_PERM
endif
for x in (this.zones)
  player:tell(x in this.zones, ". ", x)
endfor
zone = $cmd_utils:read("in the number beside the zone you want to switch to.")
if (toint(zone) < 1 || toint(zone) > length(this.zones))
  return player:tell("Must be between 1 and ", length(this.zones), ".")
endif
this.zone = toint(zone)
player:tell("Zone set to ", this.zones[toint(zone)], ".")
"Last modified by Dax (#789) on Tue May  3 14:12:33 2005 MDT."
.