Changeset 432 for veekun/trunk/lib/Vee

Timestamp:

05/23/08 02:41:12 (22 months ago)

Author:

eevee

Message:

Changed breeding chain calculator to interpret its Pokemon input as a target rather than.. whatever it was before. (#309)
Also added some more detail on reading the results.

Location:

veekun/trunk/lib/Vee

Files:

• Controller/Dex/Utils.pm (modified) (3 diffs)
• Schema/EvoChains.pm (modified) (1 diff)

veekun/trunk/lib/Vee/Controller/Dex/Utils.pm

@@ -270 +270 @@
     }
 
-    if ($pokemon->breeding_code == 255) {
-        $s->{error_msg} = $pokemon->name . ' cannot breed.';
+    my $basic_form = $pokemon->evo_chain->basic_form;
+    my @egg_forms  = $pokemon->evo_chain->egg_forms;
+
+    warn join "\n", map { $_->name } @egg_forms;
+    # N.B.: this assumes (correctly, as of DP) that every gendered Pokemon in
+    # a given chain has the same breeding code.
+    my $breedable_form = $pokemon->evo_chain->pokemon({
+        'breeds.breed' => { '!=' => 15 },
+    }, {
+        join           => 'breeds',
+    })->first;
+    if (not $breedable_form) {
+        $s->{error_msg} = 'Nothing in the ' . $basic_form->name
+                        . ' family can breed.';
         return;
     }
 
     my @unlearnable_moves;
-    for my $move (@moves) {
-        my $method = $pokemon->move_method_string($move, $version);
-        if (not $method) {
-            push @unlearnable_moves, $move;
-        }
+    MOVE: for my $move (@moves) {
+        for my $egg (@egg_forms) {
+            next MOVE if $egg->move_method_string($move, $version);
+        }
+
+        push @unlearnable_moves, $move;
     }
     if (@unlearnable_moves) {
@@ -287 +300 @@
             $move_names[-1] = 'or ' . $move_names[-1];
         }
-        $s->{error_msg} = $pokemon->name . " cannot inherit "
-                        . join(', ', @move_names) . '.';
+        $s->{error_msg} = 'No egg in the ' . $basic_form->name . ' family can'
+                        . ' inherit ' . join(', ', @move_names) . '.';
         return;
     }
@@ -329 +342 @@
     # tree iteratively from there
     my %egg_groups_tree = (
-        groups   => [ $pokemon->breeding_groups ],
-        pokemon  => [ $pokemon ],
+        groups   => [ $breedable_form->breeding_groups ],
+        pokemon  => [ @egg_forms ],
         children => [],
     );

veekun/trunk/lib/Vee/Schema/EvoChains.pm

@@ -23 +23 @@
 __PACKAGE__->has_many(pokemon => 'Vee::Schema::Pokemon', 'evo_chain_id');
 
+=head2 baby_form
+
+Returns the baby Pokemon in this chain, if any.
+
+=cut
+
+sub baby_form {
+    my ($self) = @_;
+
+    return $self->pokemon( \ 'FIND_IN_SET(flags, "baby")' )->single;
+}
+
+=head2 basic_form
+
+Returns the basic form of this Pokemon.
+
+=cut
+
+sub basic_form {
+    my ($self) = @_;
+
+    return $self->pokemon(
+        \ 'NOT FIND_IN_SET(flags, "baby")',
+    {
+        order_by => 'id ASC',
+    })->first;
+}
+
+=head2 egg_forms
+
+Returns any Pokemon that can result from a breeding in this chain.
+
+=cut
+
+sub egg_forms {
+    my ($self) = @_;
+    my @ret;
+
+    my $baby_form  = $self->baby_form;
+    if ($baby_form) {
+        push @ret, $baby_form;
+    }
+
+    my $basic_form = $self->basic_form;
+    if (not $baby_form
+        or $self->baby_item)  # e.g. Munchlax with incense
+    {
+        push @ret, $basic_form;
+    }
+
+    return @ret;
+}
+
 =head1 SEE ALSO