From c3620dea795b1f2f774949ceb582d09bfeef1f84 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 6 Oct 2009 00:31:25 -0500
Subject: add element fusion rules

---
 lib/Games/SMTNocturne/Fusion/Demon.pm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'lib/Games/SMTNocturne/Fusion/Demon.pm')

diff --git a/lib/Games/SMTNocturne/Fusion/Demon.pm b/lib/Games/SMTNocturne/Fusion/Demon.pm
index bc386d1..23df00c 100644
--- a/lib/Games/SMTNocturne/Fusion/Demon.pm
+++ b/lib/Games/SMTNocturne/Fusion/Demon.pm
@@ -99,6 +99,24 @@ sub lookup {
     return wantarray ? @possible : (@possible == 1 ? $possible[0] : undef);
 }
 
+sub level_up {
+    my $self = shift;
+    my @possible = $self->lookup(
+        type  => $self->type,
+        level => sub { $_ > $self->level },
+    );
+    return $possible[0];
+}
+
+sub level_down {
+    my $self = shift;
+    my @possible = $self->lookup(
+        type  => $self->type,
+        level => sub { $_ < $self->level },
+    );
+    return $possible[$#possible];
+}
+
 __PACKAGE__->meta->make_immutable;
 
 1;
-- 
cgit v1.2.3-54-g00ecf