--- deliantra/server/ext/Jeweler.pm	2010/05/05 08:19:06	1.37
+++ deliantra/server/ext/Jeweler.pm	2018/11/18 15:19:48	1.39
@@ -172,7 +172,7 @@
       $found = 1;
       my $r = Jeweler::Object->new (object => $_);
       my $msg = $r->analyze ($sk, $pl, $input_level);
-      $pl->message ($r->to_string . ": " . $msg);
+      $pl->message ("There is a '" . $r->to_string . "' in the workbench. Your analysis: " . $msg);
       if ($pl->flag (cf::FLAG_WIZ)) {
          $r->wiz_analyze ($pl);
       }
@@ -232,7 +232,7 @@
       $ingred->remove ($ingr_grp, $srcarchname);
       for (1 .. $nrof) {
          $chdl->put (my $ob = cf::object::new $outarch);
-         $ob->set_animation (cf::rndm $ob->num_animations)
+         $ob->set_anim_frame (cf::rndm $ob->anim_frames)
             if ($ob->type == cf::RING);
          $ob->flag (cf::FLAG_IDENTIFIED, 1);
       }