summaryrefslogtreecommitdiffstats
path: root/lib/Games/SMTNocturne/Demons/Demon.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Games/SMTNocturne/Demons/Demon.pm')
-rw-r--r--lib/Games/SMTNocturne/Demons/Demon.pm15
1 files changed, 11 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 {