GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2024-12-22 18:52:40 +01:00
Code Issues Projects Releases Wiki Activity

Plugin/Battleship: improve ship placement

Browse Source 
Same-player ships will no longer be aligned end-to-end in the same orientation
to appear like one long ship.

There will no longer always be an even amount of horizontal and vertical ships
for each player.
This commit is contained in:
Pragmatic Software 2024-10-06 01:34:04 -07:00
parent a2b5162290
commit d29a60978e
No known key found for this signature in database
GPG Key ID: CC916B6E3C84ECCE
2 changed files with 36 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lib/PBot/Plugin/Battleship.pm
View File

@ -586,25 +586,55 @@ sub init_game($self, $state) {
}
# ensures a ship can be placed at this location (all desired tiles are ocean)
sub check_ship_placement($self, $x, $y, $o, $l) {
sub check_ship_placement($self, $x, $y, $o, $l, $player_id) {
my ($xd, $yd, $i);
if ($o == $self->{ORIENT_VERT}) {
if ($y + $l >= $self->{N_Y}) {
return 0;
}
if ($y >= 2) {
my $tile = $self->{board}->[$x][$y - 1];
if ($tile->{type} == $self->{TYPE_SHIP} && $tile->{player_id} == $player_id && $tile->{orientation} == $o) {
return 0;
}
}
if ($y + $l <= $self->{N_Y} - 3) {
my $tile = $self->{board}->[$x][$y + $l + 1];
if ($tile->{type} == $self->{TYPE_SHIP} && $tile->{player_id} == $player_id && $tile->{orientation} == $o) {
return 0;
}
}
$xd = 0;
$yd = 1;
} else {
if ($x + $l >= $self->{N_X}) {
return 0;
}
if ($x >= 2) {
my $tile = $self->{board}->[$x - 1][$y];
if ($tile->{type} == $self->{TYPE_SHIP} && $tile->{player_id} == $player_id && $tile->{orientation} == $o) {
return 0;
}
}
if ($x + $l <= $self->{N_X} - 3) {
my $tile = $self->{board}->[$x + $l + 1][$y];
if ($tile->{type} == $self->{TYPE_SHIP} && $tile->{player_id} == $player_id && $tile->{orientation} == $o) {
return 0;
}
}
$xd = 1;
$yd = 0;
}
for (my $i = 0; $i < $l; $i++) {
if ($self->{board}->[$x += $o == $self->{ORIENT_HORIZ} ? $xd : 0][$y += $o == $self->{ORIENT_HORIZ} ? 0 : $yd]->{type} != $self->{TYPE_OCEAN}) {
if ($self->{board}->[$x += $xd][$y += $yd]->{type} != $self->{TYPE_OCEAN}) {
return 0;
}
}
@ -639,27 +669,11 @@ sub place_ship($self, $player_id, $player_index, $ship) {
$self->{pbot}->{logger}->log("attempt to place ship for player $player_index: ship $ship x,y: $x,$y o: $o length: $l\n");
}
if ($self->check_ship_placement($x, $y, $o, $l)) {
if ($self->check_ship_placement($x, $y, $o, $l, $player_id)) {
if (!$o) {
$self->{vert}++;
if ($self->{horiz} < $self->{SHIPS} / 2) {
# generate a battlefield with half vertical and half horizontal ships
# perfectly balanced as all things must be.
next;
}
$yd = 1;
$xd = 0;
} else {
$self->{horiz}++;
if ($self->{vert} < $self->{SHIPS} / 2) {
# generate a battlefield with half vertical and half horizontal ships
# perfectly balanced as all things must be.
next;
}
$xd = 1;
$yd = 0;
}
@ -675,7 +689,7 @@ sub place_ship($self, $player_id, $player_index, $ship) {
hit_by => 0,
};
$self->{board}->[$x += $o == $self->{ORIENT_HORIZ} ? $xd : 0][$y += $o == $self->{ORIENT_HORIZ} ? 0 : $yd] = $tile_data;
$self->{board}->[$x += $xd][$y += $yd] = $tile_data;
}
$self->{ship_length}->[$ship] = $l;
@ -721,9 +735,6 @@ sub generate_battlefield($self) {
# place ships
for (my $player_index = 0; $player_index < @{$self->{state_data}->{players}}; $player_index++) {
# counts how many horizontal/vertical ships have been placed so far
$self->{horiz} = 0;
$self->{vert} = 0;
for (my $ship = 0; $ship < $self->{SHIPS}; $ship++) {
if (!$self->place_ship($self->{state_data}->{players}->[$player_index]->{id}, $player_index, $ship)) {
return 0;

4
lib/PBot/VERSION.pm
View File

@ -25,8 +25,8 @@ use PBot::Imports;
# These are set by the /misc/update_version script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4799,
BUILD_DATE => "2024-10-05",
BUILD_REVISION => 4800,
BUILD_DATE => "2024-10-06",
};
sub initialize {}