(gomoku-display-statistics): Use human's point of view

for wins and losses.
(gomoku-number-of-emacs-wins): Renamed from gomoku-number-of-wins.
(gomoku-number-of-human-wins): Renamed from gomoku-number-losses.

1 files changed, 14 insertions, 21 deletions

diff --git a/lisp/play/gomoku.el b/lisp/play/gomoku.el
index 18c0b1173d8..314a7de4592 100644
--- a/lisp/play/gomoku.el
+++ b/lisp/play/gomoku.el
@@ -578,11 +578,11 @@ that DVAL has been added on SQUARE."
 ;;; SESSION CONTROL.
 ;;;
 
-(defvar gomoku-number-of-wins 0
-  "Number of games already won in this session.")
+(defvar gomoku-number-of-emacs-wins 0
+  "Number of games Emacs won in this session.")
 
-(defvar gomoku-number-of-losses 0
-  "Number of games already lost in this session.")
+(defvar gomoku-number-of-human-wins 0
+  "Number of games you won in this session.")
 
 (defvar gomoku-number-of-draws 0
   "Number of games already drawn in this session.")
@@ -593,7 +593,7 @@ that DVAL has been added on SQUARE."
   (let (message)
     (cond
      ((eq result 'emacs-won)
-      (setq gomoku-number-of-wins (1+ gomoku-number-of-wins))
+      (setq gomoku-number-of-emacs-wins (1+ gomoku-number-of-emacs-wins))
       (setq message
 	    (cond ((< gomoku-number-of-moves 20)
 		   "This was a REALLY QUICK win.")
@@ -603,14 +603,14 @@ that DVAL has been added on SQUARE."
 		   "I won... Taking moves back will not help you !")
 		  ((not gomoku-emacs-played-first)
 		   "I won... Playing first did not help you much !")
-		  ((and (zerop gomoku-number-of-losses)
+		  ((and (zerop gomoku-number-of-human-wins)
 			(zerop gomoku-number-of-draws)
-			(> gomoku-number-of-wins 1))
+			(> gomoku-number-of-emacs-wins 1))
 		   "I'm becoming tired of winning...")
 		  (t
 		   "I won."))))
      ((eq result 'human-won)
-      (setq gomoku-number-of-losses (1+ gomoku-number-of-losses))
+      (setq gomoku-number-of-human-wins (1+ gomoku-number-of-human-wins))
       (setq message
 	    (cond
 	     (gomoku-human-took-back
@@ -620,7 +620,7 @@ that DVAL has been added on SQUARE."
 	     (t
 	      "OK, you won this one.  Now, let me play first just once."))))
      ((eq result 'human-resigned)
-      (setq gomoku-number-of-wins (1+ gomoku-number-of-wins))
+      (setq gomoku-number-of-emacs-wins (1+ gomoku-number-of-emacs-wins))
       (setq message "So you resign.  That's just one more win for me."))
      ((eq result 'nobody-won)
       (setq gomoku-number-of-draws (1+ gomoku-number-of-draws))
@@ -954,20 +954,13 @@ If the game is finished, this command requests for another game."
 	(cond
 	 ((not (zerop gomoku-number-of-draws))
 	  (format ": Won %d, lost %d, drew %d"
-		  gomoku-number-of-wins
-		  gomoku-number-of-losses
+		  gomoku-number-of-human-wins
+		  gomoku-number-of-emacs-wins
 		  gomoku-number-of-draws))
-	 ((not (zerop gomoku-number-of-losses))
-	  (format ": Won %d, lost %d"
-		  gomoku-number-of-wins
-		  gomoku-number-of-losses))
-	 ((zerop gomoku-number-of-wins)
-	  "")
-	 ((= 1 gomoku-number-of-wins)
-	  ": Already won one")
 	 (t
-	  (format ": Won %d in a row"
-		  gomoku-number-of-wins))))
+	  (format ": Won %d, lost %d"
+		  gomoku-number-of-human-wins
+		  gomoku-number-of-emacs-wins))))
   ;; Then a (standard) kludgy line will force update of mode line.
   (set-buffer-modified-p (buffer-modified-p)))