get $text;
if $text[1] eq 'to' then check1 else justgo;
##check1:
say 'msg',"--- '$text' ---";
if $text eq 'up' then findup else check2##findup:
say 'xfindup',"Looking for a way up";
##check2:
goto justgo;
##justgo:
get $target;
say 'moves',"[$actor] moves towards [$target]";
if $target > 0 then continue else fail;
##continue:
var $tlink to $target's link;
if $target's link > 0 then newloc else move;
##newloc:
say 'leaves',"[$actor] leaves via [$target]";
msg $loc,$actor,0,0,'force',"force:look $loc";

set $actor's loc to $target's link's loc;
var $loc to $actor's loc;
say 'arrives',"[$actor] appears via [$tlink]";
look $loc;
msg $loc,$actor,0,0,'force',"force:look $loc";
##move:
##fail:
say 'gotofail',"[$actor] could not find [$target]";