X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=Position.pm;h=272cadb78d2124275556e16df5bc7403b19cbe6d;hp=9d90cfc777e2576dcd275815c8089774040ecc8d;hb=65aa4e3d31851a0b504f55ec9907b4fe4f9f8966;hpb=cd07e136301429ab1f50027c78a9188799f1c9ae

diff --git a/Position.pm b/Position.pm
index 9d90cfc..272cadb 100644
--- a/Position.pm
+++ b/Position.pm
@@ -157,7 +157,7 @@ sub num_pieces {
 
 # Returns a new Position object.
 sub make_move {
-        my ($pos, $from_row, $from_col, $to_row, $to_col, $promo) = @_;
+        my ($pos, $from_row, $from_col, $to_row, $to_col, $promo, $pretty_move) = @_;
 
 	my $from_square = _pos_to_square($from_row, $from_col);
 	my $to_square = _pos_to_square($to_row, $to_col);
@@ -211,8 +211,12 @@ sub make_move {
 	}
 	$np->{'player_w'} = $pos->{'player_w'};
 	$np->{'player_b'} = $pos->{'player_b'};
-	my ($move, $nb) = $pos->{'board'}->prettyprint_move($from_row, $from_col, $to_row, $to_col, $promo);
-	$np->{'last_move'} = $move;
+	if (defined($pretty_move)) {
+		$np->{'last_move'} = $pretty_move;
+	} else {
+		my ($move, $nb) = $pos->{'board'}->prettyprint_move($from_row, $from_col, $to_row, $to_col, $promo);
+		$np->{'last_move'} = $move;
+	}
 	$np->{'last_move_uci'} = Board::move_to_uci_notation($from_row, $from_col, $to_row, $to_col, $promo);
 
 	return bless $np;