blob: d916adfb81a8e5a6458b00b4329c64a19f25e842 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; A null engine, used when two humans play each on the same display.
;;
;; $Revision$
(require 'chess-engine)
(defun chess-none-handler (event &rest args)
"Initialize the network chess engine."
(cond
((eq event 'send))
((eq event 'ready)
(and (chess-engine-game nil)
(chess-game-set-data (chess-engine-game nil) 'active t)))
((memq event '(resign abort))
(and (chess-engine-game nil)
(chess-engine-set-start-position nil)))
((eq event 'undo)
(if (chess-engine-game nil)
(chess-game-undo (chess-engine-game nil) (car args))))))
(provide 'chess-none)
;;; chess-none.el ends here
|
