gashapwn/lpst
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lpst.pl - refactored board movement checks

Browse Source
This commit is contained in:
gashapwn 2021-04-05 02:09:33 +00:00
parent 5e51a8c1b5
commit e48b5573f9
1 changed files with 36 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
lpst.pl
View File

@ -574,14 +574,19 @@ sub disp_board(){
# Caclulate movement # Caclulate movement
#================================================== #==================================================
sub not_split($$){
my ($not, $i0) = (shift, shift);
return (split(/$DIV/, $board{$not}))[$i0];
}
sub cell_pi($){ sub cell_pi($){
my $not = shift; my $not = shift;
return (split(/$DIV/, $board{$not}))[1] return not_split($not, 1);
} }
sub cell_pl($){ sub cell_pl($){
my $not = shift; my $not = shift;
return (split(/$DIV/, $board{$not}))[0] return not_split($not, 0);
} }
sub cell_index_rev($$){ sub cell_index_rev($$){
@ -637,16 +642,21 @@ sub calc_move($$){
$n0 = ($r0 + (($ni + 1)/2) ) % 2; $n0 = ($r0 + (($ni + 1)/2) ) % 2;
$x_shift += int(($y_shift + ($n0 * $ni)) / 2); $x_shift += int(($y_shift + ($n0 * $ni)) / 2);
{ return apply_shift($not, [$x_shift, $y_shift]);
my $app_shift = apply_shift($not, [$x_shift, $y_shift]);
return $app_shift;
}
# return apply_shift($not, [$x_shift, $y_shift]);
} }
sub find_all_mov($$){
return grep {
$_ if $_->[0] ne $ERR_C_1;
} map {
[
calc_move($_[1], $_->{"mov"}),
$_->{"type"}
]
} @{$_[0]};
}
sub shade_mvmt($$){
sub shade_move($$){
my ($not, $en) = (shift, shift); my ($not, $en) = (shift, shift);
my $c1; my $c1;
my @mv1; my @mv1;
@ -654,22 +664,27 @@ sub shade_move($$){
$c1 = cell_pi($not); $c1 = cell_pi($not);
@mv1 = grep { @mv1 = grep {
$_ if $_->[0] ne $ERR_C_1;
} map {
[
calc_move($not, $_->{"mov"}),
$_->{"type"}
]
} grep {
($_->{"type"} & $en) eq $_->{"type"} ($_->{"type"} & $en) eq $_->{"type"}
} @{$MOVE{$c1}}; } @{$MOVE{$c1}};
@mv1 = find_all_mov(\@mv1, $not);
for my $mv (@mv1){ for my $mv (@mv1){
shade_cell($mv->[0], $mv->[1]); shade_cell($mv->[0], $mv->[1]);
} }
} }
# sub get_block_cell(){
# map {
# cell_pi($_)
# } keys($board);
# }
# Main starts here! # Main starts here!
#==================================================
binmode(STDOUT, ":utf8"); binmode(STDOUT, ":utf8");
# Creates a hash of the the form # Creates a hash of the the form
@ -686,10 +701,14 @@ binmode(STDOUT, ":utf8");
# my $m1 = "F7"; # my $m1 = "F7";
my $m1 = "C10"; my $m1 = "C10";
my $m2 = "C3";
my $c1 = $MG_SY; my $c1 = $MG_SY;
my $c2 = $MG_A;
$board{$m1} = $P1.$DIV.$c1; $board{$m1} = $P1.$DIV.$c1;
shade_move($m1, $MOVBLOCK_ENUM); $board{$m2} = $P1.$DIV.$c2;
shade_mvmt($m1, $MOVBLOCK_ENUM);
disp_board(); disp_board();