diff options
| author | Chong Yidong | 2007-01-28 19:39:58 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-01-28 19:39:58 +0000 |
| commit | d46b940851f2529a1ffd1cd198db2b158aa19b37 (patch) | |
| tree | 7c23604f6cd80f6ceddbe231a58ad17c922b72fd | |
| parent | 2f028807fdcf5d95f48c9d08279a02e7bc48586f (diff) | |
| download | emacs-d46b940851f2529a1ffd1cd198db2b158aa19b37.tar.gz emacs-d46b940851f2529a1ffd1cd198db2b158aa19b37.zip | |
(tetris-new-shape): Stop drawing if game is over.
| -rw-r--r-- | lisp/play/tetris.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el index 45e5af94ea0..53305a08e66 100644 --- a/lisp/play/tetris.el +++ b/lisp/play/tetris.el | |||
| @@ -362,9 +362,9 @@ Element 0 is ignored." | |||
| 362 | (setq tetris-pos-y 0) | 362 | (setq tetris-pos-y 0) |
| 363 | (if (tetris-test-shape) | 363 | (if (tetris-test-shape) |
| 364 | (tetris-end-game) | 364 | (tetris-end-game) |
| 365 | (tetris-draw-shape)) | 365 | (tetris-draw-shape) |
| 366 | (tetris-draw-next-shape) | 366 | (tetris-draw-next-shape) |
| 367 | (tetris-update-score)) | 367 | (tetris-update-score))) |
| 368 | 368 | ||
| 369 | (defun tetris-draw-next-shape () | 369 | (defun tetris-draw-next-shape () |
| 370 | (loop for y from 0 to 3 do | 370 | (loop for y from 0 to 3 do |