--- deliantra/maps/perl/jeweler.ext 2006/09/14 18:14:57 1.11 +++ deliantra/maps/perl/jeweler.ext 2006/10/05 19:10:42 1.12 @@ -44,19 +44,16 @@ my @ring = $ingred->get_ring; my @rings = map { Jeweler::Object->new (object => $_) } @ring; - if (@rings < 2) { - $pl->message ("You slap yourself, you forgot to put at least 2 jeweles in!"); - return; - } + @rings >= 2 + or return $pl->reply (undef, "You slap yourself, you forgot to put at least 2 jewels in!"); my $ring = shift @rings; $ring->improve_by_ring (@rings); if ($do_analyze) { - $pl->message ("You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl)); - if ($pl->flag (cf::FLAG_WIZ)) { - $ring->wiz_analyze ($pl); - } + $pl->reply (undef, "You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl)); + $ring->wiz_analyze ($pl) + if $pl->flag (cf::FLAG_WIZ); return; }