… | |
… | |
719 | if (defined $costs) { |
719 | if (defined $costs) { |
720 | my $desc = ""; |
720 | my $desc = ""; |
721 | my $lvl = $self->power_to_level (\$desc); |
721 | my $lvl = $self->power_to_level (\$desc); |
722 | my $scosts = $self->calc_value_from_cost ($costs); |
722 | my $scosts = $self->calc_value_from_cost ($costs); |
723 | |
723 | |
724 | $pl->message ("costs: " . (join (', ', map { "$_: " . sprintf "%.2f", $costs->{$_} } keys %$costs)) . " (".($scosts / 5000)." royalties)"); |
724 | $pl->message ("costs: " |
|
|
725 | . (join ', ', map { "$_: " . sprintf "%.2f", $costs->{$_} } keys %$costs) |
|
|
726 | . " (" |
|
|
727 | . ($scosts / "royalty"->cf::arch::find->value) |
|
|
728 | . " royalties)"); |
725 | $pl->message ("level: " . $desc); |
729 | $pl->message ("level: $desc"); |
726 | } else { |
730 | } else { |
727 | $pl->message ("level: impossible to make, due to impossible resistancy configuration"); |
731 | $pl->message ("level: impossible to make, due to impossible resistancy configuration"); |
728 | } |
732 | } |
729 | } |
733 | } |
730 | |
734 | |