🚀 go-pugleaf

In article <9011160518.AA22499@ucbvax.Berkeley.EDU> jlol@ee.byu.edu writes:
>...  What I'm wondering is whether there is a
>convenient way to play gnuchess against another program, or itself,
>that might be running on the same or a different machine. 

I wrote a GNU emacs program to play gnuchess against itself and it is
included in this posting. It was written in July 1990 and I'm not sure if
there has been a new release since then. If it doesn't work, let me know
and I'll fix any problems. It is called playchess.el. Another program 
pchess.el (also included) plays against /usr/games/chess on Suns.

You must have gnuchessr as generated in the distributed makefile
WITHOUT -DCHESSTOOL (or else you can't see the board displays).
The program should be able to play on different machines by invoking the
chess progams with an 'rsh'. You probably only need to change white-program
or black-program to do this.

Hope that someone finds these useful.

Philip Leong.
--
Department of Electrical Engineering	Tel. (+61 2) 692 3297
University of Sydney 2006		Fax. (+61 2) 692 3847
Australia				Internet: phwl@ee.su.oz.au

;;	playchess.el - plays gnuchess against itself
;;
;;				Philip Leong (phwl@ee.su.oz.au)
;;

(defvar chess-buffer "chess")
(defvar white-program "gnuchessr")
(defvar black-program "gnuchessr")

(defun other-proc (proc)
  (cond ((equal (get-process "white") proc) "black")
	((equal (get-process "black") proc) "white")
	(t (insert "bad proc"))))

(defun chess-filter (proc string)
  (set-buffer (process-buffer proc))
  (goto-char (point-max))
  (insert string)
  (if (not (string-match "[0-9]+\. \.\.\. ...." string))
      nil
      (let ((str (concat (substring string
				    (- (match-end 0) 4)
				    (match-end 0)))))
	   (insert ">" str "<\n" )
	   (process-send-string (other-proc proc) "bd\n" )
	   (process-send-string (other-proc proc) (concat str "\n")))))

(defun chess ()
  (interactive)
  (start-process "white" chess-buffer white-program)
  (start-process "black" chess-buffer black-program)
  (switch-to-buffer chess-buffer)
  ;; set startup options on each side
  (process-send-string "black" "30 2\n1\nbeep\n")
  (process-send-string "white" "30 2\n1\nbeep\n")
  ;; tell the white one that it is white
  (process-send-string "white" "white\n")
  (set-process-filter (get-process "white") 'chess-filter)
  (set-process-filter (get-process "black") 'chess-filter))

-------------------------------------------------------------------

;;	pchess.el - plays gnuchess against chess
;;
;;				Philip Leong (phwl@ee.su.oz.au)
;;

(defvar chess-buffer "chess")
(defvar white-program "gnuchessr")
(defvar black-program "chess")

(defun other-proc (proc)
  (cond ((equal (get-process "white") proc) "black")
	((equal (get-process "black") proc) "white")
	(t (insert "bad proc"))))

(defun chess-filter (proc string)
  (set-buffer (process-buffer proc))
  (goto-char (point-max))
  (insert string)
  (if (not (string-match "[0-9]+\. \.\.\. ...." string))
      nil
      (let ((str (concat (substring string
				    (- (match-end 0) 4)
				    (match-end 0)))))
	   (insert ">" str "<\n" )
	   (process-send-string (other-proc proc) "bd\n" )
	   (process-send-string (other-proc proc) (concat str "\n")))))

(defun chess ()
  (interactive)
  (start-process "white" chess-buffer white-program)
  (start-process "black" chess-buffer black-program)
  (switch-to-buffer chess-buffer)
  ;; set startup options on each side
  ;; (process-send-string "black" "30 2\n1\nbeep\n")
  (process-send-string "white" "30 2\n1\nbeep\n")
  ;; tell the white one that it is white
  (process-send-string "white" "white\n")
  (set-process-filter (get-process "white") 'chess-filter)
  (set-process-filter (get-process "black") 'chess-filter))