From e27bf43679a0b49a060ed8084f1f09722fdc08a3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 26 May 2014 10:33:04 -0400
Subject: no reason to split up kagatsuchi phases like this

---
 lib/Games/SMTNocturne/Demons.pm        | 5 +----
 lib/Games/SMTNocturne/Demons/Fusion.pm | 3 ++-
 2 files changed, 3 insertions(+), 5 deletions(-)

(limited to 'lib/Games')

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;
-- 
cgit v1.2.3