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 | |
| 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.
| -rw-r--r-- | AUTHORS | 1 | ||||
| -rw-r--r-- | examples/mines/mines.scm | 3 |
2 files changed, 3 insertions, 1 deletions
@@ -1,2 +1,3 @@ David Thompson <davet@gnu.org> Jordan Russell <jordan.likes.curry@gmail.com> +Christopher Allan Webber <cwebber@dustycloud.org> 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) |