Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

[bin/crypt] tells you when you've won

  • Loading branch information...
commit ed7110e4517169d40acd99933f78e9c6ae4871da 1 parent baa9803
Carl Mäsak authored July 02, 2012

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

  1. 4  bin/crypt
4  bin/crypt
@@ -330,6 +330,10 @@ multi MAIN('hanoi') {
330 330
                 my @events = $game."$verb"(|@args);
331 331
                 push @all_events, @events;
332 332
                 print_board();
  333
+                for @events {
  334
+                    when Hanoi::AchievementUnlocked { say "Achievement unlocked!" }
  335
+                    when Hanoi::AchievementLocked { say "Achievement locked!" }
  336
+                }
333 337
                 CATCH {
334 338
                     when X::Hanoi { say .message }
335 339
                 }

0 notes on commit ed7110e

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