[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/blackbox.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/blackbox.el [lexbind] |
Date: |
Wed, 15 Sep 2004 20:33:51 -0400 |
Index: emacs/lisp/play/blackbox.el
diff -c emacs/lisp/play/blackbox.el:1.12.4.2
emacs/lisp/play/blackbox.el:1.12.4.3
*** emacs/lisp/play/blackbox.el:1.12.4.2 Tue Oct 14 23:42:16 2003
--- emacs/lisp/play/blackbox.el Thu Sep 16 00:12:22 2004
***************
*** 335,368 ****
(bb-update-board (propertize "O" 'help-echo "Placed ball"))))))
(defun bb-trace-ray (x y)
! (let ((result (bb-trace-ray-2
! t
! x
! (cond
! ((= x -1) 1)
! ((= x 8) -1)
! (t 0))
! y
! (cond
! ((= y -1) 1)
! ((= y 8) -1)
! (t 0)))))
! (cond
! ((eq result 'hit)
! (bb-update-board (propertize "H" 'help-echo "Hit"))
! (setq bb-score (1+ bb-score)))
! ((equal result (cons x y))
! (bb-update-board (propertize "R" 'help-echo "Reflection"))
! (setq bb-score (1+ bb-score)))
! (t
! (setq bb-detour-count (1+ bb-detour-count))
! (bb-update-board (propertize (format "%d" bb-detour-count)
! 'help-echo "Detour"))
! (save-excursion
! (bb-goto result)
! (bb-update-board (propertize (format "%d" bb-detour-count)
! 'help-echo "Detour")))
! (setq bb-score (+ bb-score 2))))))
(defun bb-trace-ray-2 (first x dx y dy)
(cond
--- 335,369 ----
(bb-update-board (propertize "O" 'help-echo "Placed ball"))))))
(defun bb-trace-ray (x y)
! (when (= (following-char) 32)
! (let ((result (bb-trace-ray-2
! t
! x
! (cond
! ((= x -1) 1)
! ((= x 8) -1)
! (t 0))
! y
! (cond
! ((= y -1) 1)
! ((= y 8) -1)
! (t 0)))))
! (cond
! ((eq result 'hit)
! (bb-update-board (propertize "H" 'help-echo "Hit"))
! (setq bb-score (1+ bb-score)))
! ((equal result (cons x y))
! (bb-update-board (propertize "R" 'help-echo "Reflection"))
! (setq bb-score (1+ bb-score)))
! (t
! (setq bb-detour-count (1+ bb-detour-count))
! (bb-update-board (propertize (format "%d" bb-detour-count)
! 'help-echo "Detour"))
! (save-excursion
! (bb-goto result)
! (bb-update-board (propertize (format "%d" bb-detour-count)
! 'help-echo "Detour")))
! (setq bb-score (+ bb-score 2)))))))
(defun bb-trace-ray-2 (first x dx y dy)
(cond
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/blackbox.el [lexbind],
Miles Bader <=