From 3915741eccf2c74b7be8043dce10b81161bf4854 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 25 May 2014 11:40:12 -0400
Subject: implement element fusion

---
 lib/Games/SMTNocturne/Demons/Demon.pm       | 15 +++++++++++----
 lib/Games/SMTNocturne/Demons/FusionChart.pm | 12 ++++++++++++
 2 files changed, 23 insertions(+), 4 deletions(-)

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

diff --git a/lib/Games/SMTNocturne/Demons/Demon.pm b/lib/Games/SMTNocturne/Demons/Demon.pm
index 104d141..03b8773 100644
--- a/lib/Games/SMTNocturne/Demons/Demon.pm
+++ b/lib/Games/SMTNocturne/Demons/Demon.pm
@@ -43,13 +43,20 @@ sub from_fusion_stats {
     my %bosses = map { $_ => 1 } @{ $options->{bosses} || [] };
     @possible = grep { !$_->boss || $bosses{$_->name} } @possible;
 
-    my $found;
-    for my $demon (@possible) {
-        $found = $demon;
+    my $found_idx;
+    for my $i (0..$#possible) {
+        $found_idx = $i;
+        my $demon = $possible[$i];
         last if $demon->level >= $options->{level};
     }
 
-    return $found;
+    if ($options->{offset}) {
+        $found_idx += $options->{offset} eq 'up' ? 1 : -1;
+        $found_idx = 0 if $found_idx < 0;
+        $found_idx = $#possible if $found_idx > $#possible;
+    }
+
+    return $possible[$found_idx];
 }
 
 sub from_type {
diff --git a/lib/Games/SMTNocturne/Demons/FusionChart.pm b/lib/Games/SMTNocturne/Demons/FusionChart.pm
index ec8c67f..294092d 100644
--- a/lib/Games/SMTNocturne/Demons/FusionChart.pm
+++ b/lib/Games/SMTNocturne/Demons/FusionChart.pm
@@ -31,6 +31,18 @@ sub unfuse {
     return @combinations;
 }
 
+sub fuse_element {
+    my ($type) = @_;
+
+    return $TYPES{$type}{self_fusion};
+}
+
+sub element_fusion {
+    my ($type, $element) = @_;
+
+    return $TYPES{$type}{element_fusions}{$element};
+}
+
 1;
 
 __DATA__
-- 
cgit v1.2.3-54-g00ecf