From b6c23986b8b9c31f4468a5e1ea334433fb012c4e Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 31 May 2004 06:18:07 +0000 Subject: [PATCH] * riece-hangman.el (riece-hangman-after-privmsg-hook): Display answer. (riece-hangman-enable): Initialize random seed. --- lisp/ChangeLog | 5 +++++ lisp/riece-hangman.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * riece-hangman.el (riece-hangman-after-privmsg-hook): Display answer. + (riece-hangman-enable): Initialize random seed. + 2004-05-29 Daiki Ueno * 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 () -- 1.7.10.4