##tickloc:
runsub checkwhere;

##checkwhere:
find $loc, player suinoukon;
if $found_id > 0 then followit else movetoit;

##followit:
print "[$actor] bounces up next to [$found_id];

##movetoit:
$newloc = 87;
$toloc = $newloc's loc;
relocate $actor to $toloc print "[$actor] bounces away, out of sight" then "[$actor] bounces into view";
relook $loc;