Locked Box
Locked Object
@create box @action open;lock;unlock=box @link lock=$nothing @succ lock={lexec:{&cmd}.cmd} lsedit lock=lock.cmd {null:{store:yes,islocked}} You lock the box tightly. .end lsedit lock=unlock.cmd {null:{store:no,islocked}} You unlock the box. .end lsedit lock=open.cmd {if:{eq:{prop:islocked},no},You open the box,Sorry the box is locked.} .end @desc box=A nice box, with a small (lock) that if you (unlock) you can (open). @sdesc box=A small (box) with a lock