diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-05-26 10:33:04 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-05-26 10:33:04 -0400 |
commit | e27bf43679a0b49a060ed8084f1f09722fdc08a3 (patch) | |
tree | db22c342f3731f791506fe53b1f0b87e28d2d502 | |
parent | 97b7df9631adf914eaf11212768a1ce32cb12b16 (diff) | |
download | games-smtnocturne-demons-e27bf43679a0b49a060ed8084f1f09722fdc08a3.tar.gz games-smtnocturne-demons-e27bf43679a0b49a060ed8084f1f09722fdc08a3.zip |
no reason to split up kagatsuchi phases like this
-rw-r--r-- | lib/Games/SMTNocturne/Demons.pm | 5 | ||||
-rw-r--r-- | lib/Games/SMTNocturne/Demons/Fusion.pm | 3 |
2 files changed, 3 insertions, 5 deletions
diff --git a/lib/Games/SMTNocturne/Demons.pm b/lib/Games/SMTNocturne/Demons.pm index b09672b..30909ee 100644 --- a/lib/Games/SMTNocturne/Demons.pm +++ b/lib/Games/SMTNocturne/Demons.pm @@ -175,10 +175,7 @@ sub fusions_for { } if ($special->{kagatsuchi}) { - @special_fusions = map { - my $phase = $_; - map { [ @$_, $phase ] } @special_fusions - } @{ $special->{kagatsuchi} }; + push @$_, $special->{kagatsuchi} for @special_fusions; } } diff --git a/lib/Games/SMTNocturne/Demons/Fusion.pm b/lib/Games/SMTNocturne/Demons/Fusion.pm index 77a50bf..fc84594 100644 --- a/lib/Games/SMTNocturne/Demons/Fusion.pm +++ b/lib/Games/SMTNocturne/Demons/Fusion.pm @@ -68,7 +68,8 @@ sub to_string { if $self->sacrifice; $str .= " while sacrificing a deathstone" if $self->deathstone; - $str .= " when Kagutsuchi is at phase " . $self->kagatsuchi . "/8" + $str .= " when Kagutsuchi is at phase " + . join(", ", map { "$_/8" } @{ $self->kagatsuchi }) if defined $self->kagatsuchi; return $str; |