| 1 | #! perl |
1 | #! perl |
| 2 | #CONVERSION: NONE |
2 | |
| 3 | use Data::Dumper; |
3 | use Data::Dumper; |
| 4 | use Jeweler; |
4 | use Jeweler; |
| 5 | use List::Util qw/max min sum/; |
5 | use List::Util qw/max min sum/; |
| 6 | use strict; |
6 | use strict; |
| 7 | |
7 | |
| … | |
… | |
| 88 | |
88 | |
| 89 | cf::attach_to_type cf::SKILL, cf::SK_JEWELER, |
89 | cf::attach_to_type cf::SKILL, cf::SK_JEWELER, |
| 90 | on_use_skill => sub { |
90 | on_use_skill => sub { |
| 91 | my ($sk, $ob, $part, $dir, $msg) = @_; |
91 | my ($sk, $ob, $part, $dir, $msg) = @_; |
| 92 | my $pl = $ob; |
92 | my $pl = $ob; |
| 93 | warn ($pl->name . " uses jeweler skill [$msg]!\n"); |
|
|
| 94 | |
93 | |
| 95 | my $skobj = $sk; |
94 | my $skobj = $sk; |
| 96 | |
95 | |
| 97 | my $chdl = new Jeweler::CauldronHandler; |
96 | my $chdl = new Jeweler::CauldronHandler; |
| 98 | |
97 | |
