@create $thing called "Schroedinger's Cat Box","cat box",catbox,scb
drop catbox
@lock catbox with here
@set catbox.take_failed_msg to "Schroedinger's Cat Box will not move for you.  It must be locked into place."
@set catbox.otake_failed_msg to "tries to move Schroedinger's Cat Box, but the box will not move."
@set catbox.description to {"Schroedinger\'s Cat Box", "is a seemingly paradoxical thought experiment devised by Erwin Schroedinger", "that attempts to illustrate the incompleteness of the Copenhagen", "interpretation when going from subatomic to macroscopic systems.", "Schroedinger proposed his \"cat\", after a suggestion of Albert Einstein\'s,", "stating that if a scenario existed where a cat could be so isolated from", "external interference (decoherence), the state of the cat can only", "be known as a superposition (combination) of possible rest states", "(eigenstates), because finding out (measuring the state) cannot be done", "without the observer interfering with the experiment \- the measurement", "system (the observer) is entangled with the experiment."}
@verb catbox:open this none none

@program catbox:open
player:tell("You creep over to the box to open it.", "With a quick glance over your shoulder you open the box...");
player.location:announce("After a quick glance over the shoulder, a look of horror comes over", player.name,"'s face, as the cat's box is opened.");
suspend (2);
first={"You discover that","To your surprise, you find that","Unbelievably,","Instantly you notice,","Looking into the box you see that"}[random(5)];
last={" the cat is quite dead."," the cat is quite alive."," the cat is neither dead, nor alive, and really resents having been disturbed.  It was quite happy appreciating the simultaneous states of deadness and aliveness.", " there is no cat."}[random(4)];
player:tell(first,last);
.