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

LPST.pm - parametrized shade

Browse Source
This commit is contained in:
gashapwn 2021-04-07 00:35:47 +00:00
parent e3c07ef59f
commit 2001529ded
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
LPST.pm
View File

@ -675,21 +675,25 @@ sub shade_pi_mvmt($$){
} }
} }
sub shade_all_mvmt($){ sub shade_all_mvmt($$){
my $pl; my ($pl, $en) = (shift, shift);
my @pi1; my @pi1;
$pl = shift; # $pl = shift;
@pi1 = grep { @pi1 = grep {
cell_pl($_) eq $pl cell_pl($_) eq $pl
} keys(%board); } keys(%board);
for my $el (@pi1){ for my $el (@pi1){
shade_pi_mvmt($el, $MOVBLOCK_ENUM); shade_pi_mvmt($el, $en);
} }
} }
sub shade_all_p1_mvmt($){
shade_all_mvmt($P1, $MOVBLOCK_ENUM);
}
sub get_block_cell($){ sub get_block_cell($){
my $pl; my $pl;
@ -723,10 +727,10 @@ sub new {
return bless $self, $class; return bless $self, $class;
} }
binmode(STDOUT, ":utf8");
return 1; return 1;
# Is this needed?
# binmode(STDOUT, ":utf8");

2
ntvl.pl
View File

@ -28,5 +28,5 @@ my $b;
$b = LPST->new(); $b = LPST->new();
$b->shade_all_mvmt("P1"); # $b->shade_all_p1_mvmt();
$b->disp_board(); $b->disp_board();