$LOCATION=first from left;second from left;third from left;fourth from left;fifth from left;sixth from left
$ENTEROFFICEA=(124,27);(128,22);(134,16);(140,17);(142,20);(146,24)
$ENTEROFFICEB=(150,53);(114,12);(110,140);(98,110);(126,110);(112,105)
$EXITOFFICEA=(150,54);(116,13);(112,141);(98,111);(126,111);(110,106)
$EXITOFFICEB=(124,28);(130,23);(136,17);(138,18);(142,21);(146,25)
$OFFICELOCKS=(124,27);(128,22);(134,16);(140,17);(142,20);(146,24)
$OFFICEVIEW=(148,56);(114,15);(110,136);(98,112);(128,113);(112,108)
$SHORTNAME=one;two;three;four;five;six
&for #COUNT=1 to 6
* // office $SHORTNAME(#COUNT), $LOCATION(#COUNT)
* // $SHORTNAME(#COUNT) doorway entering
(0:7) When somebody moves into position $ENTEROFFICEA(#COUNT),
 (1:3) and they move into object type #LOCKUNLOCKED,
     (5:14) move the triggering furre to $ENTEROFFICEB(#COUNT) if there's nobody already there.

* // $SHORTNAME(#COUNT) doorway exiting
(0:7) When somebody moves into position $EXITOFFICEA(#COUNT),
    (5:41) place object type #LOCKUNLOCKED at $OFFICELOCKS(#COUNT).
     (5:14) move the triggering furre to $EXITOFFICEB(#COUNT) if there's nobody already there.

* // $SHORTNAME(#COUNT) Inform of lockedness
(0:7) When somebody moves into position $OFFICELOCKS(#COUNT),
 (1:3) and they move into object type #LOCKLOCKED,
     (5:11) play sound 24 to every furre who can see the triggering furre.

* // $SHORTNAME(#COUNT) locking action
(0:31) When a furre says {~lock},
 (1:8) and they can see position $OFFICEVIEW(#COUNT),
   (3:2) at position $OFFICELOCKS(#COUNT) on the map,
     (5:6) swap object types #LOCKLOCKED and #LOCKUNLOCKED.

(0:31) When a furre says {~lock},
 (1:8) and they can see position $OFFICEVIEW(#COUNT),
 (1:1013) and position $OFFICELOCKS(#COUNT) is object type #LOCKLOCKED,
     (5:203) emit message {Office $SHORTNAME(#COUNT) is <b>locked.</b>} to every furre who can see the triggering furre.

(0:31) When a furre says {~lock},
 (1:8) and they can see position $OFFICEVIEW(#COUNT),
 (1:1013) and position $OFFICELOCKS(#COUNT) is object type #LOCKUNLOCKED,
     (5:203) emit message {Office $SHORTNAME(#COUNT) is <b>unlocked.</b>} to every furre who can see the triggering furre.

&next #COUNT