get $pretext,$target in $loc;
if $target > 0 then moveme else try2;
##try2:
get $target;
if $target > 0 then checkhide else fail;
##checkhide:
if $target's pose like "hid" then end else checkprivate;

##checkprivate:
$privobj = $target;
$material = $privobj's material;
$matvals = $privobj's matvals;
$restrict = 0;
if $material like _private_ then checkprivate2;
if $restrict == 1 then denyaccess else checkprivateloc;

##checkprivateloc:
$privobj = $target's loc;
$material = $privobj's material;
$matvals = $privobj's matvals;
if $material like _private_ then checkprivate2;
if $restrict == 1 then denyaccess else moveme;

##checkprivate2:
manipulate $matvals get private to $private;
manipulate $private get goto to $restrict by 2;
if $restrict == 1 then checkfriends;

##checkfriends:
$owner = $privobj's owner;
$material = $owner's material;
if $material like _friend_ then checkfriends2 else denyaccess;

##checkfriends2:
$matvals = $owner's matvals;
$fobj = "f$init_obj";
manipulate $matvals get friend to $friend;
manipulate $friend get $fobj to $override by 2;
if $override == friend then override;

##override:
$restrict = 0;

##denyaccess:
say 'denied',"A mysterious force from [$privobj] blocks [$init_obj] from teleporting.";

##moveme:
clear $actor,all;
set $actor's loc to $target's loc;
say 'leaves',"[$actor] dissapears in a puff of smoke";
msg $loc,$actor,0,0,'force',"force:look $loc";

var $loc to $target's loc;
say 'arrives',"[$actor] appears out of thin air!";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";
refresh $actor;

##end:
var $target to 0;