if target of use then used;
##used:
$show = 'Results:';
foreach in $loc do checkit;
print "$show";
##checkit:
$link = $for_id's link;
if $link > 0 then checkit2;
##checkit2:
$mat = $for_id's material;
swap $mat take _door_;
swap $mat add _door_;
set $for_id's material to $mat;
swap $mat so '\\|' is ',';
$show = "$show / [$for_id] = $mat fixed";