From 02a97d08160e36153f05dc89dd76010a2155db1a Mon Sep 17 00:00:00 2001 From: lemming552 Date: Wed, 9 May 2012 14:40:50 -0600 Subject: [PATCH] Sql added to modify existing SRCS. --- lib/Lacuna/Role/Ship/Send/Range.pm | 4 ++-- var/upgrades/3.0851.sql | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) create mode 100644 var/upgrades/3.0851.sql diff --git a/lib/Lacuna/Role/Ship/Send/Range.pm b/lib/Lacuna/Role/Ship/Send/Range.pm index 12c0d228..bf0dc132 100644 --- a/lib/Lacuna/Role/Ship/Send/Range.pm +++ b/lib/Lacuna/Role/Ship/Send/Range.pm @@ -6,10 +6,10 @@ use Moose::Role; after can_send_to_target => sub { my ($self, $target) = @_; - my $distance = $self->body->calculate_distance_to_target($target); + my $distance = int($self->body->calculate_distance_to_target($target) +0.5); my $range = int($self->speed/100+0.5); if ($distance > $range) { - confess [1009, 'You only have a range of '.$range.' with this ship.']; + confess [1009, 'You only have a range of '.$range.' with this ship. This body is '.$distance.' away.']; } }; diff --git a/var/upgrades/3.0851.sql b/var/upgrades/3.0851.sql new file mode 100644 index 00000000..ea768fdf --- /dev/null +++ b/var/upgrades/3.0851.sql @@ -0,0 +1,2 @@ + +update ships set speed = 700 where type = 'short_range_colony_ship'; -- 2.51.2