foreach in $loc do checkit;
if $target's link > 0 then islinked else noexit;
##checkit:
if $for_id's face like east 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:
say 'leaves',"[$actor] goes east and leaves via [$target]";
set $actor's loc to $tlink's loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

var $loc to $actor's loc;
say 'arrives',"[$actor] appears via [$tlink]";

refresh $actor;
set $actor's host to $tlink;
set $actor's hosthow to "beside";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";

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