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

lpst.pl - fixed bug with checking MOVBLOCK spaces

Browse Source
This commit is contained in:
gashapwn 2021-04-04 23:34:44 +00:00
parent 3af63ea303
commit 0f942f4fb8
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lpst.pl
View File

@ -254,7 +254,9 @@ my %MOVE = (
MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM), MoveStruct->new("mov" => [ 1,-1], "type" => $MOVE_ENUM),
MoveStruct->new("mov" => [ 2, 0], "type" => $MOVE_ENUM), MoveStruct->new("mov" => [ 2, 0], "type" => $MOVE_ENUM),
MoveStruct->new("mov" => [ 2,-2], "type" => $MOVE_ENUM), MoveStruct->new("mov" => [ 2,-2], "type" => $MOVE_ENUM),
MoveStruct->new("mov" => [ 3,-3], "type" => $MOVE_ENUM) MoveStruct->new("mov" => [ 3,-3], "type" => $MOVE_ENUM),
MoveStruct->new("mov" => [ 3, 0], "type" => $MOVE_ENUM),
MoveStruct->new("mov" => [-3, 0], "type" => $MOVE_ENUM)
], ],
$MG_AU => [ $MG_AU => [
MoveStruct->new("mov" => [-1, 0], "type" => $MOVE_ENUM), MoveStruct->new("mov" => [-1, 0], "type" => $MOVE_ENUM),
@ -600,7 +602,7 @@ sub shade_move($$){
$_->{"type"} $_->{"type"}
] ]
} grep { } grep {
($_->{"type"} && $en) eq $en ($_->{"type"} & $en) eq $_->{"type"}
} @{$MOVE{$c1}}; } @{$MOVE{$c1}};
for my $mv (@mv1){ for my $mv (@mv1){
@ -623,12 +625,12 @@ binmode(STDOUT, ":utf8");
$AXIS_RV{$_} $AXIS_RV{$_}
}(1...11); }(1...11);
# my $m1 = "F7"; my $m1 = "F7";
my $m1 = "A1"; # my $m1 = "A1";
my $c1 = $MG_QS; my $c1 = $MG_QS;
$board{$m1} = $P1.$DIV.$c1; $board{$m1} = $P1.$DIV.$c1;
shade_move($m1, $MOVE_ENUM); shade_move($m1, $MOVBLOCK_ENUM);
disp_board(); disp_board();