Add simple wipe effect for undo.
This commit is contained in:
parent
98ae464ab9
commit
aa8a302fcb
2 changed files with 12 additions and 4 deletions
3
game.scm
3
game.scm
|
@ -108,7 +108,8 @@
|
|||
((snapshot . older-snapshots)
|
||||
(set! *actormap* snapshot)
|
||||
(set! *snapshots* older-snapshots)
|
||||
(play-sound-effect audio:undo))))
|
||||
(play-sound-effect audio:undo)
|
||||
(show-effect! (make-wipe-effect 0.25)))))
|
||||
|
||||
(define (sort lst compare)
|
||||
(match lst
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue