@verb #101:"bf_force_input" this none this rxdo #55
@program #101:"bf_force_input" this none this
if (`args[1].prevent_force_input ! ANY')
  raise(E_PERM)
elseif (!caller_perms():controls(args[1]))
  raise(E_PERM)
elseif (valid(args[1]) && caller != $login && args[1].location:isa($player))
  raise(E_PERM, "I can't let you do that.")
  "Because it is permissable to 'give' objects to other players, allowing them to be force_inputted afterwards means that player-only verbs that exist on the player would be exploitable, just as any wiz permed verb in a room could be."
  "elseif (!is_player(args[1]))"
  "  raise(E_INVARG);"
  "#5451 needs this code to be commented."
  "elseif (index(args[2], \"@extend\"))"
  "  raise(E_PERM, \"Less auto-extenders, please.  Thanks!\");"
else
  return pass(@args)
endif
"Last modified by Lao-Tzu (#8084) on Thu Jun 27 06:22:33 2002 MDT."
.