From cdba8a5aed3bd66e62f348a7064acece342bb68e Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 12 Apr 2002 01:17:38 +0000 Subject: *** no comment *** --- chess-none.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 chess-none.el (limited to 'chess-none.el') diff --git a/chess-none.el b/chess-none.el new file mode 100644 index 0000000..d916adf --- /dev/null +++ b/chess-none.el @@ -0,0 +1,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 -- cgit v1.2.3