diff options
Diffstat (limited to 'chess-engine.el')
| -rw-r--r-- | chess-engine.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/chess-engine.el b/chess-engine.el index 360ed19..8756962 100644 --- a/chess-engine.el +++ b/chess-engine.el @@ -56,7 +56,7 @@ (opp-abort . "Your opponent wants to abort this game, accept? ") (opp-undo . "Your opponent wants to take back %d moves, accept? ") (opp-ready . "Your opponent, %s, is now ready to play") - (opp-ready-a . "Your opponent is now ready to play") + (opp-ready-a . "Your opponent is ready to play; pass or make your move") (opp-draw-acc . "Your draw offer was accepted") (opp-abort-acc . "Your offer to abort was accepted") (opp-undo-acc . "Request to undo %d moves was accepted") @@ -128,7 +128,7 @@ (setq chess-engine-opponent-name (or name "Anonymous")) (let ((chess-engine-handling-event t)) (chess-engine-set-position nil)) - (chess-engine-command nil 'accept)) + (chess-engine-command nil 'accept chess-full-name)) (chess-engine-command nil 'decline)))) t) @@ -162,7 +162,6 @@ (let ((chess-engine-handling-event t)) (chess-message 'opp-resigned) (chess-game-end game :resign) - (chess-game-set-data game 'active nil) t)) ((eq event 'draw) @@ -198,7 +197,8 @@ (when chess-engine-pending-offer (if (eq chess-engine-pending-offer 'match) (unless (chess-game-data game 'active) - (let ((name (and (> (length (car args)) 0) (car args)))) + (let ((name (and (> (length (car args)) 0) + (car args)))) (if name (chess-message 'opp-ready (car args)) (chess-message 'opp-ready-a)) |