Mercurial > emacs
diff lisp/play/tetris.el @ 75482:d08d2bb89f98
(tetris-new-shape): Stop drawing if game is over.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 28 Jan 2007 19:39:58 +0000 |
| parents | e3694f1cb928 |
| children | 678584f358ef f83d17e1ace6 |
line wrap: on
line diff
--- a/lisp/play/tetris.el Sun Jan 28 19:39:44 2007 +0000 +++ b/lisp/play/tetris.el Sun Jan 28 19:39:58 2007 +0000 @@ -362,9 +362,9 @@ (setq tetris-pos-y 0) (if (tetris-test-shape) (tetris-end-game) - (tetris-draw-shape)) - (tetris-draw-next-shape) - (tetris-update-score)) + (tetris-draw-shape) + (tetris-draw-next-shape) + (tetris-update-score))) (defun tetris-draw-next-shape () (loop for y from 0 to 3 do