rem - pick up anything not locked;

foreach in $loc do chkit not doorway not locked;
say 'force',"force:look $loc";
##chkit:
clear $for_id,all;
unhost $for_id;
set $for_id's loc to $actor;
set $for_id's pose to 'hidden';
say 'msg',"[$actor] harvested [$for_id]";