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

Fixed the shooting.

Browse Source
This commit is contained in:
larstvei 2013-12-15 22:05:13 +01:00
parent 7ad0eebc9d
commit 2750e2c943
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
etype.el
View File

@ -153,7 +153,7 @@ new random time."
(push word etype-words-in-play)
(push (run-at-time random random 'etype-move-word (point) word)
etype-timers)))))
(setf (timer--repeat-delay (last etype-timers)) (/ (etype-random) 2)))
(setf (timer--repeat-delay (last etype-timers)) (/ (etype-random) 10)))
(defun etype-move-shooter (column)
"Moves the shooter to COLUMN."
@ -167,23 +167,24 @@ new random time."
(len (length shooter)))
(cond ((and (> column 1) (< column (- fill-column (+ len 1))))
(forward-char (- column 2)))
((> column (- fill-column (+ len 1)))
((> column (- fill-column (+ len 2)))
(forward-char (- fill-column len))))
(insert shooter))))
(defun etype-shoot (&optional steps)
"Triggers the shooter to fire at a word. It calls itself
recursively until the bullet hits the word."
(let* ((bullet-dest (+ (- etype-point-max
(* (or steps 0) (+ fill-column 1)))
(current-column)))
(overlay (make-overlay bullet-dest (+ bullet-dest 1))))
(etype-move-shooter (current-column))
(overlay-put overlay 'face (cons 'background-color "white"))
(sit-for (* 0.000005 (or steps 0)))
(delete-overlay overlay)
(when (< (point) bullet-dest)
(etype-shoot (+ (or steps 0) 1)))))
(unless (= 0 (current-column))
(let* ((bullet-dest (+ (- etype-point-max
(* (or steps 0) (+ fill-column 1)))
(current-column)))
(overlay (make-overlay bullet-dest (+ bullet-dest 1)))
(time (* 0.00005 (or steps 0))))
(etype-move-shooter (current-column))
(overlay-put overlay 'display "|")
(run-at-time (+ time 0.05) nil 'delete-overlay overlay)
(when (< (point) (- bullet-dest (+ fill-column 1)))
(run-at-time time nil 'etype-shoot (+ (or steps 0) 1))))))
(defun etype-search-word (key-etyped)
"Searches the buffer for a word that begins with the typed
@ -262,4 +263,5 @@ inserting the typed key, it triggers a shot."
(make-local-variable 'etype-completing-word)
(define-key (current-local-map)
[remap self-insert-command] 'etype-catch-input)
(setq cursor-type nil)
(add-hook 'kill-buffer-hook 'etype-cleanup))