Changeset 315 for veekun/trunk/lib/Vee/Schema

Timestamp:

08/27/07 22:45:31 (3 years ago)

Author:

eevee

Message:

Nearly-finished item descriptions, cleanup, general rearrangement, etc. Also includes underground sprites and Fling effects. (#10)

Files:

• veekun/trunk/lib/Vee/Schema/Items.pm (modified) (2 diffs)

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

@@ -10 +10 @@
 __PACKAGE__->load_components("PK::Auto", "Core");
 __PACKAGE__->table("items");
-__PACKAGE__->add_columns(qw/ id game_id berry_id name cost col5 hp_plus_maybe col7 col8 fling_power natural_gift_power natural_gift_type col12 col13 col14 col15 col16 col17 col18 col19 col20 col21 col22 col23 effort_hp effort_at effort_de effort_sp effort_sa effort_sd hp_restored pp_restored happiness1 happiness2 happiness3 dpblurb /);
+__PACKAGE__->add_columns(qw/ id game_id berry_id name category cost col5 hp_plus_maybe fling_power fling_effect natural_gift_power natural_gift_type col12 col13 col14 col15 col16 col17 col18 col19 col20 col21 col22 col23 effort_hp effort_at effort_de effort_sp effort_sa effort_sd hp_restored pp_restored happiness1 happiness2 happiness3 is_underground dpblurb description /);
 __PACKAGE__->set_primary_key("id");
 __PACKAGE__->add_unique_constraint(["id"], undef);
@@ -27 +27 @@
 }
 
+sub sprite_name {
+    my ($self) = @_;
+
+    my $name = lc $self->name;
+    # TMs!
+
+    $name =~ tr/ /-/;
+    $name =~ tr/-a-z0-9//cd;
+
+    return $name;
+}
+
+sub fling_description {
+    my ($self) = @_;
+
+    return 'n/a' if not $self->fling_power;
+
+    my $desc = 'Inflicts regular damage with ' . $self->fling_power . ' power.';
+    $desc .= '  ' . $self->fling_effect
+        if $self->fling_effect;
+
+    return $desc;
+}
+
 1;