[bin/crypt] player actually moves when walking

:)

bin/crypt

@@ -292,6 +292,9 @@ class Adventure::Engine {
             my $direction = .direction;
             %!exits{$room1}{$direction} = $room2;
         }
+        when Adventure::PlayerWalked {
+            $!player_location = .to;
+        }
     }
 }
 
@@ -570,6 +573,16 @@ multi MAIN('test') {
             };
     }
 
+    {
+        my $game = Crypt::Game.new();
+
+        $game.walk('east');
+        throws_exception
+            { $game.walk('east') },
+            X::Adventure::NoExitThere,
+            'the player actually moves to the next room';
+    }
+
     done;
 }