mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-03 11:33:37 +00:00
Code Issues Releases Activity

(gomoku-terminate-game, gomoku-human-takes-back, gomoku-prompt-for-move,

Browse Source 
gomoku-human-plays, gomoku-offer-a-draw): Fix typos in output messages.
(gomoku-vector-length, gomoku-init-board): Fix typos in docstrings.
This commit is contained in:
Juanma Barranquero 2006-11-24 11:10:51 +00:00
parent cfa61b8594
commit 219a77002c
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/play/gomoku.el
View File

@ -230,7 +230,7 @@ is non-nil."
"Vector recording the actual state of the Gomoku board.")
(defvar gomoku-vector-length nil
"Length of gomoku-board vector.")
"Length of `gomoku-board' vector.")
(defvar gomoku-draw-limit nil
;; This is usually set to 70% of the number of squares.
@ -250,7 +250,7 @@ is non-nil."
(/ index (1+ gomoku-board-width)))
(defun gomoku-init-board ()
"Create the gomoku-board vector and fill it with initial values."
"Create the `gomoku-board' vector and fill it with initial values."
(setq gomoku-board (make-vector gomoku-vector-length 0))
;; Every square is 0 (i.e. empty) except padding squares:
(let ((i 0) (ii (1- gomoku-vector-length)))
@ -671,11 +671,11 @@ that DVAL has been added on SQUARE."
(cond ((< gomoku-number-of-moves 20)
"This was a REALLY QUICK win.")
(gomoku-human-refused-draw
"I won... Too bad you refused my offer of a draw!")
"I won... Too bad you refused my offer of a draw!")
(gomoku-human-took-back
"I won... Taking moves back will not help you!")
"I won... Taking moves back will not help you!")
((not gomoku-emacs-played-first)
"I won... Playing first did not help you much!")
"I won... Playing first did not help you much!")
((and (zerop gomoku-number-of-human-wins)
(zerop gomoku-number-of-draws)
(> gomoku-number-of-emacs-wins 1))
@ -875,9 +875,9 @@ If the game is finished, this command requests for another game."
(let (square score)
(setq square (gomoku-point-square))
(cond ((null square)
(error "Your point is not on a square. Retry!"))
(error "Your point is not on a square. Retry!"))
((not (zerop (aref gomoku-board square)))
(error "Your point is not on a free square. Retry!"))
(error "Your point is not on a free square. Retry!"))
(t
(setq score (aref gomoku-score-table square))
(gomoku-play-move square 1)
@ -902,7 +902,7 @@ If the game is finished, this command requests for another game."
(sit-for 4)
(gomoku-prompt-for-other-game))
((zerop gomoku-number-of-human-moves)
(message "You have not played yet... Your move?"))
(message "You have not played yet... Your move?"))
(t
(message "One moment, please...")
;; It is possible for the user to let Emacs play several consecutive
@ -937,7 +937,7 @@ If the game is finished, this command requests for another game."
(defun gomoku-prompt-for-move ()
"Display a message asking for Human's move."
(message (if (zerop gomoku-number-of-human-moves)
"Your move? (move to a free square and hit X, RET ...)"
"Your move? (Move to a free square and hit X, RET ...)"
"Your move?"))
;; This may seem silly, but if one omits the following line (or a similar
;; one), the cursor may very well go to some place where POINT is not.
@ -951,7 +951,7 @@ If the game is finished, this command requests for another game."
(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? ")
(or (y-or-n-p "I offer you a draw. Do you accept it? ")
(not (setq gomoku-human-refused-draw t))))
;;;