| … | |
… | |
| 112 | my $make_info = sprintf |
112 | my $make_info = sprintf |
| 113 | "JEWELER AUDIT: '%s' made '%s' (%s) (sk lvl %d, ring lvl %d, got %d exp): %s", |
113 | "JEWELER AUDIT: '%s' made '%s' (%s) (sk lvl %d, ring lvl %d, got %d exp): %s", |
| 114 | $pl->name, $ring->to_string, $ring_ob->uuid, $sklvl, |
114 | $pl->name, $ring->to_string, $ring_ob->uuid, $sklvl, |
| 115 | $ring->power_to_level, $exp, $make_status; |
115 | $ring->power_to_level, $exp, $make_status; |
| 116 | |
116 | |
|
|
117 | cf::debug "$make_info\n" |
| 117 | warn "$make_info\n" if $make_status eq 'succeeded'; |
118 | if $make_status eq 'succeeded'; |
| 118 | } |
119 | } |
| 119 | |
120 | |
| 120 | $chdl->put ($ring_ob); |
121 | $chdl->put ($ring_ob); |
| 121 | } |
122 | } |
| 122 | |
123 | |
| … | |
… | |
| 128 | return |
129 | return |
| 129 | } elsif ($@ =~ /unidentified/) { |
130 | } elsif ($@ =~ /unidentified/) { |
| 130 | $pl->message ("There are unidentified items in the workbench, identify them before you do anything."). |
131 | $pl->message ("There are unidentified items in the workbench, identify them before you do anything."). |
| 131 | return |
132 | return |
| 132 | } elsif ($@) { |
133 | } elsif ($@) { |
| 133 | warn "error in jeweler ingredient extraction: $@"; |
134 | cf::error "error in jeweler ingredient extraction: $@"; |
| 134 | return; |
135 | return; |
| 135 | } |
136 | } |
| 136 | $ingred; |
137 | $ingred; |
| 137 | } |
138 | } |
| 138 | |
139 | |
| … | |
… | |
| 269 | } else { |
270 | } else { |
| 270 | $pl->message ("You've got no idea what you are planning to do!"); |
271 | $pl->message ("You've got no idea what you are planning to do!"); |
| 271 | } |
272 | } |
| 272 | } |
273 | } |
| 273 | }; |
274 | }; |
| 274 | $@ and warn "ERROR: $@\n"; |
275 | $@ and cf::error "$@\n"; |
| 275 | } |
276 | } |
| 276 | ); |
277 | ); |
| 277 | |
278 | |
| 278 | Jeweler::load_config; |
279 | Jeweler::load_config; |
| 279 | |
280 | |
