@verb #9090:"@addzone" none none none rdo #7446
@program #9090:"@addzone" none none none
if (!(player in this.ppl))
  raise("You're not allowed to make a new zone. :P")
endif
zonename = $cmd_utils:read("in the name of the new zone")
this.zones = listappend(this.zones, zonename)
this.rooms = listappend(this.rooms, {})
player:tell("Zone added.")
.