- riece-hangman-players)))
- (let ((word (riece-hangman-context-word (cdr pointer)))
- (guessed (riece-hangman-context-guessed (cdr pointer)))
- (index 0)
- (char (aref message 0)))
- (if (catch 'missing
- (while (< index (length word))
- (unless (memq (aref word index) guessed)
- (throw 'missing t))
- (setq index (1+ index))))
- (riece-hangman-reply-with-context
- (car targets) (cdr pointer))
- (riece-hangman-reply
- (car targets)
- (format "%s: You got it!"
- (riece-format-identity user t)))
- (setq riece-hangman-players
- (delq pointer riece-hangman-players))))))))))))
+ riece-hangman-player-context-alist)))
+ (if (catch 'missing
+ (setq index 0)
+ (while (< index (length word))
+ (unless (memq (aref word index) guessed)
+ (throw 'missing t))
+ (setq index (1+ index))))
+ (riece-hangman-reply-with-context user (car targets)
+ (cdr pointer))
+ (riece-hangman-reply (car targets)
+ (format "%s: You got it!" user))
+ (setq riece-hangman-player-context-alist
+ (delq pointer
+ riece-hangman-player-context-alist)))))))))))