@verb #1011:"@stand*ards" any none none rxdo #7153
@program #1011:"@stand*ards" any none none
"Usage:  @standards [<room>]"
"        @stand     [<room>]"
""
"   -=>  Used to check out if a room matches wizard specifications.  It checks"
"        the description, and makes sure all the exits have messages.  Returns"
"        anything that hasn't been set yet."
"        This is a modified version of the verb provided at ParcFTP."
this:update_usage(verb)
bad = 0
exit_msgs = {"description", "leave_msg", "oleave_msg", "oarrive_msg"}
entrance_msgs = {"description", "leave_msg", "oleave_msg", "oarrive_msg"}
dobj = $string_utils:match_object(dobjstr, player.location)
if (!valid(dobj) || !$object_utils:isa(dobj, $room))
  dobj = player.location
endif
player:tell("Using room ", dobj.name, "(#", toint(dobj), ").")
if (!dobj.description)
  player:tell(dobj.name, "(#", toint(dobj), ") does not have a description.")
  bad = 1
endif
for exit in (dobj:exits())
  out = "Exit " + exit.name + "(#" + tostr(toint(exit)) + ")"
  if (!$object_utils:isa(exit, $exit))
    player:tell(out, " does not have a valid destination.")
    bad = 1
  endif
  for msg in (exit_msgs)
    if (!exit.(msg))
      player:tell(out, " does not have the ", msg, " set.")
      bad = 1
    endif
  endfor
endfor
"for entrance in (dobj.entrances)"
"  out = (((\"Entrance \" + entrance.name) + \"(#\") + tostr(toint(entrance))) + \")\";"
"  if (!$object_utils:isa(entrance, $exit))"
"    player:tell(out, \" does not have a valid destination.\");"
"    bad = 1;"
"  endif"
"  for msg in (entrance_msgs)"
"    if (!entrance.(msg))"
"      player:tell(out, \" does not have the \", msg, \" set.\");"
"      bad = 1;"
"    endif"
"  endfor"
"endfor"
"  ^^^^^  Disabled after SNM modifications."
if (!bad)
  player:tell("This room matches wizard specs.")
endif
"Last modified by Dax (#789) on Tue May  3 14:11:55 2005 MDT."
.