From: ueno <ueno>
Date: Mon, 31 May 2004 06:18:07 +0000 (+0000)
Subject: * riece-hangman.el (riece-hangman-after-privmsg-hook): Display answer.
X-Git-Tag: riece-1_0_1~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b6c23986b8b9c31f4468a5e1ea334433fb012c4e;p=elisp%2Friece.git

* riece-hangman.el (riece-hangman-after-privmsg-hook): Display answer.
(riece-hangman-enable): Initialize random seed.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3e28dc3..b6239c0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-31  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-hangman.el (riece-hangman-after-privmsg-hook): Display answer.
+	(riece-hangman-enable): Initialize random seed.
+
 2004-05-29  Daiki Ueno  <ueno@unixuser.org>
 
 	* Riece: Version 1.0.0 released.
diff --git a/lisp/riece-hangman.el b/lisp/riece-hangman.el
index 54f6349..0f79838 100644
--- a/lisp/riece-hangman.el
+++ b/lisp/riece-hangman.el
@@ -217,7 +217,8 @@ The wordlist is read from `riece-hangman-words-file'."
 			  (riece-hangman-reply-with-context user (car targets)
 							    (cdr pointer))
 			(riece-hangman-reply (car targets)
-					     (format "%s: You got it!" user))
+					     (format "%s: You got it! (%s)"
+						     user word))
 			(setq riece-hangman-player-context-alist
 			      (delq
 			       pointer
@@ -227,6 +228,7 @@ The wordlist is read from `riece-hangman-words-file'."
   (add-hook 'riece-after-privmsg-hook 'riece-hangman-after-privmsg-hook))
 
 (defun riece-hangman-enable ()
+  (random t)
   (setq riece-hangman-enabled t))
 
 (defun riece-hangman-disable ()