Permalink
Browse files

[bin/crypt] add reveal message

  • Loading branch information...
1 parent 37e0d35 commit afd7967d5792f7fae0e3705594bf4198e98ea525 @masak committed Jul 17, 2012
Showing with 4 additions and 0 deletions.
  1. +4 −0 bin/crypt
View
4 bin/crypt
@@ -962,6 +962,10 @@ multi MAIN() {
}
}
when Adventure::PlayerExamined { say %descriptions{.thing} }
+ when Adventure::ContentsRevealed {
+ my $contents = join " and ", map { "a $_" }, .contents;
+ say "Opening the {.container} reveals $contents.";
+ }
}
CATCH {
when X::Adventure { say .message, '.' }

0 comments on commit afd7967

Please sign in to comment.