COWbrowse

You are looking at a safe

A standard safe with key lock, combo lock and retina scan.

Created by Chaotic Bob, last updated 24 Dec 2006

Code

##open:
runsub isitme;
##isitme:
if $actor eq $target then whoisit else end;
##whoisit:
if $init_obj eq "Chaotic Bob" then continue else nocando;
##continue:
say 'msg',"[$actor] swings open and reveal four little books";
call "drop black book copy";
call "drop blue book copy";
call "drop orange book copy";
call "drop green book copy";
##nocando:
var $why to (INVALID RETINA, WRONG KEY, INCORRECT COMBINATION);
sat 'msg',"[$actor] beeps and a message says '$why'";