ntvl.pl - changed player toggle

ntvl.pl

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