|
|
@@ -257,9 +257,9 @@ sub disp_row($){ |
|
|
|
$r0 = shift; |
|
|
|
|
|
|
|
$row = disp_0($r0); |
|
|
|
# Trim the start of the first line |
|
|
|
$row =~ s/$TRAIL_1/ /; |
|
|
|
if($r0 % 2 == 1){ |
|
|
|
# Trim the start of the first line |
|
|
|
$row =~ s/$TRAIL_1/ /; |
|
|
|
# Trim the end of the first line |
|
|
|
$row =~ s/\n/$TRAIL_3\n/ |
|
|
|
}else{ |
|
|
@@ -277,8 +277,11 @@ sub disp_board(){ |
|
|
|
$b .= disp_row($i); |
|
|
|
} |
|
|
|
$b =~ s/$TRAIL_1$TRAIL_3\n/\n/m; |
|
|
|
|
|
|
|
for my $i (1..11-1){ |
|
|
|
substr($b, 2+6*$i, 2) = " "; |
|
|
|
} |
|
|
|
printf("%s", $b); |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
sub cell_index($){ |
|
|
|