Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179package Lacuna::DB::Result::Map;
use Moose;use utf8;no warnings qw(uninitialized);extends 'Lacuna::DB::Result';use Lacuna::Util;
__PACKAGE__->table('noexist_map');__PACKAGE__->add_columns( name => { data_type => 'varchar', size => 30, is_nullable => 0 }, x => { data_type => 'int', size => 11, default_value => 0 }, y => { data_type => 'int', size => 11, default_value => 0 }, zone => { data_type => 'varchar', size => 16, is_nullable => 0 },);
sub sqlt_deploy_hook { my ($self, $sqlt_table) = @_; $sqlt_table->add_index(name => 'idx_x_y', fields => ['x','y']); $sqlt_table->add_index(name => 'idx_zone', fields => ['zone']); $sqlt_table->add_index(name => 'idx_name', fields => ['name']);}
sub calculate_distance_to_target { my ($self, $target) = @_; return sqrt(abs($self->x - $target->x)**2 + abs($self->y - $target->y)**2) * 100;}
use constant zone_size => 250;
sub adjacent_zones { my ($self) = @_; my ($x,$y) = $self->parse_zone_into_zone_coords; my $map_size = Lacuna->config->get('map_size'); my $bottom_max = $self->determine_zone_coord_from_xy_coord( $map_size->{y}[0] ); my $top_max = $self->determine_zone_coord_from_xy_coord( $map_size->{y}[1] ); my $left_max = $self->determine_zone_coord_from_xy_coord( $map_size->{x}[0] ); my $right_max = $self->determine_zone_coord_from_xy_coord( $map_size->{x}[1] ); my @zones; if ( $x < $right_max ) { push @zones, $self->format_zone_coords_into_zone($x + 1, $y); } if ( $x > $left_max ) { push @zones, $self->format_zone_coords_into_zone($x - 1, $y); } if ( $y < $top_max ) { push @zones, $self->format_zone_coords_into_zone($x, $y + 1); } if ( $y > $bottom_max ) { push @zones, $self->format_zone_coords_into_zone($x, $y - 1); } if ( $x > $left_max && $y > $bottom_max ) { push @zones, $self->format_zone_coords_into_zone($x - 1, $y - 1); } if ( $x < $right_max && $y < $top_max ) { push @zones, $self->format_zone_coords_into_zone($x + 1, $y + 1); } if ( $x > $left_max && $y < $top_max ) { push @zones, $self->format_zone_coords_into_zone($x - 1, $y + 1); } if ( $x < $right_max && $y > $bottom_max ) { push @zones, $self->format_zone_coords_into_zone($x + 1, $y - 1); } return @zones;}
sub parse_zone_into_zone_coords { my ($self) = @_; return split('\|', $self->zone);}
sub format_zone_coords_into_zone { my ($self, $x, $y) = @_; return join '|', $x, $y;}
sub set_zone_from_xy { my ($self) = @_; $self->zone($self->format_zone_from_xy); return $self;}
sub format_zone_from_xy { my ($self) = @_; return $self->format_zone_coords_into_zone( $self->determine_zone_coord_from_xy_coord($self->x), $self->determine_zone_coord_from_xy_coord($self->y), );}
sub determine_zone_coord_from_xy_coord { my ($self, $coord) = @_; return int($coord / zone_size);}
sub in_neutral_area { my ($self) = shift;
my $na_param = Lacuna->config->get('neutral_area'); if ($na_param) { return 0 unless $na_param->{active}; my $zone = $self->zone; my $x = $self->x; my $y = $self->y; if ($na_param->{zone} and $na_param->{coord}) {# Needs to be in both to qualify as in my $in_zone = 0; for my $z_test (@{$na_param->{zone_list}}) { $in_zone = 1 if ($zone eq $z_test); } return 0 unless $in_zone; if ($x >= $na_param->{x}[0] and $x <= $na_param->{x}[1] and $y >= $na_param->{y}[0] and $y <= $na_param->{y}[1]) { return 1; } } elsif ($na_param->{zone}) { for my $z_test (@{$na_param->{zone_list}}) { return 1 if ($zone eq $z_test); } } elsif ($na_param->{coord}) { if ($x >= $na_param->{x}[0] and $x <= $na_param->{x}[1] and $y >= $na_param->{y}[0] and $y <= $na_param->{y}[1]) { return 1; } } } return 0;}
sub in_starter_zone { my ($self) = shift;
my $sz_param = Lacuna->config->get('starter_zone'); if ($sz_param) { return 0 unless $sz_param->{active}; my $zone = $self->zone; my $x = $self->x; my $y = $self->y; if ($sz_param->{zone} and $sz_param->{coord}) {# Needs to be in both to qualify as in my $in_zone = 0; for my $z_test (@{$sz_param->{zone_list}}) { $in_zone = 1 if ($zone eq $z_test); } return 0 unless $in_zone; if ($x >= $sz_param->{x}[0] and $x <= $sz_param->{x}[1] and $y >= $sz_param->{y}[0] and $y <= $sz_param->{y}[1]) { return 1; } } elsif ($sz_param->{zone}) { for my $z_test (@{$sz_param->{zone_list}}) { return 1 if ($zone eq $z_test); } } elsif ($sz_param->{coord}) { if ($x >= $sz_param->{x}[0] and $x <= $sz_param->{x}[1] and $y >= $sz_param->{y}[0] and $y <= $sz_param->{y}[1]) { return 1; } } } return 0;}
no Moose;__PACKAGE__->meta->make_immutable(inline_constructor => 0);