Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[bin/crypt] rooms are announced as we enter them

  • Loading branch information...
commit e478ae2393329b113606eea037562ddce66e15fd 1 parent 262cd87
@masak authored
Showing with 6 additions and 0 deletions.
  1. +6 −0 bin/crypt
View
6 bin/crypt
@@ -401,6 +401,9 @@ multi MAIN() {
}
my %commands = map { $^m.name => params($m) }, $game.^methods;
+ say "Clearing";
+ say "";
+
loop {
my $command = prompt('> ');
given $command {
@@ -428,6 +431,9 @@ multi MAIN() {
say "The arguments are {map { "<$_>" }, @req_args}.";
}
my @events = $game."$verb"(|@args);
+ for @events {
+ when Adventure::PlayerWalked { say ucfirst .to }
+ }
CATCH {
when X::Adventure { say .message, '.' }
}
Please sign in to comment.
Something went wrong with that request. Please try again.