diff options
| author | Christopher Allan Webber <cwebber@dustycloud.org> | 2015-01-10 12:59:41 -0600 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-01-10 14:05:43 -0500 |
| commit | ccc240f978a3cecd37c9de4e9f148e56bc73ab88 (patch) | |
| tree | cbd9d3ba1917be10bb1e3483386fb0fbc05b169f /examples | |
| parent | 25dc41196f8cbc907c98f4766f23df488bfb5053 (diff) | |
mines: Disable clicking on tiles when you lose.
Also add myself to AUTHORS! ;)
* AUTHORS: Add me.
* examples/mines/mines.scm (board-reveal): Don't reveal tiles in 'game
over' state.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/mines/mines.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/mines/mines.scm b/examples/mines/mines.scm index 98056cc..97d77b0 100644 --- a/examples/mines/mines.scm +++ b/examples/mines/mines.scm @@ -163,7 +163,8 @@ (cond ;; Nothing to do. ((or (tile-shown? tile) - (tile-flagged? tile)) + (tile-flagged? tile) + (board-lose? board)) board) ;; Oops! ((tile-mine? tile) |