foreach in $loc do checkit;
if $target's link > 0 then islinked else noexit;
##checkit:
if $for_id's face like north then useit else fail;
##useit:
var $target to $for_id;
##islinked:
set $actor's pose to "";
var $tlink to $target's link;
if $target's link > 0 then newloc else noexit;
##newloc:
if $tlink's loc < 1 then setloc;
var $oldloc to $loc;
motion $actor's motion,leaves;
say 'leaves',"[$actor] $motion north via [$target] _ping $target,arrow1_nw,2";
msg $loc,$actor,0,0,'force',"force:look $loc";

set $actor's loc to $tlink's loc;
clear $actor,all;
var $loc to $actor's loc;
motion $actor's motion,arrives;
say 'arrives',"[$actor] $motion via [$tlink]";
refresh $actor;
set $actor's host to $tlink;
set $actor's hosthow to "beside";

var $loc to $actor's loc;
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

runsub noisy/10;
##noisy:
msg 0,$actor,0,0,"moves","You can hear [$actor] moving around";

##setloc:
set $tlink's loc to 2;

##noexit:
say 'look',"[$actor] wants to travel north but can't see an easy way to get there";
rem look $loc;