+ '("Next Level: Get them!" "Next Level: Frag 'em!")
+ "Messages printed after a wrong answer."
+ :group 'typing-of-emacs)
(defcustom toe-buffer-name "*The Typing Of Emacs*"
"Name of the game buffer.
Note that if the name starts and ends with `*', the buffer
(insert " - " feedback)))
+(defun toe-next-level ()
+ "Give next level encouragement."
+ ; TODO: also state the current level
+ (toe-feedback toe-next-level-messages))
;; Only way to get out of the game
(defun toe-score (letters words start end)
words (delete word words)))
;; If next level is reached, force finding of new words.
(if (>= level-word-count toe-words-per-level)
- (setq level-word-count 0
+ (setq level-word-count 0
(toe-score letter-count total-word-count game-start (current-time))))