--- deliantra/server/ext/jeweler.ext	2007/10/17 19:18:40	1.14
+++ deliantra/server/ext/jeweler.ext	2009/08/17 08:50:54	1.17
@@ -1,9 +1,9 @@
 #! perl
 
-use Data::Dumper;
+use strict;
+
 use Jeweler;
 use List::Util qw/max min sum/;
-use strict;
 
 sub ingred_alias {
    my ($ing) = @_;
@@ -50,7 +50,7 @@
    my @rings = map { Jeweler::Object->new (object => $_) } @ring;
 
    @rings >= 2
-      or return $pl->reply (undef, "You slap yourself, you forgot to put at least 2 jewels in!");
+      or return $pl->message ("You slap yourself, you forgot to put at least 2 jewels in!");
 
    my $input_level = 0;
    my $value;
@@ -63,7 +63,7 @@
    $ring->improve_by_ring (@rings);
 
    if ($do_analyze) {
-      $pl->reply (undef, "You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl, $input_level));
+      $pl->message ("You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl, $input_level));
       $ring->wiz_analyze ($pl)
          if $pl->flag (cf::FLAG_WIZ);
       return;
@@ -151,6 +151,7 @@
                      $cfg->{connection},
                      $cfg->{state}
                   );
+                  $obj->decrease (1);
                   cf::override;
                }
             }
@@ -271,5 +272,5 @@
    }
 );
 
-Jeweler::read_config "$DATADIR/jeweler.yaml";
+Jeweler::read_config "res/jeweler.yaml";