… | |
… | |
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; |