if reacting to say then checkwho;

##checkwho:
if $init_obj's name like = '(omenofdoom)' then checkwhat else checkaccess;

##checkaccess:
find $loc, level 4 security clearance card;
if $found_id = 62774 then checkfinal else end;

##checkfinal:
if $init_obj = $found_id's host then checkwhat else end;

##checkwhat:
if $init_cmd like "activate locking systems" then doit else checkagain;

##checkagain:
if $init_cmd like "disengage locking mechanisms" then undoit else end;

##doit:
find $loc, thick metal door;
$doory = $found_id;
$linkedobj = $doory's link;
set $doory's link to $target;
set $doory's extra = "which is locked";
relook $loc;
print "[$doory] locks itself securely!";
runsub locktight;

##locktight:
set $linkedobj's link to $linkedobj;
set $linkedobj's extra = "which is locked";
$loc = $linkedobj's loc;
say 'locks',"Someone has locked [$linkedobj]";
relook $loc;
print "[$found_id's link] locks itself securely!";

##undoit:
find $loc, thick metal door;
$doory = $found_id;
set $doory's link to 62411;
$linkeddoor = 62411;
set $doory's extra = "";
print "The heavy locks on [$doory] disengage!";
relook $loc;
runsub unlockall;

##unlockall:
set $linkeddoor's link to $doory;
set $linkeddoor's extra = "";
$loc = $found_id's loc;
say 'locks',"Someone has unlocked [$linkeddoor]";
relook $loc;
print "The heavy locks on [$linkeddoor] disengage!";