@verb #3512:"@knock(old)" any none none rxdo #6319
@program #3512:"@knock(old)" any none none
"Usage:  @knock <player name>"
"        @knock <room number>"
""
"Announces to all players in the given <room> that <player> would like to @join."
""
"Yet another verb by Lancer (#5999)."
this:update_usage("knock", player)
if (!args)
  return player:tell("Usage: ", verb, " &lt;player name or room number&gt;")
elseif (!valid(dest = dobj) && !valid(dest = $string_utils:match_player(argstr)))
  return player:tell("Not a valid player or room.")
endif
if (is_player(dest))
  where = dest.location
elseif (dest:isa($room))
  where = dest
elseif (dest:isa($editor))
  return player:sub_tell("Why not use @edit to get into %1?", dest)
else
  return player:sub_tell("I can't knock on the walls of %1 (#%1~#)!!", dest)
endif
if (where == player.location)
  player:sub_tell("You're already there")
else
  try
    where:knocked(player)
  except e (ANY)
    return player:sub_tell("Sorry, %1 (#%1~#) doesn't allow knocking.", where)
  endtry
  where:sub_announce("%n knocks on the walls, wondering if %n~s could @join.")
  "  fork (0)"
  "    `where:knocked(player) ! ANY';"
  "  endfork"
  player:sub_tell("You have knocked on the walls of %1.  Please wait for a response before you @join.", where:title())
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:33 2001 MST."
.