procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix logic in previous Tetris change

Browse source 
* lisp/play/tetris.el (tetris-new-shape): Fix logic in previous
change.
This commit is contained in:
Lars Ingebrigtsen 2022-06-21 21:52:11 +02:00
parent ca6c8fc72c
commit de30e8c0de
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/play/tetris.el
View file

@ -364,8 +364,8 @@ each one of its four blocks.")
(setq tetris-shape tetris-next-shape)
(setq tetris-rot 0)
(setq tetris-next-shape (if tetris-allow-repetitions
(tetris--seven-bag)
(random 7)))
(random 7)
(tetris--seven-bag)))
(setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2))
(setq tetris-pos-y 0)
(if (tetris-test-shape)