@verb #6397:"Allow Disallow" any none none rdo #6397
@program #6397:"Allow Disallow" any none none
player != this && raise(E_PERM)
person = $su:match_player(argstr)
if (!valid(person))
  return player:tell("Sorry, I couldn't find \"", argstr, "\".")
else
  if (verb[1] == "A" && person in #4001.allowed)
    return player:tell(person.name, " is already allowed to enter.")
  elseif (verb[1] == "D" && !(person in #4001.allowed))
    return player:tell(person.name, " doesn't have access to enter.")
  endif
  #4001.allowed = verb[1] == "A" ? {@#4001.allowed, person} | setremove(#4001.allowed, person)
  player:tell(person.name, " (", person, ") is no", verb[1] == "A" ? "w " | " longer ", "allowed to enter.")
  person:tell("You are no", verb[1] == "A" ? "w " | " longer ", "allowed to enter Somewhere (#4001).")
endif
"Last modified by James (#6397) on Sun Jul 11 21:12:07 1999 MDT."
.