implement element fusion

2 files changed, 23 insertions, 4 deletions

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__