From e4c8dc1d21fa1229d015872f715bd5709707c2d4 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 6 Oct 2009 10:09:33 -0500 Subject: refactor a bunch of the level calculations --- lib/Games/SMTNocturne/Fusion/Chart.pm | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (limited to 'lib/Games/SMTNocturne/Fusion/Chart.pm') diff --git a/lib/Games/SMTNocturne/Fusion/Chart.pm b/lib/Games/SMTNocturne/Fusion/Chart.pm index 1570e97..c3e7c5c 100644 --- a/lib/Games/SMTNocturne/Fusion/Chart.pm +++ b/lib/Games/SMTNocturne/Fusion/Chart.pm @@ -49,16 +49,10 @@ my %element_fusions = ( multi method fuse (ClassName $self: SMTDemon $demon1 is coerce, SMTDemon $demon2 is coerce) { - my $type = $self->_type_chart->{$demon1->type}{$demon2->type}; - my $level = ($demon1->level + $demon2->level) / 2; - my @possible = Demon->lookup( - type => $type, - level => sub { $_ >= $level }, + return Demon->next_demon_above_level( + $self->_type_chart->{$demon1->type}{$demon2->type}, + ($demon1->level + $demon2->level) / 2, ); - return firstval { !$_->does('Games::SMTNocturne::Fusion::Role::Deathstone') - && !$_->does('Games::SMTNocturne::Fusion::Role::Evolve') - && !$_->does('Games::SMTNocturne::Fusion::Role::Special') } - @possible; } multi method fuse (ClassName $self: Element $demon1 is coerce, -- cgit v1.2.3-54-g00ecf