foreach in $loc do checkit;
if $target's link > 0 then islinked else noexit;
##checkit:
if $for_id's class like exit 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] 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]";
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] looks around for an exit but could not find one";
look $loc;
msg $loc,$actor,$actor,0,'force',"force:look $loc";