[Emacs-diffs] Changes to emacs/lisp/play/gomoku.el

[Pavel Janík]

Index: emacs/lisp/play/gomoku.el
diff -c emacs/lisp/play/gomoku.el:1.33 emacs/lisp/play/gomoku.el:1.34
*** emacs/lisp/play/gomoku.el:1.33      Wed Nov 21 06:03:35 2001
--- emacs/lisp/play/gomoku.el   Thu Dec 20 13:19:23 2001
***************
*** 947,953 ****
      (message "Chicken !")))
  
  (defun gomoku-offer-a-draw ()
!   "Offer a draw and return T if Human accepted it."
    (or (y-or-n-p "I offer you a draw. Do you accept it ")
        (not (setq gomoku-human-refused-draw t))))
  
--- 947,953 ----
      (message "Chicken !")))
  
  (defun gomoku-offer-a-draw ()
!   "Offer a draw and return t if Human accepted it."
    (or (y-or-n-p "I offer you a draw. Do you accept it ")
        (not (setq gomoku-human-refused-draw t))))
  
***************
*** 1095,1108 ****
  ;; who won. The solution is to scan the board along all four directions.
  
  (defun gomoku-find-filled-qtuple (square value)
!   "Return T if SQUARE belongs to a qtuple filled with VALUEs."
    (or (gomoku-check-filled-qtuple square value 1 0)
        (gomoku-check-filled-qtuple square value 0 1)
        (gomoku-check-filled-qtuple square value 1 1)
        (gomoku-check-filled-qtuple square value -1 1)))
  
  (defun gomoku-check-filled-qtuple (square value dx dy)
!   "Return T if SQUARE belongs to a qtuple filled  with VALUEs along DX, DY."
    (let ((a 0) (b 0)
        (left square) (right square)
        (depl (gomoku-xy-to-index dx dy)))
--- 1095,1108 ----
  ;; who won. The solution is to scan the board along all four directions.
  
  (defun gomoku-find-filled-qtuple (square value)
!   "Return t if SQUARE belongs to a qtuple filled with VALUEs."
    (or (gomoku-check-filled-qtuple square value 1 0)
        (gomoku-check-filled-qtuple square value 0 1)
        (gomoku-check-filled-qtuple square value 1 1)
        (gomoku-check-filled-qtuple square value -1 1)))
  
  (defun gomoku-check-filled-qtuple (square value dx dy)
!   "Return t if SQUARE belongs to a qtuple filled  with VALUEs along DX, DY."
    (let ((a 0) (b 0)
        (left square) (right square)
        (depl (gomoku-xy-to-index dx dy)))