[bin/crypt] taking, dropping, taking

masak · Jul 15, 2012 · e831985 · e831985
1 parent bfdb350
commit e831985
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/bin/crypt b/bin/crypt
@@ -763,6 +763,9 @@ class Adventure::Engine {
         when Adventure::PlayerTook {
             %!thing_rooms{.thing} = 'player inventory';
         }
+        when Adventure::PlayerDropped {
+            %!thing_rooms{.thing} = $!player_location;
+        }
     }
 }
 
@@ -1598,6 +1601,21 @@ multi MAIN('test') {
             };
     }
 
+    {
+        my $engine = Adventure::Engine.new();
+
+        $engine.place_thing('box', 'saloon');
+        $engine.make_thing_carryable('box');
+        $engine.place_player('saloon');
+        $engine.take('box');
+        $engine.drop('box');
+        is $engine.take('box'),
+            Adventure::PlayerTook.new(
+                :thing<box>,
+            ),
+            'taking a thing (+) take, drop, take';
+    }
+
     done;
 }