--- deliantra/server/ext/ipo.ext	2007/09/19 21:56:30	1.9
+++ deliantra/server/ext/ipo.ext	2007/09/30 16:24:29	1.11
@@ -70,7 +70,7 @@
    my ($name, $map, $x, $y, $cb, @a) = @_;
    my $o = cf::object::new $name;
    my $r = $cb->($o, @a);
-   $map->insert_object ($o, $x, $y);
+   $map->insert ($o, $x, $y);
    $r
 }
 
@@ -194,6 +194,7 @@
             $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later.");
             return 1;
          }
+         $storage->load;
 
          my $plname = $who->name;
          my $cnt;
@@ -225,12 +226,14 @@
             $who->reply ($npc, "Sorry, our package delivery service is currently in strike. Please come back later.");
             return 1;
          }
+         $storage->load;
 
          my $cnt;
          for ($who->inv) {
             if ($_->name () =~ /^(bag|package|carton) T: \Q$arguments\E F: (\S+)$/) {
                $_->name ("$1 F: $2 T: $arguments");
-               $_->teleport ($storage, 2, 2);
+               $storage->insert ($_, 2, 2);
+               $who->esrv_del_item ($_->count);
                $cnt++;
             }
          }