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

masak · Jul 6, 2012 · e478ae2 · e478ae2
1 parent 262cd87
commit e478ae2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/bin/crypt b/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, '.' }
                 }