| … | |
… | |
| 675 | my ($self, $thing) = @_; |
675 | my ($self, $thing) = @_; |
| 676 | |
676 | |
| 677 | my $obj = {}; |
677 | my $obj = {}; |
| 678 | |
678 | |
| 679 | for (@Jeweler::RESISTS) { |
679 | for (@Jeweler::RESISTS) { |
| 680 | $obj->{resist}->{$_} = $thing->resistance ($_); |
680 | $obj->{resist}->{$_} = $thing->resist ($_); |
| 681 | } |
681 | } |
| 682 | |
682 | |
| 683 | my $stats = $thing->stats; |
683 | my $stats = $thing->stats; |
| 684 | |
684 | |
| 685 | for (qw/Str Dex Con Wis Cha Int Pow/) { |
685 | for (qw/Str Dex Con Wis Cha Int Pow/) { |
| … | |
… | |
| 720 | |
720 | |
| 721 | $stats->$_ ($self->{hash}{stat}{lc $_}) |
721 | $stats->$_ ($self->{hash}{stat}{lc $_}) |
| 722 | for qw/Str Dex Con Wis Cha Int Pow/; |
722 | for qw/Str Dex Con Wis Cha Int Pow/; |
| 723 | |
723 | |
| 724 | for (@Jeweler::RESISTS) { |
724 | for (@Jeweler::RESISTS) { |
| 725 | $obj->resistance ($_, $self->{hash}->{resist}->{$_}); |
725 | $obj->resist ($_, $self->{hash}->{resist}->{$_}); |
| 726 | } |
726 | } |
| 727 | |
727 | |
| 728 | $obj->flag (cf::FLAG_IDENTIFIED, 1); |
728 | $obj->flag (cf::FLAG_IDENTIFIED, 1); |
| 729 | |
729 | |
| 730 | return $obj; |
730 | return $obj; |
