@verb #7351:"@own" this none none rdo #55
@program #7351:"@own" this none none
if (!(player == listassoc(this.apt, #7350.rooms)[2]))
  player:tell("You aren't the owner of this apartment.")
  return
endif
if (!$cmd_utils:yes_or_no("Are you absolutly sure that you want to take ownership of this apartment, the keys, and the exits? These will take up part of your quota, but allow you to have complete control over them. Are you sure?", 0))
  return player:tell("Ok, not taking ownership.")
endif
x = listassoc(this.apt, #7350.rooms)
for y in (x[3..$])
  $wiz_utils:set_owner(y, player, 1)
endfor
player:tell("All objects (", toliteral(x[3..$])[2..$ - 1], ") are now completely in your control. We recommend that you do not chparent the apartment room. You are free to build more then one room from this room using @dig.")
.