get $target in $loc;
if $target > 0 then check2 else fail1;
##check2:
if $target's link > 0 then check3 else notexit;
##check3:
if $pw like $target's pwd then fortify else itslocked;
##fortify:
$nearexit = $target;
$farexit = $target's link;
new "a farbarricade";
$farfort = $new_id;
new "a barricade";
$nearfort = $new_id;

$thisfort = $nearfort;
$thatfort = $farfort;
$thisexit = $nearexit;
runsub fortify2;
$thisfort = $farfort;
$thatfort = $nearfort;
$thisexit = $farexit;
runsub fortify2;
relook $loc;

##fortify2:
$material = '';
swap $material add _fortified_;
$fortdata = "fort=$thatfort}2{exit=$thisexit";
manipulate $matvals set fortified to $fortdata;
set $thisfort's material to $material;
set $thisfort's matvals to $matvals;
unhost $exit;
$fortloc = $thisexit's loc;
set $thisfort's loc to $fortloc;
set $thisexit's loc to $thisfort;
set $thisexit's pose to 'fortified';
say 'fortify',"[$actor] fortifies [$thisexit] with [$thisfort] in [$fortloc]";

##itslocked:
sayto $init_obj,"[$target] is locked";
##notexit:
sayto $init_obj,"That is not an exit";
runsub fail1;
##fail1:
var $click_cmd to 'link';
var $click_mid to 'to zzzzz';
var $desc_intro to 'Step 1. First click on the exit you want to fortify:

';
look $loc,list;
##fail2:
var $click_cmd to "link $target to ";
var $desc_intro to 'Step 2. Now click on the object you want as fortification:

';
look $loc,list;