set epd opcode ce from material-value and checkmate info

diff --git a/chess-ics.el b/chess-ics.el
index 1eaa65c76d675db2937d930741b7b7a390bb62a9..f1c423936aff6a5f743666bb04ebb640cda6f80b 100644 (file)
--- a/chess-ics.el
+++ b/chess-ics.el
@@ -195,8 +195,11 @@ to run whenever the regexp matches.")
     (setq parts (cdr parts))
 
     ;; material values for each side
-    (chess-pos-set-epd position 'ce (* 100 (- (string-to-int (pop parts))
-                                             (string-to-int (pop parts)))))
+    (let ((centipawn (* 100 (- (string-to-int (pop parts))
+                              (string-to-int (pop parts))))))
+      (chess-pos-set-epd position 'ce (if (chess-pos-side-to-move position)
+                                         centipawn
+                                       (- centipawn))))
 
     ;; White's and Black's remaining time
     (chess-game-set-data game 'white-remaining (string-to-number (pop parts)))
@@ -223,7 +226,9 @@ to run whenever the regexp matches.")
        ((= ?+ (aref move (1- (length move))))
        (chess-pos-set-status position :check))
        ((= ?# (aref move (1- (length move))))
-       (chess-pos-set-status position :checkmate))
+       (chess-pos-set-status position :checkmate)
+       (chess-pos-set-epd position 'ce (if (chess-pos-side-to-move position)
+                                           32767 -32767)))
        (nil
        ;; jww (2002-04-30): what about stalemate?  do I need to
        ;; calculate this each time?