diff --git a/lib/Lacuna/DB/Result/Building/Permanent/Crater.pm b/lib/Lacuna/DB/Result/Building/Permanent/Crater.pm index b8586741..01aca493 100644 --- a/lib/Lacuna/DB/Result/Building/Permanent/Crater.pm +++ b/lib/Lacuna/DB/Result/Building/Permanent/Crater.pm @@ -19,7 +19,14 @@ sub can_upgrade { confess [1013, "You can't upgrade a crater. It forms naturally."]; } -use constant image => 'crater'; + +sub image { + my ($self) = @_; + if (ref $self eq 'Lacuna::DB::Result::Building::Permanent::Crater' && $self->body->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) { + return 'dent'; + } + return 'crater'; +} sub image_level { my ($self) = @_; @@ -28,8 +35,17 @@ sub image_level { sub name { my ($self) = @_; - if (ref $self eq 'Lacuna::DB::Result::Building::Permanent::Crater' && $self->is_working) { - return 'Smoldering Crater'; + if (ref $self eq 'Lacuna::DB::Result::Building::Permanent::Crater') { + my $is_station = $self->body->isa('Lacuna::DB::Result::Map::Body::Planet::Station'); + if ($self->is_working) { + if ($is_station) { + return 'Smoldering Dent'; + } + return 'Smoldering Crater'; + } + elsif ($is_station) { + return 'Dent'; + } } return 'Crater'; } diff --git a/var/www/public/changes.txt b/var/www/public/changes.txt index 72ab377b..d00f8088 100644 --- a/var/www/public/changes.txt +++ b/var/www/public/changes.txt @@ -1,4 +1,6 @@ 3.0201 + - Add: Changed crater to dent when on space station. + - Fix: API problems with new parliament methods. 3.0200 - Add: Added Amalgus Meadow and Denton Brambles glyph buildings.