Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[bin/crypt] abbreviated directions

  • Loading branch information...
commit 8325b8e6b8fddeff21b0d8059c13d81e30b9490c 1 parent dc32819
@masak authored
Showing with 18 additions and 0 deletions.
  1. +18 −0 bin/crypt
View
18 bin/crypt
@@ -1374,6 +1374,19 @@ multi MAIN() {
up down in out
>;
+ my %abbr_directions = <
+ n north
+ s south
+ e east
+ w west
+ ne northeast
+ nw northwest
+ se southeast
+ sw southwest
+ u up
+ d down
+ >;
+
given 'clearing' {
say .ucfirst;
say "";
@@ -1448,6 +1461,11 @@ open bag | close bag";
}
}
+ when /^ [''|go \h+|walk \h+] (\w+) <?{ %abbr_directions{$0} }> $/ {
+ $command = "walk %abbr_directions{$0}";
+ proceed;
+ }
+
when any @possible_directions {
$command = "walk $command";
proceed;
Please sign in to comment.
Something went wrong with that request. Please try again.