##say:
runsub checkwho;
##checkwho:
if $init_obj's name like = (omenofdoom) 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;
set $found_id's link to '';
print "[$found_id] locks itself securely!";
relook $loc;
runsub locktight;
##locktight:
find $loc, 62411;
set $found_id's link to '';
print "[$found_id's link] locks itself securely!";
##undoit:
find $loc, thick metal door;
set $found_id's link to 62411;
print "The heavy locks on [$found_id] disengage!";
relook $loc
runsub unlockall;
##unlockall:
find $loc, 62411;
set $found_id's link to 62412;
print "The heavy locks on [$found_id] disengage!";