| … | |
… | |
| 59 | rec_inv_by_slaying ($pl, $cfg->{key_string}, sub { |
59 | rec_inv_by_slaying ($pl, $cfg->{key_string}, sub { |
| 60 | my ($ob) = @_; |
60 | my ($ob) = @_; |
| 61 | $match = $ob; |
61 | $match = $ob; |
| 62 | }); |
62 | }); |
| 63 | if ($match) { |
63 | if ($match) { |
| 64 | $match->decrease_ob_nr ($cfg->{decrease_by_cnt}) if $cfg->{decrease_by_cnt}; |
64 | $match->decrease ($cfg->{decrease_by_cnt}) if $cfg->{decrease_by_cnt}; |
| 65 | $pl->message ($cfg->{message_on_match}, cf::NDI_UNIQUE) if defined $cfg->{message_on_match}; |
65 | $pl->message ($cfg->{message_on_match}, cf::NDI_UNIQUE) if defined $cfg->{message_on_match}; |
| 66 | } else { |
66 | } else { |
| 67 | $pl->message ($cfg->{message_on_nomatch}, cf::NDI_RED | cf::NDI_UNIQUE) if defined $cfg->{message_on_nomatch}; |
67 | $pl->message ($cfg->{message_on_nomatch}, cf::NDI_RED | cf::NDI_UNIQUE) if defined $cfg->{message_on_nomatch}; |
| 68 | cf::override; |
68 | cf::override; |
| 69 | } |
69 | } |
