larstvei/etype
1
0
Fork 0
mirror of https://github.com/larstvei/etype.git synced 2024-11-26 02:08:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Restart by typing `game over'.

Browse Source
This commit is contained in:
larstvei 2014-10-05 04:22:30 +02:00
parent 4fd7bd83da
commit e8904d9f13
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
etype.el
View File

@ -113,12 +113,15 @@ lines. Also some variables are set."
(etype-insert-centered str)
finally
(forward-line)
(etype-insert-centered "Type Game Over to start new game.")))))
(etype-insert-centered "Type > game over < to start new game."))
(push "game" etype-words-in-play)
(push "over" etype-words-in-play))))
(defun etype-game-over ()
(etype-cleanup)
(etype-draw-game-over)
(setq etype-game-is-over t))
(setq etype-game-is-over t
etype-completing-word nil))
(defun etype-increase-level ()
"Increases the level."
@ -318,8 +321,8 @@ created."
"\\<" (single-key-description last-input-event))
etype-point-max t)
(when (member (substring-no-properties (word-at-point))
etype-words-in-play)
(setq etype-completing-word (point)))
etype-words-in-play)
(setq etype-completing-word (point)))
(when etype-completing-word
(let ((inhibit-read-only t))
(etype-shoot)
@ -360,8 +363,9 @@ point. If the word is complete the word is cleared."
(let* ((inhibit-read-only t)
(word (current-word t))
(timer (etype-search-timers (current-word t))))
(cancel-timer timer)
(setq etype-timers (remove timer etype-timers))
(when timer
(cancel-timer timer)
(setq etype-timers (remove timer etype-timers)))
(delete-overlay etype-overlay)
(etype-move-shooter (/ fill-column 2))
(backward-word)
@ -372,7 +376,9 @@ point. If the word is complete the word is cleared."
(etype-update-score word))
(goto-char (point-min))
(unless (remove-if (lambda (x) (string= x "")) etype-words-in-play)
(etype-spawn-wave 0 (etype-wave-limit)))))
(etype-spawn-wave 0 (etype-wave-limit)))
(when (and etype-game-is-over (string= word "over"))
(etype))))
(defun etype-catch-input ()
"'self-insert-command' is remapped to this function. Instead of
@ -383,6 +389,10 @@ inserting the typed key, it triggers a shot."
(etype-continue-word key-typed)
(etype-search-word key-typed))))
(defun etype-cleanup ()
"Cancels all etype-timers."
(mapc 'cancel-timer etype-timers))
(defun etype ()
"Starts a game of Etype."
(interactive)
@ -394,10 +404,6 @@ inserting the typed key, it triggers a shot."
(init-game)
(etype-spawn-wave 0 (etype-wave-limit)))
(defun etype-cleanup ()
"Cancels all etype-timers."
(mapc 'cancel-timer etype-timers))
(define-derived-mode etype-mode nil "Etype"
"A mode for playing Etype."
(dolist (var '(etype-score