@verb #14:"@su" any none none rdo #7407
@program #14:"@su" any none none
"Switches users, effectively, by channeling all input into the project."
if (caller != this)
  return player:tell("Huh?")
elseif ($command_utils:player_match_failed(dobj = $string_utils:match_player(argstr), argstr))
  return
elseif (!dobj:isa($project) && !this:isa($guardian) || !this:controls(dobj))
  return $msg:mtell("not_own", dobj)
elseif (!dobj:connected())
  return player:tell(dobj:title(), " is not connected!")
elseif (!(this in dobj.spied))
  return player:tell("Bad, bad idea. @su'ing to a project you're not @listening to can be rather disorienting.")
elseif (dobj.location:isa($player))
  return player:tell("You cannot @su to a project which is inside a player.")
endif
player:tell("Okay, all input will be redirected to ", dobj:title(), "! Type \"@abort\" or \".\" at any time to end.")
while (dobj:connected() && typeof(r = `read(player) ! ANY') == $STR && !(r in {"@abort", ".", "@abort~0D~0A", ".~0D~0A"}))
  dobj:connected() ? force_input(dobj, r) | player:tell("Line ignored: ", dobj:title(), " disconnected.")
endwhile
player:tell("Input redirection terminated! (In other words, everything's back to normal again.)")
"Last modified by Dax (#789) on Tue May  3 14:03:25 2005 MDT."
.