projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-hangman.el (riece-hangman-after-privmsg-hook): Display answer.
[riece]
/
lisp
/
riece-hangman.el
diff --git
a/lisp/riece-hangman.el
b/lisp/riece-hangman.el
index
54f6349
..
0f79838
100644
(file)
--- 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)
(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
(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 ()
(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 ()
(setq riece-hangman-enabled t))
(defun riece-hangman-disable ()