--- deliantra/server/ext/slag_ex.ext	2007/07/16 15:27:31	1.3
+++ deliantra/server/ext/slag_ex.ext	2007/07/17 06:55:52	1.4
@@ -5,7 +5,7 @@
 # be cleaned (all items in it will be removed)
 
 cf::object->attach (
-   type     => 5,  # POTION
+   type     => cf::POTION,
    subtype  => 11, # just a random number
    on_apply => sub {
       my ($self, $who) = @_;
@@ -15,16 +15,13 @@
             $who->map->at ($who->x, $who->y);
 
       if ($caul) {
-         for ($caul->inv) {
-            $_->remove;
-            $_->destroy (1);
-         }
+         $_->destroy (1) for @$caul;
          $self->handle_apply_yield;
          $self->decrease_ob_nr (1);
          $who->message ("You cleaned the " . $caul->name, cf::NDI_UNIQUE);
 
       } else {
-         $who->message ("Couldn't find cauldron to clean.", cf::NDI_UNIQUE);
+         $who->message ("Couldn't find cauldron to clean on the ground.", cf::NDI_UNIQUE);
       }
 
       cf::override 1;