From c666bfc50a1acc44ba9dbd206665ec95c1aea9f3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 25 May 2014 11:47:11 -0400
Subject: implement fusing elements for mitama

---
 lib/Games/SMTNocturne/Demons/FusionChart.pm | 30 +++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'lib/Games/SMTNocturne/Demons')

diff --git a/lib/Games/SMTNocturne/Demons/FusionChart.pm b/lib/Games/SMTNocturne/Demons/FusionChart.pm
index 294092d..e73bb9b 100644
--- a/lib/Games/SMTNocturne/Demons/FusionChart.pm
+++ b/lib/Games/SMTNocturne/Demons/FusionChart.pm
@@ -43,6 +43,36 @@ sub element_fusion {
     return $TYPES{$type}{element_fusions}{$element};
 }
 
+sub fuse_mitama {
+    my ($element1, $element2) = @_;
+
+    # XXX move this into actual data somewhere
+    my %mitama_fusions = (
+        Erthys => {
+            Aeros => 'Nigi Mitama',
+            Aquans => 'Ara Mitama',
+            Flaemis => 'Kusi Mitama',
+        },
+        Aeros => {
+            Erthys => 'Nigi Mitama',
+            Aquans => 'Kusi Mitama',
+            Flaemis => 'Ara Mitama',
+        },
+        Aquans => {
+            Erthys => 'Ara Mitama',
+            Aeros => 'Kusi Mitama',
+            Flaemis => 'Saki Mitama',
+        },
+        Flaemis => {
+            Erthys => 'Kusi Mitama',
+            Aeros => 'Ara Mitama',
+            Aquans => 'Saki Mitama',
+        },
+    );
+
+    return $mitama_fusions{$element1}{$element2};
+}
+
 1;
 
 __DATA__
-- 
cgit v1.2.3-54-g00ecf