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

ntvl.pl - changed player toggle

Browse Source
This commit is contained in:
gashapwn 2021-04-07 23:45:14 +00:00
parent 001ebf5c6d
commit bea7ac75e5
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ntvl.pl
View File

@ -33,7 +33,8 @@ sub f2($$$){
my ($s0, $tc, $apl) = (shift, shift, shift); my ($s0, $tc, $apl) = (shift, shift, shift);
my $mt0; my $mt0;
$mt0 = mt1($s0, $tc); return LPST->P2 if $apl eq LPST->P1;
return LPST->P1;
} }
sub f1($){ sub f1($){
@ -46,11 +47,12 @@ sub f1($){
$tc = 0; $tc = 0;
for my $s0 (split(/\n/, $ns0)){ for my $s0 (split(/\n/, $ns0)){
# $mt0 = mt1($s0, $tc);
$apl = f2($s0, $tc, $apl); $apl = f2($s0, $tc, $apl);
# printf(">>%s\n", $s0); # printf(">>%s\n", $s0);
$tc++; $tc++;
} }
} }
my $ns0; my $ns0;
@ -66,10 +68,10 @@ my $m2 = "B3";
my $c1 = LPST->MG_SY; my $c1 = LPST->MG_SY;
my $c2 = LPST->MG_A; my $c2 = LPST->MG_A;
# $b = LPST->new(); $b = LPST->new();
# $board{$m1} = $P1.$DIV.$c1; # $board{$m1} = $P1.$DIV.$c1;
# $board{$m2} = $P2.$DIV.$c2; # $board{$m2} = $P2.$DIV.$c2;
# $b->shade_all_p1_mvmt(); # $b->shade_all_p1_mvmt();
# $b->disp_board(); $b->disp_board();