##push:runsub isitme;
##use:runsub isitme;
##throw:runsub isitme;

##isitme:
if $actor eq $target then flyit else end;

##flyit:
find $loc,random not me;
say 'msg',"[$init_obj] flies [$actor] over [$found_id]";