| … | |
… | |
| 42 | |
42 | |
| 43 | my $ingred = $chdl->extract_jeweler_ingredients; |
43 | my $ingred = $chdl->extract_jeweler_ingredients; |
| 44 | my @ring = $ingred->get_ring; |
44 | my @ring = $ingred->get_ring; |
| 45 | my @rings = map { Jeweler::Object->new (object => $_) } @ring; |
45 | my @rings = map { Jeweler::Object->new (object => $_) } @ring; |
| 46 | |
46 | |
| 47 | if (@rings < 2) { |
47 | @rings >= 2 |
| 48 | $pl->message ("You slap yourself, you forgot to put at least 2 jeweles in!"); |
48 | or return $pl->reply (undef, "You slap yourself, you forgot to put at least 2 jewels in!"); |
| 49 | return; |
|
|
| 50 | } |
|
|
| 51 | |
49 | |
| 52 | my $ring = shift @rings; |
50 | my $ring = shift @rings; |
| 53 | $ring->improve_by_ring (@rings); |
51 | $ring->improve_by_ring (@rings); |
| 54 | |
52 | |
| 55 | if ($do_analyze) { |
53 | if ($do_analyze) { |
| 56 | $pl->message ("You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl)); |
54 | $pl->reply (undef, "You want to make a " . $ring->to_string . ": " . $ring->analyze ($sk, $pl)); |
| 57 | if ($pl->flag (cf::FLAG_WIZ)) { |
|
|
| 58 | $ring->wiz_analyze ($pl); |
55 | $ring->wiz_analyze ($pl) |
| 59 | } |
56 | if $pl->flag (cf::FLAG_WIZ); |
| 60 | return; |
57 | return; |
| 61 | } |
58 | } |
| 62 | |
59 | |
| 63 | make_ring ($chdl, $ingred, $ring, $sk, $pl); |
60 | make_ring ($chdl, $ingred, $ring, $sk, $pl); |
| 64 | } |
61 | } |
