Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

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

  • Loading branch information...
commit e478ae2393329b113606eea037562ddce66e15fd 1 parent 262cd87
Carl Mäsak authored July 06, 2012

Showing 1 changed file with 6 additions and 0 deletions. Show diff stats Hide diff stats

  1. 6  bin/crypt
6  bin/crypt
@@ -401,6 +401,9 @@ multi MAIN() {
401 401
     }
402 402
     my %commands = map { $^m.name => params($m) }, $game.^methods;
403 403
 
  404
+    say "Clearing";
  405
+    say "";
  406
+
404 407
     loop {
405 408
         my $command = prompt('> ');
406 409
         given $command {
@@ -428,6 +431,9 @@ multi MAIN() {
428 431
                     say "The arguments are {map { "<$_>" }, @req_args}.";
429 432
                 }
430 433
                 my @events = $game."$verb"(|@args);
  434
+                for @events {
  435
+                    when Adventure::PlayerWalked { say ucfirst .to }
  436
+                }
431 437
                 CATCH {
432 438
                     when X::Adventure { say .message, '.' }
433 439
                 }

0 notes on commit e478ae2

Please sign in to comment.
Something went wrong with that request. Please try again.